wszystkie komórki większe od 0 If cl.Value > 0 Then
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
[syntax=vb]Sub Zaznaczeniekomorek() Dim rng, cl, MyRng As Range, szukana As String 'ustalenie zakresu komorek zrodlowych Set rng = Range("A2:A20") szukana = "0" 'dla kazdej komorki w zakresie For Each cl In rng 'jesli zawartosc jest jak szukana If cl.Value Like szukana Then 'dla pierwszej spelniajacej kryterium If MyRng Is Nothing Then Set MyRng = cl.Offset(,...
Witam potrzebuje napisać makro które będzie robić coś takiego: zaznaczy wszystkie liczby "powtarzające się w arkuszu na kolor zielony i wypisze te znaczenia w innym arkusz zrobiłem coś takiego [syntax=vb] Sub Zaznacznie_klorem() Dim ConstantCells As Range Dim cell As Range If TypeName(Selection) <> "Range" Then Exit Sub Application.ScreenUpdating...
Pewnie makro masz w kodzie arkusza. Musi być w module... Jeśli to procedura zdarzeniowa, wywołaj je po nazwie (Call NazwaMakraInModule)
ActiveWindow to arkusz "Menu", bo w nim klikasz przyciski... Zobacz makro "Druknij" Zaznaczanie wszystkich: Łącze komórki to N6 w arkuszu "Admin". Podepnij makro pod pole wyboru "zaznacz wszystkie"[syntax=vb]With sheets("Admin") If .Range("N6") = True Then .Range("N1:N5") = True Else .Range("N1:N5") = False End If End With[/syntax]W zależności od wartości...
Dla jednego pola nie jest to skomplikowane - działające makro to: Dla zakresu [syntax=vbscript]Sub elka() For Each c In Range("H8:H100") If c = "TAK" Then c.Offset(, -5) = True ElseIf c = "" Then c.Offset(, -5) = False End If Next End Sub[/syntax]
VBA i możesz wszystko... [syntax=vbscript] Sub Polewyboru33_Kliknięcie() ' ' Polewyboru33_Kliknięcie Makro ' ActiveSheet.CheckBoxes("Pole wyboru 17").Value = 1 ActiveSheet.CheckBoxes("Pole wyboru 25").Value = 1 ActiveSheet.CheckBoxes("Pole wyboru 29").Value = 1 ActiveSheet.CheckBoxes("Pole wyboru 19").Value = 1 End Sub [/syntax]
bozio891 W twoim arkuszu wystarczy zmienić zakres obowiązywania nazwy AktywnyWiersz z arkusza na cały skoroszyt (najprościej usunąć nazwę, przypisać ją ponownie ale zakres dać skoroszyt i odwołanie "=0") Zaznaczanie będzie działać w każdym arkuszu gdzie masz ustawione formatowanie warunkowe (październik i grudzień nie mają) :)
Witamy na forum. Zrobić to pewnie by się dało, ale czy nie pogubimy się z kolorami? Jedna data może należeć do wielu zbiorów... Można by zrobić tak, że po kliknięciu w komórkę z datą "podświetli" zbiór wg. kryteriów.
Ja tylko podpowiadam, bo czasami oczywiste rozwiązania wcale takie oczywiste nie są ;) http://obrazki.elektroda.pl/5260256600_1...
[syntax=vbscript]Sub ZaznaczDalej() a = Selection f = False If Len(a) > 0 Then If Left(a, 1) = "{" And Right(a, 1) = "}" Then f = True If Left(a, 1) = "|" And Right(a, 1) = "|" Then f = True End If If f Then While f Selection.MoveRight Unit:=wdCharacter, Count:=1, _ Extend:=wdExtend If Right(Selection.Range.Text, 1) = "}" Or _ Right(Selection.Range.Text,...
I co dalej z tym zielonym zaznaczeniem? Ma pozostać na stałe? Jeśli tak, to zobacz nowy załącznik.
ale "Jelczan" prosił o makro Aaa, to najprościej oprogramować zdarzenie (co sugerował już kolega PRL ), Np [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a2:a100")) Is Nothing Then If Target = "" And Target.Offset(0, 1) <> "" Then Range(Target, Target.Offset(0, 10)).Interior.ColorIndex = 6...
Powiem szczerze, że nie działa to zbyt płynnie i jest dodatkowo utworzony kolejny arkusz. Przy wyszukiwaniu np. numeru 100 000 000 po wpisaniu w wyszukiwarce 10 wyświetla się wiersz natomiast, gdy wpiszę 100 to już nic nie wyszukuje. Przy filtrowaniu wyszukuje bardzo dokładnie nawet po fragmencie numeru, który znajduje się w środku natomiast nie ma...
Witaj [syntax=vb] Sub bombon() Dim zakr10 As Range Set zakr10 = ThisWorkbook.Sheets("Bombonierki").Range... r = 2 While Cells(r, 1) <> vbNullString If Application.Count(zakr10.Rows(r)) > 0 Then Cells(r, 1).Interior.ColorIndex = 6 End If r = r + 1 Wend End Sub [/syntax]
Wnioskuje że w jakimś okienku (ZaznaczForm) w polu (tbWartość) chcesz wprowadzać tekst (i tylko tekst). Tak? Może wystarczy tylko wykasować w linijce kodu wartość = Val(ZaznaczForm.tbWartość.Value) funkcję zmieniajacą "Val" czyli wartość = ZaznaczForm.tbWartość.Value Tylko jak to się będzie miało do większy mniejszy od jakiegioś innego tekstu wpisanego...
Witam O to Ci chodzi? [syntax=vbnet]Range("C2:C" & Cells(Rows.Count, "B").End(xlUp).Row).Select[/syntax]
Witam, Chcialbym aby po imporcie do komorek (A3, A4, A5 zawierających imiona) oraz komórek B3, B4, B5 ( zawierających wartości) po imporcie makro zaznaczało najwyższa wartość w komórkach zawierających wartość a także komórke z imieniem na zolto. Druga sprawa, to gdy np: po imporcie najwyzsza wartość będzie w komorce B4, to wtedy ma sie ona zamienic...
Przetestuj poniższy kod (ilość kolumn do sprawdzenia jest brana na podstawie ilości zapełnionych komórek w wierszu 1). [syntax=vb]Sub pokoloruj_1v2() Dim lLstRw& Dim iLstCol% Dim rRng As Range Dim rTmpRng As Range iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To iLstCol lLstRw = Cells(Rows.Count, i).End(xlUp).Row On Error Resume Next...
To proste, mam arkusz w którym dość często wprowadzam zmiany, ale w normalnym trybie w arkuszu działają różne makra które miedzy innymi ukrywają wedle potrzeby wiersze i kolumny. Kiedy potrzebuję wprowadzić w arkuszu zmiany to mam jeden przycisk którym w arkuszu odkrywam wszystkie wiersze i kolumny, ale w tej sytuacji muszę włączyć tryb projektowania...
Znowu namieszałeś w tym kodzie, ale nie rozumiem, jaki błąd masz w linii: [syntax=vbnet]Columns(kW.Column).Select[... nie powinno być żadnego błędu. Zaznaczanie kolumny jest zbędne. Na początku tworzysz zmienne obiektowe kW i kWc, a później nie umiesz ich wykorzystać. Poza tym, jak już poprzednio pisałem, kopiowanie formatowania jest zbędne,...
witam, mam problem z makrem. Męczę się meczę i nic :/// Chcę, żeby makro zaznaczało kolumnę, sortowało ją rosnąco Np: a a a b b b b c c ... a następnie podawało mi zapisywało mi zmienne w ten sposób, żeby każda ze zmiennych definiowała pierwszy wiersz, w którym jest "wartość", a następnie ostatni wiersz, który zawiera wartość "a" i tak ze wszystkimi...
Cześć wszystkim, mam 2 małe problemy makrem do zaznaczania wierszy. 1. Pierwsze makro dodaje mi obramowanie do zaznaczonego wiersza - w tym kodzie chciałbym dodać zakres w jakim ma ono działać (tylko w obrębie tabeli) Od wiersza 42 do 305. If w > 0 Then With Rows(w) .Borders(xlEdgeBottom).LineStyle = xlNone End With End If With Target(1).EntireRow...
To pokaż je, ale samo makro bo załącznika nie zobaczę. Może da się coś tam zauważyć.
Nie wiem, ale z Twojego pliku widać, że można tutaj zastosować bardzo prosty trick rozwiązujący ten problem - wprowadzenie na początku tabeli dodatkowej kolumny z identyfikatorem (numerem) trasy Umożliwi to dokładne wychwycenie wszystkich wierszy z określonym identyfikatorem Powiem szczerze nawet o tym myślałem, ale po pierwsze arkusz generowany jest...
Witam Potrzebuje napisac makro, ktore skopiuje kolumne z arkusza A do arkusza B po napotkaniu okreslonego slowa np stop, koniec itp... w kolumnie A przerywa zaznaczanie i wkleja w inna kolumne wartosci do slowa stop, koniec... Nie ma znaczenia czy bedzie to ten sam arkusz czy inny. Potrafie zrobic makro, ktore bedzie zliczalo ilosc wierszy do skopiowania,...
Dzieki za pomoc:), jeszcze jedno pytanie, jak zrobić żeby komórki które nie miały wpisanej zadnej wartości lub wpisane zera, makro nie zaznaczalo żadnym kolorem???
Dzięki, spróbuję przetestować, ale teraz nie mam na to czasu. Oczywiście wiem, że kod jest nadmiarowy, ale nie napisałem go, jest wynikiem rejestracji czynności. Do tego chciałem, by tak zarejestrowane makro było odporne na niewielkie zmiany np. dodatkową kolumnę w tabeli. Stąd to zaznaczanie "od końca". Nie chciałem też definiować zbyt wielu komórek,...
https://obrazki.elektroda.pl/6549957800_... to może na konkretnym przykładzie: 1. zostały wstawione nowe wiersze od 13 do 16 2. chcę aby zostałe one wypełnione formułami tak jak komórki powyżej czy te z wiersza 12 ( kłopotliwe jest dla mnie każdorazowe zaznaczanie zakresu (Y12:BM12) bo to dużo komórek - aż nie mieści się na ekranie...
Siedziałem główkowałęm i rozwiązałem to trochę w inny sposób. Podziały stron zastąpiłem na podział sekcji Potem mały kawałek z wybieraniem kolejnej sekcji (tu musiałem dodać małe przesunięcie zaznaczenia aby pominąć zaznaczenie podziału sekcji bo wrzucało na PDF-ie pustą stronę na końcu) A potem Pdf z zaznaczenia przez Range := wdExportSelection Poniżej...
Nie wiem jak Calc w Open Office "czyta" makra napisane dla Excel,a. Nagraj jakieś makro w Excelu (kopiowanie, zaznaczanie komórek, zakresów, formatowanie itp), przenieś je do Calc,a i sprawdź czy dzieje sie to, co powinno (nie mam OpenOffice, żeby sprawdzić). Ewentualnie poczekaj na kogoś bardziej zaawansowanego. -------------- Dodano po 8 chwilach....
Udało mi się znaleźć i zmodyfikować kod :?: Coś mi się zdaje, że modyfikowałeś ten kod tylko klawiszem delete ? :D Wg Twoich przykładowych plików makro "uruchamiane" ma być ze zwykłego pliku i kopiować z pliku z makrem ??? :please: Proponuje Ci przygotować najpierw właściwy plik typu xlsm i cały transfer danych przećwiczyć pomiędzy 2 arkuszami - w...
Witam, - w czasie epidemii koronawirusa, w czasie robienia zapasów artykułów spożywczych, pomyślałem, że dla zinwentaryzowania tego co w lodówce, na regale w spiżarni i wszystkiego co może się zmarnować - bo mija data przydatności do spożycia, napiszę żonie makro. Myślę, że może się przydać, tym bardziej, że zauważyłem, iż ludzie z braku tego po co...
Genialnie :) O to właśnie mi chodziło!!! (at)cbrman - jesteś wielki :) Zapytam z ciekawości - czy dałoby się zrobić kolejny krok i przetwarzać w ten sposób foldery? Tzn mam makro w katalogu głównym i za pomocą tegoż makra przetwarzam wszystkie podkatalogi, które z kolei zawierają po 1000 Zeszytów, każdy składający się tylko z 1 arkusza o tej samej nazwie?
Witam, po raz kolejny dziś stanąłem przed ścianą. Mam problem z danymi które ściąga mi makro z kwerendą. W liczbach jest kropka oddzielająca całości od dziesiętnych co uniemożliwia mi ich obróbkę. Wymyśliłem sobie coś takiego co załączyłem poniżej. A więc kwerenda wrzuca mi dane w zakres komórek A2:C20 ja to kopiuję niżej i po skopiowaniu zamieniam...
Ej no zaraz zaraz... co Ty rozumiesz przez "kolejną dolną kolumnę"? Chodzi ci o zaznaczanie kolejnych komórek żeby nie pomyliła się przy przepisywaniu? Coś jak linijka i tabelka na kartce? Leczenie kanałowe zęba jest uporczywe :/ Taa
aby makro wiedziało ze w danym pliku jest np tylko 850 Zaznaczanie do kopiowania/przenoszenia/itp. bez używania tzw. zmiennych. Jeśli masz tabelę w arkuszu, a w tabeli wiersze w kolumnach zachowują ciągłość danych, tzn. brak jest pustych komórek, to można w ten sposób:[syntax=vbscript]Range("H1", Range("H1").End(xlDown)).Copy[/syntax]lu...
Cześć, Mam takie pytanie. Potrzebuję w jednej kolumnie aby makro zaznaczyło mi inne daty niż wczorajsza (pomijajać weekend) na jakiś kolor. Próbowałem poprzez conditional formatting przy użyciu formuły =WEEKDAY(TODAY();-1), ale coś mi nie działa. Próbowalem też formuły: [syntax=vbscript] lRow = Range("A" & Rows.Count).End(xlUp).Row Set MR = Range("M2:M"...
Super! Wszystko działa! Tylko mam jeszcze dwa małe problemy. Pliki, na których pracuję są eksportowane ze strony, i mają pewne wady. W miejscu Rodzaj kontraktu zamiast pustego pola jest spacja. Kod: [syntax=vb]Sub koloruj() For i = Range("A65526").End(xlUp).Row To 2 Step -1 If Cells(i, 5) <> "" Then Rows(i).Interior.ColorIndex = 15 ElseIf Cells(i,...
Co to jest ten "histogram" postawiony na prawej bocznej ściance ... ma jakiś taki ... "chiński wygląd" ... : ) ...
Proste Makro pięknie działa, ale po przypisaniu do wydarzenia arkusza,chyba się zapętla,(nie mogę dojść dlaczego?)Kombinowałem już na wiele sposobów [syntax=vbnet]Sub przeliczAZ() ' ' przeliczAZ Makro ' ' Application.ScreenUpdating = False Sheets("wplaty A-Z").Activate Sheets("wplaty A-Z").Range("A2:H6002").Select Selection.Clear Sheets("wpłatyH").Visible...
Dodać nowy moduł w VB, wkleić do niego kod i uruchomić. W celu ułatwienia użytkowania, można dodać przycisk uruchamiający makro do wstążki - nie posiadam wersji 2016 ale dla 2010 to należy zrobić tak: Opcje programu Outlook -> Dostosowywanie wstążki. W oknie po lewej - Wybierz polecenia z: Makra (zaznaczasz właściwą procedurę). W oknie po prawej...
Witam. W pracy muszę tworzyć formularze na podstawie tabelek, które podsyłają klienci. Dzięki korespondencji seryjnej większość danych takie jak imię, nazwisko etc. mogę bez problemu z tabelki przenieść do formularza w wordzie. Jednak niektóre rubryki nie są słowne, tylko są kwadraciki (tak/nie) które należy zaznaczyć. Próbowałem ugryźć jakoś temat...
Hej porztrzebuje stworzyc dwa makra pierwsze zaznaczające wszystkie pola wyboru w kolumnie A (w każdym polu żeby był ptaszek) a drugie usuwające wszystkie zaznaczenia z pól wyboru - prosiłbym o pomoc :)
Napiszę nowy wątek, choć dotyczy poprzednio wskazywanego przez mnie makra. Mam makro które ma za zadanie zaznaczyć tekst między {} lub || [syntax=vbscript]Sub ZnajdzPole() ' ' ZnajdzPole Makro ' Puszkiwania {pola edycji} ' Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Find.ClearFormatting With...
[syntax=vbscript] Dim Tmp As String On Error Resume Next For Each cell In Selection If Left(cell, 1) = "M" Then Tmp = "<nie znaleziono>" Tmp = Application.WorksheetFunction.VLookup(ce... Sheets("config").Range("A:B"), 2, False) If Len(Tmp) = 0 Then Tmp = "<brak nazwy>" cell.Offset(0, 4) = Tmp End If Next On Error GoTo 0[/syntax]
Z czym dokładnie masz problem? Nie napiszemy całego skryptu za Ciebie. Pokaz, co już masz, a wtedy doradzimy. Kolumnę zaznacza się tak: [syntax=vb]Columns(2).Select[/syntax]
a proszę zerknąć na screena co tak naprawdę kod zrobił Myślałem że to zamierzone (bo nie znam całego kodu) - choć jak się teraz okazuje nieświadomie. (więcej szczęścia :) ) Użyłeś odwołań względnych - poza tym formatowanie warunkowe ma pewne mankamenty jeżeli chodzi o adresowanie bo odwołuje się do zaznaczonej wcześniej komórki (a w makro nie ma żadnego...
excel 2010 problem rozwiązałem taka pętlą For i = 4 To 18 For j = 20 To 100 If Cells(i, 8).Value = Cells(j, 2).Value Then If Cells(j, 2).Value <> "" Then Cells(j, 2).Interior.Color = RGB(255, 0, 0) End If End If Next j Next i
makro zaznaczanie wierszy zaznaczanie wierszy zaznaczanie kolorem
ustawienia atheros ar5007 brother reset licznika bębna odbiornik satelitów
kolokwium obwody kolokwium obwody
Zmiana języka na polski w VIRONE VDP-67 Zmiana języka komunikatów w VIRONE VDP-67
