Jeżeli Twoje założenia są prawidłowe (np. nie mogą się wzajemnie wykluczać) to oczywiście można takie makro wykonać. Nie ma znaczenia co kolorujesz i gdzie się to znajduje. Wystarczy zaadresować komórkę i nadać jej kolor. Musisz opisać dokładnie z czym masz problem, bo na podstawie tego co napisałeś wcześniej zakładam że masz problem właśnie z adresowaniem...
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ć...
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]
[quote]Select Case kom.Value Case "." /quote] zamień na [syntax=vbscript]If InStr(1, kom, ".") > 0 then kom.Interior.ColorIndex = 1[/syntax]
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,...
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.
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...
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...
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 w załączniku ale myśle że to nie problem) W innym przypadku...
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.
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...
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
Czyli, że komórki są kolorowane ręcznie?
Ale w tym załączonym pliku nie ma żadnego kodu (format .xlsx). Odnosząc się do Twojego pierwszego postu, bo tam jest pełny kod, może być tak: [syntax=vbscript]Sub Makro4() ' ' Makro4 Makro ' ' Sheets("SPR").Select With Range("BI91:BL97,BK105:BL111,BK119:BL125... .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor...
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...
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:
No właśnie podstawa to zrozumienie :-). Chodzi Ci o to że jak jest godzina w danym przedziale to mają być odpowiednio kolorowane dane. Nie że dane zawierają informacje o godzinie :-). Jednak jak byś dał przykładowy plik to już by było dawno rozwiązane. Fakt rozwiązanie jest banalne. To jest rozwiązanie (koloruje tekst, jak chcesz wypełniać komórki kolorem...
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.
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...
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...
Jeśli system zero-jedynkowy, to zsumuj i jeśli >3, koloruj. Bez VBA zrealizujesz przez formatowanie warunkowe...
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...
Dzięki za już, ale jeszcze nie działa. Podany kod koloruje wszystkie komórki w podanym zakresie mimo, że nie spełniają warunku
Plik jest jeden i w nim są oba opisane makra. Pierwsze makro opisałem na początku postu nr 7; nosi ono nazwę "LiczX", a drugie makro, które opisałem na końcu postu nr 7, nosi nazwę "Makro1". Czyli mam 1 plik o nazwie: Kalkulator - Koszty Allegro v10f.xls w którym są 2 arkusze, a ich nazwy to: Kalkulator oraz Tablica wyników Odnośnie wymienionych niejasności...
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 PODAJ.POZYCJĘ czy wartość danej komórki jest w tablicy....
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...
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 pętla mieli A1 i na oko będzie mielić bez końca (pętla...
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 2") wsform.Range("C3:M3").Interior.Pattern.....
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...
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ść...
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...
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...
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),...
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:...
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 .ColorIndex = 41 .Pattern = xlSolid End With End If Next kom End Sub PS....
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.
Prosiłem o plik Excela, a nie o obrazek. Pytałem, jak to ma działać? Czy to makro ma reagować każdorazowo jak zmieni się kolor (rozumiem, że sprawdzana ma być kolumna C), czy ma być wywoływane okresowo (np. przyciskiem) i ma sprawdzać całą kolumnę pod kątem pokolorowanych duplikatów? Czy może wystąpić taka sytuacja, że jakiś wpis ma już kolor i ten...
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 = RGB(255, 255, 0) 'Kolorowanie wiersza przez określoną liczbę...
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 wartość "2910624111005 5000" występuje 1 raz, a w kolumnie...
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" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
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/...
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 komórka nie jest pokolorowana to ma pobrać datę...
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 arkusz z sformatowanym grafikiem o nazwie takiej jak...
Mam nadzieję, że o to chodziło, chociaż opis jest nieprecyzyjny. Nie wiadomo, co ma być po wpisaniu wartości nieliczbowej do kolumny B. Przyjąłem, że nic. Nie wiadomo, co z wypełnieniem komórek po wpisaniu wartości 0 (dodałem też <0, bo o tym nie piszesz): kolor tła ma się zmienić na czerwony, a wartości? Założyłem, że się nie zmieniają, tzn. jeśli...
... 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 zeszytu ' wzór1.xlsm ' robi właśnie to, o co kolega się zapytuje,...
Ze względu na to, że jestem przeciwnikiem stosowania makr tam, gdzie nie jest to absolutnie konieczne, to do formatowania wykorzystałbym Conditional Formatting i dodatkowe kolumny wyliczające poszczególne dane. Do tego musisz poprawnie obliczyć różnicę pomiędzy czasem przyjazdu Tp i czasem zakładanym Tz i jeśli Tp-Tz>0 wtedy kolorujesz komórkę na czerwono....
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
drabinki rezystorowe wrt54g instrukcja tomtom ekran startowy
1n914 zamiennik altus zwrotnica
Hyundai Santa Fe 2.7L – brak odczytu prędkości w ECU, czujnik VSS/OSS, ABS, CAN, P0501 Massey Ferguson 3060 – codzienne odpowietrzanie pompy sprzęgła, przyczyny, uszczelnienie
