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]
[syntax=vbscript]Sub ZnajdzPole() ' ' ZnajdzPole Makro ' Puszkiwania {pola edycji} ' 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 Not f Then Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1...
[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(,...
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...
Zobacz, czy o to chodziło. Zaznacza komórki na zielono lub czerwono wtedy gdy zarówno komórka testowana, jak i obie komórki określające przedział zawierają liczby. To zliczanie komórek zielonych i czerwonych - gdzie miałyby być wyświetlane wyniki? Tymczasem są w komórkach AI8 i AI9 w arkuszu T3.
I jeszcze jedno – dlaczego w makro – kolory nie zaznacza wszystkich takich samych komórek tylko niektóre Dlaczego uważasz że nie zaznacza takich samych? Podaj przykład na twoich danych. Tylko że miej na uwadze że dla funkcji CountIf() każdy znak ma znaczenie. Nie tylko wielkość litery ale i ... a nawet zwłaszcza spacja. Jest różnica między...
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
I co dalej z tym zielonym zaznaczeniem? Ma pozostać na stałe? Jeśli tak, to zobacz nowy załącznik.
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
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...
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]
Witam O to Ci chodzi? [syntax=vbnet]Range("C2:C" & Cells(Rows.Count, "B").End(xlUp).Row).Select[/syntax]
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...
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.
Ładne wzorki. Kiedyś ciekawił mnie temat spirali Ulama i taką spiralę zrobiłem w Excelu. Zaznacza liczby pierwsze. Plik w załączniku. Należy włączyć makra w Excelu. Akurat ja Excela nie mam, tylko zamiennik i mnie się to makro nie chciało uruchomić. A jakoś składnia bliska do VBA nie za bardzo mi leży, aby ten kod przystosować do mojego środowiska....
w tym przypadku zastosowanie formatowania warunkowego nie zdałoby egzaminu, dlatego bardzo dziękuje za makro :) niestety mam z nim jeden problem makro szuka pustych komórek I zaznacza na szaro komórki w wierszach w których są dane. Czy można zmodyfikować makro tak aby zaznaczało na szaro tylko te wiersze w których wszystkie komórki są puste?
Nie wiem, co dokładnie chcesz robić. Twoje makro zaznacza po kolei różne arkusze (nie wiem czy wszystkie, czy wybrane, bo są podane konkretne nazwy), ale tylko dwa z nich drukuje, wskazując wcześniej różne zakresy komórek do druku. Polecenie PrintOut to polecenie drukowania. Możesz przed nim dopisać warunek [syntax=vbscript]If Range("A1").Value = "x"...
Sub Makro2() ' ' Makro2 Makro ' ' Selection.Find.ClearFormatting Selection.Find.Font.Color = 5287936 With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute...
Cześć, Może ktoś podpowiedzieć jak działa to makro ? Tj gdzie tu jest wklej zawartość do pliku .. albo co zmienić aby to działało. https://www.extendoffice.com/documents/e... Generalnie mam arkusz z dużą ilością obliczeń i chcę część z nich zapisać do pliku CSV - to makro robi teoretycznie to co chcę tj zaznacza...
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...
Bez makra: - zaznaczasz arkusze w których mają być wprowadzone zmiany (CTRL+LPM na kolejnych nazwach arkusza "zakładkach" lub mając aktywny pierwszy arkusz w którym mają być przeprowadzone zmiany, trzymając SHIFT klikasz na nazwę ostatniego arkusza do zmian i zaznacza Ci się "zakres" arkuszy) - mając zaznaczone arkusze, w aktywnym arkuszu dokonujesz...
Dane do arkusza importuje makrem z innego pliku Dane się nadpisują Po makrze, któe importuje dane do arkusza, powinno być wywołane makro któe szuka najwyższa wartość w komórkach (B3, B4,B5) i zaznacza kolorem Makro chce uruchamiać przyciskiem W temacie podałem przykład lokalizacji danych Zostawiam przykład pliku ( tak on wygląda po kazdym imporcie)
[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]
Witam, Nie mogłem znaleźć nigdzie satysfakcjonującej odpowiedzi na dręczący mnie problem makra. Mianowicie, prowadzę magazyn za pomocą excel. Wprowadzamy dane skanerem, ale przy wydawaniu, wyszukujemy konkretny numer etykiety poprzez Ctrl + F a następnie zaznaczamy kolorem żeby potem zastosować filtrowanie przez kolor komórki. Teraz chciałbym zrobić...
Co to jest ten "histogram" postawiony na prawej bocznej ściance ... ma jakiś taki ... "chiński wygląd" ... : ) ...
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...
Witam, prowadzę magazyn w Excel. Przy wydaniach zewnętrznych korzystam z zaznaczania kolorem konkretnych artykułów, następnie filtrowanie i mam gotową listę do WZ. Mam stworzone makro które ułatwiło trochę proces, mianowicie, uruchamia się okienko wyszukiwania, po wpisaniu danych automatycznie zaznacza kolorem i tu pojawia się problem, ponieważ ponownie...
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...
https://obrazki.elektroda.pl/1484252200_... Witam, potrzebuję napisać makro, które będzie zmieniać kolor komórek w obszarze C25:H30 jeśli zawartość danej komórki, będzie równa zawartości z komórek C22 lub C23. W skrócie jeśli liczba w C22 to 7 to w ramce zaznacza się 7 na niebiesko.
Nie pochodzi z formatowania warunkowego. Wcześniej mam napisane makro, które zaznacza mi na kolor czerwony duplikaty oraz na kolor żółty puste pola w całym arkuszu danych. Teraz zadanko polega na tym, aby sprawdziło zaznaczone obszary kolorem wypisało w postaci tekstu w kolumnie wyznaczonej np: K tylko musi być po wierszach :) To makro które wstawiłem...
Jeśli chodzi o liczenie mój błąd - pisane na szybko Jeśli chodzi o makro to nie za wiele pomogłeś gdyby dało się to nagrać to bym to zrobił jestem zielony ale nie aż tak (w przypadku np 200 stron się nie sprawdzi), napisałem również makro które zaznacza obszar drukuje pierwszą stronę, ale nie mogę tego połączyć gdyby to było takie proste to nie zawracał...
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 :)
Witam, Napisałem makro, które z 3 podanych komórek szuka maksymalnej wartości w wierszu 1 i zaznacza kolorem. Chciałbym żeby to makro przeszukiwało wiersz po wierszu aż do 43 wiersza izaznaczało maks wartość w każdym kolejnym wierszu, czyli w wierszu 2 szukałoby po A2, D2, F1. [syntax=vb]Sub Color() Dim MaxValue Dim Cell As Range MaxValue = Application.WorksheetFunction.Max(Range(...
Napisałem proste makro, które otwiera plik, z którego mają zostać skopiowane dane, zaznacza i kopiuje potrzebne dane do innego pliku. Pozostaje mi dodanie instrukcji "if, która przed kopiowaniem będzie sprawdzać, czy dane w pliku źródłowym się nie zmieniły. Dziękuje za pomoc i mobilizacje do samorozwiązania problemu. [syntax=vbscript]Application.Calculation...
Witam, Staram się napisać makro, które zlicza ilość rekordów w przedziale od (B2:B2000) Zaznacza formułę w wierszach A2 i kopiuje ją do zakresu A3:A(wynik z liczenia +1) Nieudolnie napisałem coś takiego, ale nie wiem jak ustawić zakres odwołując się do wyniku z operacji liczenia... PS. Docelowo formuły będą się kopiować z kilku "zakresów" np. Range("D2:E2")...
(at)PRL już tłumaczę 1. W arkusz BAZA wklejam dane. 2. Uruchamiam makro 2.1 Makro ma zadanie sprawdzić kolejność liczb 2.2 Jeżeli znajdzie brakującą liczbę/liczby to wstawia w ten arkusz "BAZA" nowy wiersz/wiersze i w ten nowy wiersz/wiersze wstawia brakującą liczbę/liczby i zaznacza na kolor zielony 2.3 wstawione liczby przenosi do arkusza"brakujące"...
Witam, Posiadam w pracy pewien program zakładowy do którego muszę wklepywać numery zamówień. Jest to trochę męczące zajęcie, ponieważ na dzień mam 150 pozycji do wpisania a właściwie przepisania z arkusza w excelu. Każdy numer muszę przepisac lub wkleić osobno. Każdy numer zamówienia mam w osobnym wierszu, dlatego po kolei kopiuje sobie komórkę i wklejam...
Wielkie dzięki. Udało się :) Makro wygląda tak [syntax=vb]Sub Scalak() Dim dWkb As Workbook, wrs As Long, ostW As Long Dim dArk As String, katalog As String, nazwa As String, plik As String Const haslo As String = "1" 'tu wpisz has?o do plików Set dWkb = ThisWorkbook dArk = ActiveSheet.Name wrs = 1 katalog = "D:\Test\" plik = Dir(katalog & "*.xls")...
Witam, Mam pytanie o możliwość stworzenia makra które będzie kopiować wypełnione wartościami kolumny w dół zaznaczając komórkę A2, jednak przy kopiowaniu pomijało by wiersze dla których nie ma podanych wartości w kolumnach D i F: https://obrazki.elektroda.pl/8651122400_... Na chwilę obecną przy poniższym kodzie: [syntax=vbscript] Range("A2").Select...
Podobnie, jednak przedstawiony przez Ciebie sposób też nie działa. Wywala ten sam błąd 1004 Method 'SaveAs' of object'_Woorkbook'failed zaznacza tą linie >> ActiveCell.Value & ".xls" nie wiem już co robie źle. ehh
Witam, problem mój polega na tym, że mam potrzebę wydrukowania pewnego zakresu z komórek z innego arkusza za pomocą przycisku (etykieta na drukarce do etykiet). Rejestrowanie makra niestety kończy się na tym, że zaznacza zakres komórek w tym samym arkuszu i kończy się na oknie drukowania, gdzie jest do wyboru m.in. drukarka. Niestety jestem zielony...
Dzięki za odpowiedź ale.. chodziło mi o coś innego: Np. mam kolejno w wierszu (niezależnie czy to wiersz 10 czy 50) : B A ‘ Aktywna komórka A B B C ‘ Koniec zaznaczania A A C C Ustawiam się na pierwszej komórce A, włączam makro i chcę żeby zaznaczyło mi komórki od A (w dół) do danego słowa - w tym wypadku np. do C. *Czyli zaznacza wiersze...
Co mogłem przełączyć albo co się mogło stać? Jeszcze w tamtym tygodniu plik z makro działał - nie musiałem w kodzie deklarować zmiennych (a ,b itd) A teraz ten sam plik przy uruchomieniu okienka dialogowego żąda deklaracji zmiennych (makro zaznacza "a = " i w komunikacie pisze nie znalazł projektu ani biblioteki). Przy okazji a to string ale jaka to...
Pewnie makro masz w kodzie arkusza. Musi być w module... Jeśli to procedura zdarzeniowa, wywołaj je po nazwie (Call NazwaMakraInModule)
Działa prawie jak trzeba, jeśli w B1 wpiszę numer to obok numeru pojawia się to "Jest" Ale problem w tym że jak w B1 wpiszę inny, to "Jest" znika z poprzedniej pozycji i pojawia się w nowej. Ja bym potrzebował żeby to "Jest" zostało... Czyli skanuje numer, obok niego w kolumnie pojawia się "Jest", skanuje następny pojawia się drugie "Jest" itd się zaznacza
Witam, nie jestem w stanie znaleźć przyczyny nieoczekiwanego działania makra. Plik w załączeniu. W zakładce Summary sa 4 tabele przestawne ciągnące dane z dwóch zakładek i prezentujące dwa pivot itemsy dla każdej z zakładek: Bad goods i alert. Generalnie każda z tabel ma pokazać wszystkie wartości za wyjątkiem kilku, oraz pokazać je po odpowiednim posortowaniu....
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.
No jakoś mi nie wychodzi. Nagrałem makro, które wyszukuje dany "text", ale jak zapuszczam je to owszem znajduje ten tekst, ale nie przechodzi do tego miejsca focus. I jak dodam : Selection.Rows.Delete to nie usuwa tego wiersza, w którym jest ten tekst. Jak dodałem twój skrypt, to on cofa do pierwszego wiersza tabeli i zaznacza kilka wierszy. Mi chodzi...
makro zaznacza wiersz zaznacza wiersz zaznacza kolumna
odczytywać kondensator moduł impedancji falowej pamięć stosu
k53sv matryca scania diagnostyka
Napięcia 12V i 5V w zasilaczu Xbox 360 Slim Naprawa przewodów kostek radia Seat Cordoba