nagrywasz swoje czynności rejestratorem. 1. Włączasz rejestrator. Przypisujesz klawisz skrótu np "f". Makro uruchomi się ctrl+f 2. Zaznaczasz odpowiednie komórki kursorem, zmniejszasz je do właściwej wielkości i dajesz wypełnienie. 3. Zatrzymujesz rejestrowanie. 4. Otwierasz nowy arkusz. 5. Uruchamiasz...
Chciałbym żeby automatycznie kolorowały się komórki jak w załączonym pliku. Mianowicie jeżeli w wierszu występuje wyraz 'sob' lub 'ndz' automatycznie pokolorował całą kolumnę. Dorobiłem Ci makro. Znajdziesz go przez Alt + F11. Makro możesz edytować, jednak jego nazwa musi pozostać niezmienna.
Mam Excela, który zawiera 20 000 wierszy. Excel jest wypełniony datami - celem makra ma być wskazanie 50 pozycji od początku listy (C;F) od wiersza 5 do 55 i ich pokolorowanie na jakiś kolor (ma to być wizualny dodatek). Po oznaczenia pierwszych 50 pozycji makro ma sprawdzić datę z komórki D5 i jeżeli...
Można to zrobić na kilka sposobów, w zdarzeniu Change zeszytu 1 lub w zdarzeniu Activate zeszytu 2. Dla pierwszego przypadku użyłbym takiego makra: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$5" Then On Error GoTo myErr Set wsform = ThisWorkbook.Worksheets("Zeszyt...
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora"...
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,...
[syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range For Each Komorka In Target.Cells Select Case Komorka.Value Case "D49", "D48", "D30", "D31", "D32", "D33", "D20", "D21", "D22", "D26", "D27", "D28", "D29" Komorka.Interior.Color = vbBlue ...
Witam, Potrzebuję pomocy z makrem. Chcę aby funkcja działała na całą kolumnę. Próbowałem załatwić to Range ale wywala błąd Mismatch zaraz przed komenda kolorowania. Co chce żeby makro robiło: 1. gdy w kolumnie A nie ma słowa "zielony" a w kolumnie B jest słowo "duza", to komórka w której nie ma...
Witam, moim zadaniem jest napisanie makra, które będzie porównywać dwie kolumny. Jeżeli dana wartość występuje w pierwszej kolumnie oraz w drugiej, to komórka, w której ta wartość występuje, zostanie oznaczona kolorem żółtym. Niestety moje makro działa w ten sposób, że przykładowo: w kolumnie A...
Ok. Ale makro może robić nie tylko kolorowanie komórki. Niestety właczając makra, bo od pewnego czasu są przez Microsoft defaultowo wyłączone, zwiększamy szanse infekcji systemu. Choć moda na "wirusy" tego rodzaju chyba minęła...
Witam ponownie, chciałbym prosić o pomoc przy wyszukiwaniu tagów html o zmiennych parametrach. Aktualnie posiadam taki kod: [syntax=vb] Sub Makro1() Dim kom As Range, i As Integer, j As Integer For Each kom In UsedRange i = 1 If kom.Value <> "" Then Do i = InStr(i,...
Masz tutaj chyba to o co Ci chodziło.Możesz wybrać kolorowanie całego wiersza lub jego części. [syntax=vbscript]Sub kolor() Dim i As Integer 'Komórki od A1 do np.A10 For i = 1 To 10 If Cells(i, 1) = "" Then 'Kolorowanie całego wiersza Range(Cells(i, 1), Cells(i, 1)).EntireRow.Interior.Color...
Do kolorowania całego wiersza użyj kolekcji Rows. A co Ci w tym kodzie nie działa, bo u mnie koloruje?? Private Sub CommandButton1_Click() For Each kom In Range("c9:c1000") ... If kom.Value = "Nazwisko" Then With Rows(kom.Row).Interior ...
Prace nad kodem makra posunęły się naprzód :D . W chwili obecnej jest już gotowe wpisywanie ścieżki dostępu i wpisywanie zakresu danych do kopiowania. Pozostaje jeszcze problem, że musze wpisywać zakres danych do kopiowania dla każdego pliku osobno (zakres danych do kopiowania mam taki sam we wszystkich...
Dzień dobry, od dłuższego czasu szukam sposobu na zaznaczanie w Excelu wiersza i kolumny aktywnej komórki. Internet jest pełny rozwiązań wykorzystujących formatowanie warunkowe lub wprost kolorujących te wiersze i kolumny, znalazłem jednak leciwy już, ale fenomenalny w swojej istocie kod, który zamiast...
Skoro raport ma 300000 wierszy, to zmienna i musi być zadeklarowana jako long. W którym miejscu Twoje makro się zatrzymuje? A tak w ogóle to zamiast mozolnego porównywania każdej komórki z elementami tablicy przy pomocy pętli to poszedłbym w sprawdzenie przy pomocy odpowiednika arkuszowej funkcji...
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...
Nie rozumem o co chodzi z tym leczeniem kanałowym i co to ma do dolnej kolumny... Ogólnie ciekawy pomysł... dolna kolumna... Biorąc kod marcimix wyszło takie coś: [syntax=vb]Type iCell Row As Integer Col As Integer End Type Sub ColorNext() Dim C As iCell Dim r As Range ...
Mam problem z dokończeniem makra w vba, mianowicie chce wyszukać wyrazy (znaczniki html) wpisane do komórek w excel-u, w całym arkuszu. Arkusz posiada 5 kolumn i około 6000 wierszy. Po wyszukaniu wyborderować i zmienić kolor ich czcionki na czerwony. Zdaje się, że źle się do tego zabierasz. Na razie...
(Miniaturka przedstawia zrzut ekranu z mojego prywatnego pliku Excela z projektami; zrealizowany jest on metodą którą opiszę poniżej) Witajcie moi drodzy Zapraszam do lektury mojego nietypowego tematu przeznaczonego dla elektroników amatorów i hobbystów wykonujących własne projekty. Przedstawię...
Nie jest to sortowanie, ale może wystarczy ci dodać kolumnę z rankingiem. (w przypadku dwóch takich samych wyników będzie np dwóch z nr 3 ale nie będzie 4 tylko od razu 5) Można dodać jeszcze formatowanie warunkowe i "kolorować" złotem pierwsze miejsce sredbrem drugie i brązem trzecie. (tego nie ma...
Witam Wszystkich, Postanowiłem napisać od początku do końca rozwiązanie problemu ze zliczaniem kolorów "dla zielonych". Być może komuś na przyszłość się to przyda. 1. Otwórz Arkusz excel 2. Wejdz w Plik/Zapisz jako tutaj wybierz z listy Zapisz jako typ: Skoroszyt programu Excel z obsługą makr...
Makro nie jest szybsze, ale... Jeśli u ciebie problemem jest formatowanie warunkowe to makro może faktycznie zachowywać się lepiej bo po jego wykonaniu dostaniesz statycznie pokolorowane komórki. Sam tak kiedyś robiłem. Potrzebowałem by co druga komórka była innego koloru i wtedy wydawało mi się, że...
Bomba - działa super. Jest tylko jeszcze jeden drobny "mankament". Mam w kilku miejscach na mapie wpisane dodatkowe opisy - no i one kolorują się na zielono (nie było tego w przykładzie, więc jest to pominięte - wyszło dopiero w pracy). Kod działa prawidłowo, bo szuka "niepustej komórki", ale proszę...
Dzień dobry, Bardzo proszę o pomoc z makrem, potrzebuje pętle które będzie miała za zadania kopiowanie i wklejanie w odpowiednie komórki między arkuszami aktualnie mam napisane makro ale niestety sam nie potrafię jeszcze stworzyć takiej pętli Dodano po 3 Mam już coś takiego ale jeszcze...
Jak już odpowiadałem Ci na PW Gdybyś poczytał dokładnie wszystkie wpisy z Twojego wątku (również z tego podlinkowanego) to miałbyś sporą kopalnię wiedzy nt "zliczania kolorów" :please: Na początek zatem trzeba ustalić, że: - metody liczenia kolorów tła komórki dotyczą jedynie formatowania ręcznego...
Makro reaguje na zmianę wartości w komórce. Jeśli pierwszy wiersz jest "FPS", określa ostatnią komórkę z wartością w kolumnie. Począwszy od 2 wiersz do ostatniej wartości koloruje. Dodano po 16 Oto mały fix, gdyby w zakresie niewypełnione komórki Dodano po 11 Czy chcesz malować kolumna...
Pkt. 1 wystarczy funkcja Jeżeli. Pkt. 2 tu już trzeba raczej makro, albo formatowanie warunkowe (tylko kolorowanie błędnej komórki)
Czyli, że komórki są kolorowane ręcznie?
Częściowo dobrze. Jeszcze: - Po kolorowaniu składni na forum widać, że we fragmencie: Czy dobrze rozumiem, że w pewnym momencie w excelu będę musiał sam wstawić mu formuły? Jeżeli tak to odpada - z pliku będą korzystały też inne osoby No to już zależy od Ciebie - jeżeli w danej kolumnie nie musi być...
Koloruje tylko komórkę A1. Jak ustawić zakres np B2:E6 ?
Jeżeli w dokumencie w którym ma to podświetlenie działać układ tabeli jest taki sam, czyli dwie pierwsze kolumny to imiona i target a potem w czterech kolumnach są dane, to wystarczy wejść do edytora VBA, czyli Alt+F11, w oknie w lewym górnym rogu kliknąć nazwę arkusza w którym są dane (w załączonym...
Sprawdź takie rozwiązanie. W momencie dowolnej zmiany w arkuszu uruchamiane jest makro updateOne z adresem komórki, która jest do pokolorowania. Jeśli masz czysty arkusz i chcesz wszystkie istniejące komórki pokolorować, uruchamiasz makro updateAll, które przespaceruje się po całym arkuszu. W...
Wielkie dzięki za pomoc! Zmieniłem trochę twój kod do moich celów. W twoim kodzie makro kończyło pracę gdy w pierwszej kolumnie napotkało pierwsza pustą komórkę. Potrzebowałem mieć pewność, że wszystkie dane zostaną skopiowane. Dlatego też zmieniłem pętle DO WHILE na pętle FOR i użyłem funkcji ...
Formatowanie komórek w dniu wolnym mam już zrobione. Zgodnie z polityką firmy dzień wolny ma być oznaczony jako x w miejscu godziny rozpoczęcia i w tam gdzie jest ilosć godzin. Mam makro ktore po wpisaniu x w komorce obok wpisuje mi w i koloruje komorkę. Mam też makro ktore po kliknieciu generuje mi...
Witam Mam plik grafiku pracowniczego i napisałem makro sprawdzające czy ilość w danym tygodniu jest zgodna, czyli wynosi 48h dla pracownika. Jest trzech pracowników i makro działa na pracowniku Edyta w pierwszym tygodniu, ale jeżeli ilość godzin jest poprawna, co sprawdzam warunkiem: Poprawiłem...
Cześć, mam pytanie w jaki sposób za pomocą makra wyszukać wszystkie kropki w komórkach (niezależnie od ciągu znaków), a następnie pokolorować je na czarno. Funkcja ma działać tak jak Ctrl+f i wyszukanie: „*.” Jak to zapisać za pomocą makra? Moje makro wyszukuje i koloruje tylko samą kropkę,...
Mam następujące pytanie: W Excelu mam zrobiony grafik pracy dla kilku osób. W jaki sposób zrobić formułę (lub coś podobnego np makro) która kolorowała by komórkę, lub zmieniała kolor czcionki w sytuacji kiedy przerwa pomiędzy zmianami jest mniejsza niż 10 godz. Zapis w komórkach mam w formie - 6,...
Nie wiem jak zmieniasz miesiąc i gdzie jest on podany. Musisz wykryć zmianę miesiąca, po zmianie miesiąca wywołujesz makro które ustawia im kolor kolor biały, potem w drugim kroku ponownie sprawdzasz wartości w komórkach w kol. M, jeżeli jakaś ma N to kolorujesz cały wiersz. Drugi krok wykonujesz...
ylo zaznaczone tylko 6 bo tyle jest par Prawdopodobnie chodzi o coś takiego: [syntax=vb]Sub FindUniq() Dim a, b As Byte Dim r As Range Dim re As Range Dim maxIndexA, maxIndexB, aa, bb, bc As Integer a = 2 'kolumna do zakolorowania b = 40 'kolumna śmieciowa ...
... które firmy w ogóle nie mają w kolumnie J "OK" i zliczało je także do Arkusz2 w zależności od kodów z kolumn A i F ... :?: :?: :?: Kolega załączył właśnie sam rozwiązanie swojego własnego problemu - 'eleganckie' makro ' FirmyBezOk ' oparte na słowniku, które znajduje się w module...
