Witam [syntax=vb] Sub myRGB() For r = 1 To 50 Cells(r, 4).Interior.Color = RGB(Cells(r, 1), Cells(r, 2), Cells(r, 3)) Next End Sub [/syntax]
[syntax=vbnet]Sub test() For Each i In Range("C3:AE60") If i.Value = "R" or i.Value = "C" Then i.Interior.ColorIndex = 4 Next End Sub[/syntax]
lub =MOD($A1;2)=0 - jak 30, 31, 1, 2
Witam, spróbuj tak (w Excel 2007 lub nowszym): Zaznacz komórkę z datą następnego badania, kliknij: formatowanie warunkowe -> reguły wyróżniania komórek -> większe niż... -> w okienku, które się otworzy wskaż komórkę w której masz obecną datę i dopisz "+31" (bez cudzysłowów) lub taką wartość dni ile potrzebujesz. Czyli w tym okienku będziesz miał np....
To w ogóle nie jest możliwe, ani formatowaniem niestandardowym, ani za pomocą VBA. Za pomocą formatowania niestandardowego ( kodem formatu) można nadać kolor tylko całej liczbie, a nie poszczególnym cyfrom, przy czym mogą to być różne kolory czcionki w zależności od wartości liczby (ale cała liczba musi mieć ten sam kolor czcionki). Za pomocą VBA można...
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...
Nieco w tom stylu
Mi wyszło tak - już zmieniłem :) Edit: Wklej w kod arkusza Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False For x = 1 To 65536 If Cells(x, 1) = "" Then Exit For Select Case Cells(x, 1) - Date 'odejmujemy daty i w zależności od wyniku Case 0 To 30: Rows(x).Interior.ColorIndex...
I może warto zwrócić uwagę, że kolory czcionki poszczególnych znaków i słów można zmienić tylko w stałej tekstowej. Nie można w ten sposób modyfikować liczb ani wyników formuł. W tym drugim przypadku może być tylko jeden wspólny kolor czcionki dla całej komórki.
Tak jak kolega powyżej napisał. Menu Format> Formatowanie warunkowe... , a następnie tak należy wypełnić wszystkie pola: http://obrazki.elektroda.net/61_12284089...
(at)e-mega , masz rację, arkusz jest tajny/ poufne :D Krzty komórki nie mogę nawet na przykładzie dać do rozważania. Dlatego dałem algorytm, który moim zdaniem jest łatwiej zrozumieć niż przykład ;) Przypomnę: A) kolumna $A Arkusza2 - data (rok-msc-dz) B) kolumna $AA Arkusza1 - dni tygodnia lub puste komórki (Pn, Wt, itd) C) kolumna $Z Arkusza1 gdzie...
Formatowanie warunkowe - reguły wyróżniania komórek
Skoro już VBA, to można rozwinąć funkcję "LiczKolor" do "LiczKolorJeżeli", Np [syntax=vbscript]Function LiczKolorIf(zakres As Range, wzor As Range, var As Range) Dim kom As Range Dim suma As Double Dim kolor As Integer suma = 0 kolor = wzor.Interior.ColorIndex For Each kom In zakres If kom.Interior.ColorIndex = kolor And kom.Value = var.Value Then suma...
Reguła dla koloru zielonego: [syntax=text]=($D4="Komplet")*($F4="Komp... dla koloru czerwonego: [syntax=text]=($D4="Brak")*($F4="Brak")*... pomarańczowy jest dopełnieniem, więc może być reguła [syntax=text]=PRAWDA[/syntax]umieszczona jako ostatnia. Można też zastosować...
Należy oprogramować zdarzenie SheetChange skoroszytu. Wykrywa ono równocześnie, w którym arkuszu i w której komórce nastąpiła zmiana. Kod: [syntax=text]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address <> "$F$6" Then Exit Sub If IsNumeric(Target) And Target > 0 Then Sh.Tab.Color = vbRed Else Sh.Tab.Color...
1. Zmiana koloru nie jest zdarzeniem, więc musisz uruchamiać makro (w ostateczności można wykorzystać 'SelectionChange', ale ma to w tej sytuacji swoje minusy) Następna sprawa, to skąd Excel "ma wiedzieć" jaki kolor był przed zmianą? Potrzebna byłaby tabelka w dodatkowym arkuszu kolor>zakres obszaru wydruku. 2. Myślę, że wystarczy zwykłe JEŻELI(Arkusz1!suma>160;Arkusz1!suma-160...
zerknij na to rozwiązanie Funkcja transponuj, a w formatowaniu warunkowym kolorem białym odznacza wartości na kolor biały. Pozdrawiam
A bez makr, skryptów itp itd się nie da? ;) Niestety, nie. Możesz użyć funkcji użytkownika podobnej do tej Function LiczKolory(zakres As Range, kolor As Integer) For Each kom In zakres If kom.Interior.ColorIndex = kolor Then LiczKolory = LiczKolory + 1 End If Next End Function Wklejasz do modułu standardowego i używasz jak funkcji Excela tzn...
Możesz tak przygotować arkusz aby wynik Twojej funkcji był skopiowany do innej komórki. Wtedy można użyć prostego kodu: [syntax=vb] With Sheets("Arkusz1").Range("C8") .Characters(1, 10).Font.ThemeColor = xlThemeColorLight2 .Characters(11).Font.ThemeColor = xlThemeColorLight2 End With [/syntax] Kod koloruje pierwsze 10 znaków tekstu w komórce C8 na kolor1...
Tylko, jeżeli warunki formatowania określone formułami Ponadto uważnie patrzeć na warunki formatowania(zakresy) W porządku, jeśli komórki nie są bardzo wiele.
Sprawdź w załączniku, czy o to chodziło. Dopisałem procedurę Workbook_Open, która tworzy kształt w arkuszu Arkusz1 (nazwa kodowa) przy otwieraniu skoroszytu (jeśli go nie było) lub zmienia kolor na biały (jeśli był). Dopasuj sobie jeśli ma być w innym arkuszu.
Witam.Aby wejść w tryb serwisowy potrzebny jest oryginalny pilot Schneidera ( tzn. musi generować odpowiednią sekwencje przy naduszeniu naraz dwóch przycisków-czerwonego i niebieskiego).Sposób wejścia w tr. serwisowy podał już Kolega w poprzednim poście.Zawsze po inicjalizacji wymagana jest drobna korekta geometrii.Pozdrawiam.SKORBI.
To zależy jaki użyjesz jako Kolor1. Prościej będzie przerobić funkcję, gdzie drugim argumentem będzie komórka "wzorcowa". Np [syntax=vb]Function LiczKolory(zakres As Range, kolor As Range) idCol = kolor.Interior.ColorIndex For Each kom In zakres If kom.Interior.ColorIndex = idCol Then LiczKolory = LiczKolory + 1 End If Next End Function[/syntax]Użycie...
Np. takie uzupełnienie: [syntax=vbscript]If Kolor = r.Font.Color And IsNumeric(r.Value) And Len(r.Value) > 0 Then[/syntax]
Musisz otworzyć edytor VBA i wejść w edycję kodu dla arkusza w którym przechowujesz dane. Następnie wklejasz to: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:E10")... Is Nothing Then Target.Interior.ColorIndex = 6 End If End Sub Element Range("A1:E10") musisz dostosować do...
Wartość komórki mniejsza/większa niż ="DZIŚ" A tak próbowałeś bo powinno zadziałać: Wartość komórki mniejsza/większa niż =DZIŚ() Oczywiście wprowadź jeszcze do warunku jakiś format.
Warto dodać w tytule, że chodzi o program Excel. Tabelki można tworzyć w najróżniejszych programach.
Źle Ci podałem, bo stała 'wd' nie jest znana z poziomu Excela, lecz Worda. To i tak nie ma znaczenia w tym przypadku, bo czarny i tak ma wartość 0. Natomiast zmień linię : Nie wiem czy to coś zmienia ale dane są w tabelce w excelu To gdzie w końcu chcesz zmienić kolor?
I dalej nie ma załącznika. Czy to ma być ten sam kolor wszystkich liter we wszystkich kolumnach? Jeżeli tak, to należy zaznaczyć zakres do formatowania (można to też zrobić później, w ramach modyfikacji) i jako formułę wpisać np. [syntax=text]=A11=A$11[/syntax] (warunek zapisujemy dla pierwszego wiersza zakresu). Przykład w załączniku.
Nie widzisz zależności od kolumny A, bo wprowadziłeś sobie mylące oznaczenia kolumn. Kolumna, którą sobie oznaczyłeś jako A jest dla Excela kolumną B itd. jest przesunięcie o jedną literę.
Pierwszą część możesz wygodnie zrealizować przy pomocy procedury zdarzeniowej, gdzie warunkiem jest zaznaczenie minimalnej ilości komórek (można ograniczyć do zakresu, kolumn, etc). Przykład dla zaznaczenia >3[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 3 Then For Each kom In Target If kom.Row / 2 =...
Cześć jak najbardziej jest to możliwe na google sheets :) Zakładając, że rozumiem, czego potrzebujesz. Klikasz w komórkę A3 -> menu Formatuj -> Formatowanie warunkowe -> Reguły formatowania -> Niestandardowa formuła to -> =JEŻELI(A3=C3;1) lub =IF(A3=C3;1) Pozostanie zmienić kolor tła i pododawać pozostałe reguły. https://obrazki.elektroda.pl/4684130600_...
Wprowadz inny warunek: [syntax=vb]... If InStr(1, kom.Value, "Z WYS") > 0 Then ...[/syntax]
gdzie przykladowy plik?
Temat był wałkowany kilkakrotnie na forum. Wystarczy wcisnąć szukaj. W formatowaniu warunkowym musisz wpisać warunek który jeżeli zostanie spełniony "tak i tak" sformatuję komórkę czyli np zmieni jej barwę tła. Warunek: = (komórka z datą < DZIŚ()+90) Jeżeli spełniony włącz pomarańcz W przykładzie masz dwa warunki - czerwony dla dat minionych.
Jeżeli te pionowe zakresy są komórkami scalonymi, to nic z tego. Jeżeli usuniesz scalenie, to masz co najmniej dwa wyjścia: 1. Wstawić np. iksy w tym samym kolorze co tło i sprawę załatwisz funkcją: JEŻELI(ORAZ(warunki)) w połączeniu z funkcją TERAZ. 2. Zastosować VBA wykorzystując właściwość Interior.ColorIndex komórek. Dodano po jakimś czasie: 3....
Zamiast zmieniać kolor wypełnienia wystarczy zmienić kolor czcionki. http://obrazki.elektroda.pl/3929297800_1...
Nie bardzo zrozumiałem - chcesz wpisać "tekst" jak komórka jest pusta, wtedy już nie będzie pusta. Takie działanie nie ma sensu. Ale mógłbyś to zrobić w innej komórce, czyli: (przykładowo) Jeśli komórka A1 jest pusta, wpisz w B1 "tekst", inaczej wpisz wartość A1 1: w komórce B1 formuła =JEŻELI(A1=0;"tekst";A1) 2: W komórce A1, wartość 0, pusta lub inna
Formatowanie warunkowe - już pisałem. http://obrazki.elektroda.pl/2008726500_1...
W załączniku.
Ponieważ pisałem że nie pomagam na PW więc tu zamieszczam przykład który jeszcze dostosuj do siebie. W środku jest kod przedstawiony przez kolegę pitemxa dla jeszcze dwóch kolorów. Podobnie dla tła Jak wiesz już jaki jest "kod grubej czcionki to zapewne sobie poradzisz w przekształceniu kodu. Jak nie wiesz to nagraj makro i popatrz na nagrany kod. "wyłuskaj"...
W drugą stronę jak najbardziej. Ale jeśli kolor wypełnienia wstawiasz ręcznie z palety (nie w wyniku formatowania warunkowego), to pozostaje makro lub funkcja użytkownika (też w VBA) z wykorzystaniem Interior.ColorIndex zakresu. Excel nie ma wbudowanych funkcji odwołujących się do właściwości formatowania komórek.
Jeśli chodzi o formaty plików, to dla mnie też to jest irracjonalne (ale widocznie osoby odpowiedzialne za to forum nie czytają wpisów), ale format .xlsm jest odrzucany. Pliki z makrami trzeba przesyłać albo w starym formacie .xls, albo zapisywać do archiwum (.zip, .rar) i dołączać w tej formie. A jeśli chodzi o warunkowe wykonywanie kodu, to przeanalizuj...
formatowanie warunkowe menu format
Masz tam dwa rodzaje makr - jedna grupa tylko zmienia kolor tła, druga grupa zmienia kolor tła i dodaje tekst. Nie wiem, czy chcesz ograniczyć działanie wszystkich makr do kolumn C i L, czy tylko tych, które wpisują tekst. W każdym razie do każdego z makr, które mają mieć ograniczony zakres dopisz na początku (pod nagłówkiem) takie 3 wiersze: [syntax=vbnet]...
W pliku zamkniętem formuły nie będą działać zawsze, w każdym przypadku, nigdy nie widziałem. Dodano po 6 W przypadku prostym może być formułą =JEŻELI(DZIŚ()<'komorka_z_data';"";"T... Dodano po 2 Można użyć formatowania warunkowego (kolor)
Zmień formatowanie danych - Opcje serii -> Wypełnienie punktu danych z automatycznego na konkretny kolor.
Możesz przy formatowaniu warunkowym ("Komórka nie zawierająca pustej wartości" zaznaczyć więcej niż jedną komórkę lub np wiersz i zaznaczyć opcję zatrzymaj gdy warunek jest prawdziwy wtedy podświetlą się tylko komórki posiadające wartości. Minus to taki, że to trzeba zrobić dla każdego wiersza/kolumny z osobna.
Witam Mam arkusz danych, w tabeli są tylko dwa kolory czcionek, czarny i czerowny , kolor jest zmieniany manualnie (czarny zapłacone, czerwony niezapłacone). Szukam sposobu na proste sumowanie komórek w kolumnie na podstawie zdefiniowanego koloru czcionki, Dziękuję za pomoc. Dariusz
Cześć witam wszystkich chodzi mi o makro które zmienia kolor tła kształtu , Kształty to trzy kwadraciki na arkuszu 1 , na arkuszu 2 znajdują się trzy przyciski , i chodzi mi oto żeby po wciśnięci przycisku zmieniał się kolor wypełnienia danego kwadracika mama takie makro ale to makro jest na aktywnym arkuszu a mi chodzi żeby cały czas pozostawać na...
Witam przesyłam przykład. Po ściągnięciu proszę zmienić rozszerzenie na xlsm, wysłałem w txt gdyż inaczej nie przechodził. W polu AI3 chciałbym żeby funkcja liczyła ilość komórek ze słowem "uk" (w komórce AI1 podaje słowo oraz wybieram kolor czcionki i tła) Funkcja ma zliczać ilość wystąpień w danym zakresie.
Wystarczy zwykła pętla z wieloma warunkami. Zobacz przykład (funkcja VBA) w [url=http://www.elektroda.pl/rtvforum/to... temacie.
Można oczywiście użyć 'InStr', ale to zupełnie inna konstrukcja wyrażenia. Natomiast tu prościej zamiast operatora "=" użyć operatora "Like". Operator "=" nie uwzględnia znaków zastępczych, a "Like" - tak. [syntax=vbscript]If Cells(i, 15).Value Like "*otow*" Then[/syntax]Tylko nie rozumiem po co tam był ten trzeci cudzysłów. Ale generalnie formatowanie...
Tu ładnie opisane co i jak: [url=http://www.excelserwis.pl/trik9.php... Pozdrawiam.
zobacz to [syntax=vb]Private Sub UserForm_Initialize() ost = Worksheets("Kolor").Cells(Rows.Count, 1).End(xlUp).Row userform.SMkolor.rowsource = "Kolor!A1:A" & ost End Sub[/syntax]
Tych numerów jest kilkaset. Jeśli tak :cry: to konieczne może być dodanie na początku dwóch kolumn pomocniczych z "przeciągalnymi" formułami zliczającymi :idea: i wówczas będziesz formatował :D jak na zrzucie i w załączonym pliku :spoko: 1111274 1111275
Tabela 20x2 - 2 kolumny: 1-klasa, 2-ocena -jak jednym formatowaniem warunkowym ustawić kolor dla komórek reprezentujących max. ocenę w poszczególnej klasie?
Brak odzewu może być spowodowany kiepskim uzasadnieniem sensu wykonywania takiej operacji. Zwykle kontrolki AciveX zaznacza się (w trybie projektowania) trzymając Ctrl, kopiuje (ctrl+c) i wkleja (ctrl+v) w wybrany arkusz, lub kopiuje cały arkusz (ppm). Dlaczego chcesz to zautomatyzować? Ile takich operacji wykonujesz? Czy oprócz przycisków w arkuszu...
-wartosc w kolumnie "O" sie zmieni na "X" i od ktorej jest uzalezniony kolor - wiersz w ktorym to wystapi jest w zakresie od "A - U" Analogicznie, zmień [syntax=vb]ost_col = Range("IV1").End(xlToLeft).Column[/synta... na sztywno ustalony numer kolumny:[syntax=vb]ost_col = 21[/syntax]
Dobry wieczór, Wprost nie da się tego zrobić, ale można okrężną drogą. Trzeba podzielić dane na serie zgodnie z regułą formatowania warunkowego. Następnie każdą serię nanieść na wykres i pokolorować wg życzenia. Serie wyświetlać na wykresie jako nakładane. Pozdrowienia
Alternatywnie kryterium dla koloru zielonego może być: [syntax=text]=ILE.NIEPUSTYCH($B6:$C6;$E6... a dla żółtego: [syntax=text]=ILE.NIEPUSTYCH($B6:$C6;$E6... kryteriów jest istotna - jak w poprzedniej propozycji: wyżej zielony, niżej żółty. Zakres formatowania: D6:D9
Pierwotnie zupełnie inaczej to rozumiałem, ale może teraz będzie lepiej.
czy można w Excelu, nie korzystając z makr i programowania w VBA, sprawić, by przy użyciu np. funkcji jeżeli Excel zamieniał kolor na wartość liczbową, np. gdy komórka A1 jest koloru czerwonego, to w A2 otrzymujemy wartość 1, a gdy jest innego, to 0. Byłbym wdzięczny za pomoc w rozwiązaniu tego problemu
Cześć Prawiem mam w dalszym ciągu nie wiem jak zmusić excella żeby sam policzył komórki w wierszu i je zaznaczył Robert Dodano po 7 Z wykresem jest ten kłopot że dla powtarzających się zdarzeń tego samego typu będą różne kolory a powinnien być ten sam Powiedzmy że w tym co przysłałeś w wieszu (6) kolumna (A) będziemy mieli wartość 7. Ta wartość odpowiada...
W załączniku przykład reguł formatowania warunkowego dla dwóch wartości (1z, 2z), dla kolumny C. Wg wzoru możesz ustawić formaty dla reszty zakresów i pozostałych wartości. Moim zdaniem będzie tego trochę dużo, albo czegoś nie zrozumiałem do końca. Jeśli tabelki w arkuszu mają stałe położenie, można wziąć pod uwagę zastosowanie makra na Offset'ach...
Zliczanie komórek o innym kolorze tła jest możliwe wyłącznie makrem. Jednak nawet makro nie obliczy kolorów jeżeli są one zmienione formatowaniem warunkowym. W makro, w twoim przypadku, trzeba by było zliczać tak samo jak w warunku formatów. Proponuje ci, w przypadku rozwiązania zastosowanego przez kolegę adamas_nt , w jakiejkolwiek komórce wpisać =LICZ.JEŻELI(G1:I3;"<="&C5)...
A byłem pewny że załapałeś zasadę. :( W czym konkretnie masz problem? Stwórz na chwile w bocznej komórce odpowiednio liczącą formułę tak by dawała w wyniku prawdę lub fałsz. Zgodnie z twoją koncepcja po 30 dniach ma być "prawda" więc wykorzystaj jeżeli, dziś() itd. Sprawdz czy działa w tej komórce. Następnie skopiuj całą formułę i wklej do formatowania...
Załączam gotowy arkusz. Dodałem formatowania warunkowe i trochę formuł. Może komuś faktycznie się przyda - w każdym razie u nas w pracy na pewno.
Pierwsza sprawa to na pewno wyrzuć funkcję Jeżeli() i pozostaw tylko warunki. Możesz zapisać go w jednej funkcji Oraz(). Druga sprawa to jak zostawisz wszędzie te $ to nie będziesz mógł łatwo kopiować formuły/warunku. Adres bezwzględny pozostaw tylko przy adresie S$4 =ORAZ(B3>5,0;B3<6,0;C3<S$4) Tak zapisany warunek wpisz do formatowania warunkowego...
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...
[syntax=vbscript]Sub Linki() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow a = Split(Cells(x, 1), ",") u = UBound(a) For y = 0 To u Cells(x, y + 3) = a(y) Next Next End Sub [/syntax]
Formatowanie warunkowe wystarczy, jeśli się nie mylę: http://obrazki.elektroda.pl/8548575500_1... W komórce, która wyświetla datę są dodane trzy warunki. Pierwszy zaznaczy na zielono tło komórki, jeśli w A1 (w moim przykładzie jest to komórka nad datą) będzie wpisane cokolwiek. Jeśli ten warunek jest spełniony, pozostałe są ignorowane....
Musisz się zdecydować - czy ma kolorować po uruchomieniu makra, czy po zmianie zawartości komórki.
Słuchajcie, jak prawidłowo napisać funkcję jeżeli gdzie wynik będzie inny niż porównanie liczbowe. Np. chciałbym aby przy kolorach excel oddał jeden kolor jako fałsz a resztę OK. Czyli np. kolor ściany niebieski będzie do zmiany lub zmień kolor a każdy inny z listy jako super . Wpisywanie w teście (komórka=niebieski;"zmiana";...) lub (komórka<>niebieski;super;...)...
Zrobiłbym tak Edit: moduły były niepotrzebne
Czy to da się w ogóle zrobić? Da się. Z tym, że nie ma wbudowanych funkcji Excela formatujących komórki. Trzeba napisać makro. Mały przykład w załączniku. Paletę ściągnąłem[url=http://konspekt.eu/?palet... stąd. .
Ok, chcesz wymyślać koło na nowo - proszę bardzo ;). Pętlę For Each zamykasz samym Next (bez zmiennej).
W sumie nie wiem co to makro miało by robić. Kolorować kody w kolumnie B i A jeśli w kolumnie C jest wartość? Można do tego użyć formatowania warunkowego zaaplikowanego dla kolumn A i B w zalezności od wartości C
Można zrobić tak jak na poniższym screenie. Dodaj jedną pomocniczą kolumnę i w komórkach zadaj formułę jak na screenie. Ja dodałem dwie pomocnicze kolumny a potem jeszcze formatowanie warunkowe jak na screenie http://obrazki.elektroda.pl/7202333200_1...
Zobacz ten kurs [url=http://dzono4.w.interia.pl/kurs/for... Tabliczka mnożenia w części "Dla dociekliwych" jest tym, o czy tu mówimy. A szachownica ma 8x8 i zaczyna się od białego :)
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...
Och, zaraz "nie idzie". Trochę... sprytu ;) http://obrazki.elektroda.pl/7794228100_1...
Dwie poprawki: [syntax=vbscript]Set Zakres = Columns("I:I").Cells[/syntax]kolorujesz pojedyncze komórki [syntax=vbscript]Cell.Interior.ColorInde... = x1None[/syntax]Color = xlNone to byłby czarny No i moim zdaniem kolorować raczej używany fragment kolumny, a nie cały milion wierszy.
W kodzie 'TenSkoroszyt' , Case w set_kol(patrz zalacznik)
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.
Zrobiłem dla takiego przykładowego "blabla". O to chodzi?
W formatowaniu warunkowym zastosuj taki mniej więcej ciąg myślowy: jeżeli dziś >= data_wpisana +80 to koloruj na czerwono Osobno w jakiejś tam kolumnie (przyjmijmy, że jest to komórka G4) wpisujesz normalny warunek: jeżeli dziś >= data wpisana to G4="ŹLE" w przeciwnym razie G4="OK" Wystarczy to podstawić do funkcji, celowo zostawiam Ci odrobinkę pracy...
Pewnie pierwsze dane masz w drugim wierszu, u mnie był w 3, zamień: For k=3 na For k=1 (sprawdzanie od pierwszego wiersza). Makro sprawdza kolumnę B od dołu, widocznie są u Ciebie jakieś puste wiersze ... Jeżeli wiesz ile masz komórek w kolumnie B do sprawdzenia wpisz na sztywno (3500 to ilość wierszy) : zamiast: For k = 3 To Cells(Cells.Rows.Count,...
Te komórki biały kolor tekstu
Proszę, oto Twoje kolory :D [url=http://www.mvps.org/dmcritchie/exce... VBA
[syntax=vbscript]Function SumujKolorowe(Zakres As Range) As Double For Each k In z If k.Interior.Color <> vbWhite Then a = a + k Next SumujKolorowe = a End Function [/syntax]
EXCEL odwołanie do komorki z kolorem
Dzięki, zaraz to przestudiuję. Dodano po 48 Może się mylę, ale i tak musiał bym wpisywać wszędzie funkcje i odniesienia a chodzi mi, że tylko podświetlę komórkę na jakiś kolor i automatycznie doliczy wartość ten komórki w odpowiednie miejsce. Poprawiłem pisownię. Dbaj o nią proszę. RADU23
Witam Mam pytanie czy jest możliwość zrobienia Hiperłącza do komórki z innego pliku która oprócz danych przeniesie również kolor tej komórki? Chodzi o to że mam tabelę w Excelu e której dużą część danych stanowią dane z innej tabeli. Ta inna tabela jest na serwerze NFS i jest aktualizowana przez inną osobę. Zrobiłem więc hiperłącza do interesujących...
Jaka rola "!" przed 'K:K' ? często mi się to wiesza Jak masz Excel >= 2007 to K:K jest ~1000000 wierszy Nie wystarczy K1:K2000 ?
Temat jest dość prosty, w jakiejś komórce (możesz jej nadać nazwę np. TODZIS) wstaw funkcję sprawdzania bieżącej daty. W kolumnie termin wpisujesz terminy płatności (liczbę dni np.), następnie robisz formatowanie warunkowe ustawiając np. czerwony kolor jeżeli data wystawienia fk + termin płatności przekracza powiedzmy dzisiejszą datę.
nazwy oraz ceny za m2 dla wartości w kolumnie c2:c21 arkusz "kalkulacja" muszą być pobierane z arkusza "kolor"
Co do "poprawy" twojej formuły jeżeli() wskazał ci to kolega adam. Zmiany koloru nie dokonasz inaczej niż poprzez formatowanie (formatowanie warunkowe). Ewentualnie makrem które właściwie też ingeruje w format komórki. Innymi słowy żadna wbudowana formuła excela nie zmieni koloru komórki/czcionki.
Np jeśli zmienie kolor wypełnienia komórka B5 to automatycznie zmieni mi się w X5 i AT5
Zerknij na mój pomysł. Sub sumuj_ilosc_komorek_w_zaznaczeniu(&#... '(c) "fascynat" suma = 0 kolor = Val(InputBox("Wprowadź nr koloru", "Definiowanie szukanego koloru tła komórek")) For Each c In Selection If c.Cells.Interior.ColorIndex = kolor Then suma = suma + 1 Next MsgBox "Ilość znalezionych...
excel kolor komórki excel liczenie kolor zmiana kolor excel
schemat podłączenia routera shader model serwonapęd instrukcja
chińskie padło projektor multimedialny
Jak odczytać stan licznika z drukarki Kyocera FS-9530? Usterka wentylatora w kotle Viessmann Vitodens W50
