Możesz wykorzystać "formatowanie warunkowe".
Musisz się zdecydować - czy ma kolorować po uruchomieniu makra, czy po zmianie zawartości komórki.
Hej wszystkim :) jestem zupełnie zielona w excelu. Potrzebuję zrobić proste makro (przez rejestrację) kolorujące komórki arkusza tak aby powstały moje inicjały (WW) w kolorze niebieskim. Makro powinno zmieniać wymiary komórek całego arkusza do kwadratów 2x2. Następnie powinno kolorować komórki tak aby powstały moje inicjały. Drugie makro powinno czyścić...
No, w ten sposób świata nie zawojujesz ;-) Musisz to zrobić w pętli. Spróbuj tak. [syntax=vbscript] Option Explicit Sub kolory() Dim myRangeA As Range, Kom As Range Set myRangeA = Range("A2:A150") For Each Kom In myRangeA If Not Kom = "zielony" _ And Kom.Offset(0, 1) = "duza" _ Then Kom.Interior.ColorIndex = 31 If Kom = "zielony" _ And Kom.Offset(0,...
Jakos tak [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B5:B24")) Is Nothing Then If Application.CountIf(Target.Offset(, 2).Resize(1, 4), Target) = 0 Then Target.Interior.Color = vbRed Else Target.Interior.ColorIndex = xlNone End If End If End Sub [/syntax]
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...
[quote]Select Case kom.Value Case "." /quote] zamień na [syntax=vbscript]If InStr(1, kom, ".") > 0 then kom.Interior.ColorIndex = 1[/syntax]
Bardzo wam dziękuję! Podziałało i znacznie ułatwi mi to pracę. Skoro, ktoś już się moim tematem zainteresował, potrzebowałbym jeszcze 3 makr, także starałem się coś wykombinować, ale ciągle mam jakieś błędy.. 1) Jeżeli któraś z komórek w kolumnie E, ma wartość "kontrakt deaktywny", makro koloruje cały wiersz w którym jest ta komórka na czarno. 2) Jeżeli...
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, 12, W, L4, 14, 20, 22 itd...
Pkt. 1 wystarczy funkcja Jeżeli. Pkt. 2 tu już trzeba raczej makro, albo formatowanie warunkowe (tylko kolorowanie błędnej komórki)
Możesz wrzucić plik z przykładowymi danymi (kilka wierszy)? Nie jestem pewien o jaki sposób "kolorowania" chodzi.
Witam Rozpoczynam swoją pracę z VBA w excelu i chciałbym zrobić szachownicę, tak żeby dla co drugiego wiersza, kolumny kolor tła komórki był czarny. Byłbym wdzięczny za pomoc :) w napisaniu takiego makra
Witam. Szukałem w sieci swojego rozwiązania ale nie potrafię tego przekuć w program lecz mogę podać algorytm co może trochę wyglądać śmiesznie ale tak najszybciej potrafię coś zobrazować ;) Excela dopiero co poznaję. Formuły jako tako opanowałem ale w pewnych momentach podczas przeliczania excel zamraża mi się na dłuższy czas. Program zrobiłem też na...
Czyli, że komórki są kolorowane ręcznie?
Jak C22:C23 będą puste, to kod nic nie pokoloruje na niebiesko. Ja mówię o kodzie prezentowanym na zdjęciu przez autora :D tam wszystkie komórki jeśli są niepuste kolorowane są na colorindex 33 - czyli jasno niebieski :ok:
Wprowadziłem formuły i formatowania warunkowe do komórek arkusza BAZA i po wpisaniu nowego kodu, istniejącego w BAZA_ETYKIET, wyszukuje ilość z BAZA_ETYKIET i odpowiednio kolorują komórki arkusza BAZA.
Nie działa mi to :/ Widzę, że to zmienia kolor tylko tej komórki a pytanie jak zrobić żeby kolorowało zakres.
Jeśli system zero-jedynkowy, to zsumuj i jeśli >3, koloruj. Bez VBA zrealizujesz przez formatowanie warunkowe...
Dzięki za już, ale jeszcze nie działa. Podany kod koloruje wszystkie komórki w podanym zakresie mimo, że nie spełniają warunku
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.
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 Excel.ActiveSheet.Columns(a).Copy Columns(b) Excel.ActiveSheet.Columns(b).RemoveDupli... 1...
bo nie zakończyłeś "With" cały blok musi się kończyć "End With". Dzięki. Teraz nie pokazuje mi błędu, ale chyba coś w formule jest źle, bo nie koloruje mi komórek. Generalnie chodzi o to, że makro miałoby sprawdzić w arkuszu "SPR", czy liczba w komórce "C81" podzielona przez 4 daje liczbę całkowitą. Jeżeli nie daje liczby całkowitej to w tym samym...
A w VBA to będzie coś takiego (tylko z indeksami kolorów i ewentualnie warunkami można trochę pokombinować): [syntax=vb]For Each kom In Range("A1:A23") If IsDate(kom) Then If kom >= Date - 2 And kom < Date Then kom.Interior.ColorIndex = 45 ElseIf kom >= Date - 7 And kom < Date Then kom.Interior.ColorIndex = 3 Else kom.Interior.Color = xlNone...
Cześć, obecnie przygotowuję finalną wersję makro na potrzeby pracy, jednakże napotkałem pewien problem. Otóż potrzebuje aby dzięki VBA kolorowały się wiersze na podstawie dwóch komórek. Problem jest taki, iż ilość danych jest spora (różnorodność wierszy), zmienia się ilość wierszy oraz danych, a samo makro musi kolorować co drugi obszar (wierszami),...
Możesz zastosować taką funkcję UDF: [syntax=vbscript]Function Biale(rng As Range, pat As Range) As Long Application.Volatile Dim cel As Range For Each cel In rng If cel <> "" And cel.Interior.Color = pat.Interior.Color Then Biale = Biale + 1 End If Next cel End Function [/syntax]Funkcja powinna być umieszczona w module uniwersalnym. Pierwszym...
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 momencie, gdy usuwasz zawartość komórki albo wprowadzisz...
A z czym konkretnie masz problem? Potrafisz otworzyć te pliki? Potrafisz utworzyć te klucze (sugeruję nie zwykłe łączenie stringów, ale dodanie jakichś separatorów)? Potrafisz porównać dane w obu plikach (a może arkuszach - zastanów się czy nie będzie wygodniej skopiować dane do arkuszy pliku z makrem)? Zamiast kolorowania lepiej jest użyć prostej sztuczki:...
Witam Jak należy uprościć poniższy kod, aby kolorowanie komórek odbyło się bez ich zaznaczenia. Czyli jak należy zlikiwidować te select i selection [syntax=vbscript]Sub Makro4() ' ' Makro4 Makro ' ' Sheets("SPR").Select Range("BI91:BL97,BK105:BL111,BK119:BL125... Range("BK154").Activate With Selection.Interior .Pattern...
https://obrazki.elektroda.pl/2598050500_... Witajcie, chciałabym napisać makro, które będzie łączyć komórki tak jak zrobiłam to ręcznie w przypadku E01 i E02. Z pomocą formuł wypełniają mi się pewne komórki, a następnie komórki zawierające jakiś tekst kolorują się na wybrane kolory. Ostatnim etapem jest złączenie ich w jedną całość...
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 w pętli. To chyba będzie najprostsza i najszybsza metoda.
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 E, ale "FPS" w innej kolumnie(np. B)? Wtedy byłoby inne podejście...
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, LCase(kom.Value), "<") If i = 0 Then Exit Do 'tu warunek opuszczenia /konieczny/...
Witam, potrzebuję makro do scalania wielu plików z danymi w jeden. Wszystkie skoroszyty do scalenia znajdują się w jednym folderze, dane do scalenia są zawsze w pierwszym arkuszu i mają jednakowe obszary. Jako, że nie bardzo radzę sobie z VBA, skorzystałem z dostępnego makra, które później lekko zmodyfikowałem do własnych celów. Jednakże pozostało mi...
makro podświetlenie komórki makro wyszukiwanie komórki adres komórki makro
gorąc głowica pracuje silnik wyjęciu kluczyka peugeot wytrawianie kwasem
lodowka whirlpool odsiarczanie akumulatora
Kenwood A-74 i Kenwood T-74L – podłączenie bez korektora, pętla ADAPTOR, zwory RCA Moretti 4T 80 cm³ – oryginalne rolki wariatora 16x13 mm 6,0 g, GY6 139QMB, tuning