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...
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.
W LibreOffice Calc kolorowanie komórek tabeli również działa. Poniżej zrzut ekranu z LibreOffice 25.8.3.2 w systemie Windows. https://obrazki.elektroda.pl/5765847100_...
Załącz przykładowy plik. Wyjaśnij dokładnie, jak to ma działać. Ile kolorów będziesz stosować? Rozumiem, że komórki źródłowe chcesz zaznaczać ręcznie, a komórki docelowe mają uzyskać formatowanie stałe.
Zdaje się, że formuła powinna być "odwrotnie": =LICZ.JEŻELI($C$3:$C$100;A3) https://obrazki.elektroda.pl/5441432600_...
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ć...
Cześć, proszę o pomoc. W załączeniu przesyłam plik, chciałbym aby w zakresie "tabela", komórki które są w tym samym wierzy, nawzajem się porównały i przyjęły konkretne style. Większa wartość styl "dobry", mniejsza "zły". Proszę o pomoc bo kod napisany przeze mnie nie działa. Z góry dziękuję Sub kolory() ostatniwiersz = Range("tabela").Rows.C...
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...
Intersect(Target, Columns(...)) zwraca zakres komórek typu Range(), będący wspólną częścią - w przypadku zdarzenia Worksheet_Change - obszaru, który uległ zmianie (Target) oraz wybranej kolumny (Columns(...)). Tym obszarem który uległ zmianie (Target) może być tylko jedna komórka (np. kiedy wpisujesz w nią wartość ręcznie), ale też zakres komórek (np....
Witam serdecznie. Jak w temacie. Potrzebuję funkcję, jakiś skrypcik aby kolorowała mi się grupa komórek na np czerwono gdy w odpowiedniej komórce znajdzie się odpowiednia wartość. NP. Zmień tło komórek A13:D13 oraz tło komórki B4 na czerwone jeżeli w komórce B4 zostanie wybrana wartość TAK (ta komórka to lista wyboru). Da się to w jakiś prostu sposób...
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 :)
No jak? Range jest obiektem z parametrem, po prostu używasz: "Range("...").Iterior.Pattern" na ten przykład. W poprzednim przykładzie wykonałeś metodę zaznaczenia, co spowodowało utworzenie obiektu "Selection". Żeby tego nie robić, to zamiast zaznaczać, po prostu zmieniasz właściwości w ten sam sposób, jak na obiekcie Selection.
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 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...
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.....
[quote]Select Case kom.Value Case "." /quote] zamień na [syntax=vbscript]If InStr(1, kom, ".") > 0 then kom.Interior.ColorIndex = 1[/syntax]
po wpisaniu cyfry 1, komórki kolorowały się w lewo a nie w prawo tak jak jest teraz Kolega Maciej Gonet przygotował Ci specjalną formułę do planowania produkcji, która w zależności od wartości w kolumnie I , koloruje po wstawieniu jakiejkolwiek liczby (nawet "0") do którejś komórki - zarówno tą pierwszą niepustą jak i odpowiednią liczbę następnych...
sprawdziłem w pracy na excel działa tylko mam jeszcze jedno pytanie jak zmusić resztę komórek żeby też zmieniały się w dół na szaro przy każdym nazwisku pracownika w niedz i sobotę.
Ta kolumna z zerami i jedynkami jest potrzebna, żeby Solver wiedział, które liczby ma brać do średniej, a które pominąć. W moim załączniku masz to rozwiązane Solverem, punktem startowym były same jedynki. Jak zmienisz dane, to będzie inne rozwiązanie. Tylko trzeba za każdym razem uruchomić Solvera. Kolorowanie komórek to jest sprawa wtórna. Można sobie...
Musisz się zdecydować - czy ma kolorować po uruchomieniu makra, czy po zmianie zawartości komórki.
Sorry, Chodzi o to aby makro: zaznaczyło zakres C5:F50 https://obrazki.elektroda.pl/6322808800_... https://obrazki.elektroda.pl/2228596900_...
Kolorowanie komórek można wykonać za pomocą warunkowego formatowania. Niewyświetlanie wartości za pomocą funkcji warunkowych.
Faktycznie. Jednak czy jest sposób żeby np. kolorowanie komórek zrobić w VBA bez zamiany tej funkcji na procedurę czy absolutnie jest to niemożliwe ?
Dzień dobry Wszystkim. Taki oto problem. Mam arkusz z tabelą (w załączniku). Chciałbym aby po wpisaniu w wierszu kolumny B, wartości większej niż zero w komórki zakresu D:O tego wiersza została wpisana liczba 9, pomijając ukryte kolumny (w tym przypadku kolumny L, M, N) oraz wypełnienie tych komórek zmieniło się na kolor zielony. I tak dla każdego wiersza....
Arkusz4: Jak chcesz zrobić sumę sprzedaną w kwartale których masz dwa w 1 komórce? Kolorowanie komórek masz w pasku nad arkuszem. Kwartał to 3 miesiące więc podejrzewam że trzeba je zsumować :) Stypendia: w czym problem? musisz pokolorować, excel z tego co mi wiadomo nie ma takich możliwości żeby sformatować komórkę żeby wyświetlała tekst w iluś linijkach...
Prot, to i tak nie ma znaczenia, jeśli chodzi o kolorowanie zakresu C25:H30. Jak C22:C23 będą puste, to kod nic nie pokoloruje na niebiesko.
Usiadłem (wreszcie) nad tym i tak sobie myślę: Jeśli pierwszy dzień miesiąca wypada w środę, to w systemie 5/1 dzień wolny ma brygada, która pracowała w ostatni czwartek poprzedniego miesiąca. Nie ma tu stałych, więc po czym w takim razie biedny Excel ma się orientować? Systemu 6/2 nawet nie próbuję analizować :) Należałoby mu jakoś (InputBox, wartość...
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...
Witam Poszukuje skryptu VBA który przepisze mi kolor tła z określonego zakresu komórek automatycznie (ja zmieniam w jednym arkuszu on automatycznie zmienia w innym). Pierwszy wariant: Powiedzmy zakres ( =Arkusz1!A1:A12 ) zostanie odwzorowany do następnego arkusza na inny zakres ( =Arkusz2!B1:B12 ). Po prostu odwzorować kolorowanie komórek. Drugi wariant...
Można - popatrz jak wygląda reguła... po to dałem kolorowanie by się wyróżniały. Ważne jest ustawienie formatowania komórek z datą na format Data.
Witam. Kolorowanie wierszy Dla Twojego posortowanego arkusza w kolumnie K dla K1 wpisz 1 dla K2 wpisz =JEŻELI(A2=A1;K1;K1*-1) dla niższych komórek skopiuj z K2 następnie wybierz formatowanie warunkowe i dla zaznaczonego zakresu, który ma być wypełniany kolorem wpisz formułę =$K2=-1 i wybierz kolor wypełnienia. Pozdrawiam. To działa.
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]
Proszę o pomoc w przygotowania formuły która koloruje komórki zgodnie z kryterium.
Proszę html [syntax=html] <table id="tabela" style="width:200px;"> <tr> <td>10</td> <td>a</td> <td>b</td> </tr> <tr> <td>20</td> <td>c</td> <td>d</td> </tr> <tr> <td>30</td> <td>e</td> <td>f</td> </tr>...
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.
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,...
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...
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...
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ć...
Ów zdefiniowany "tekst" wpisujesz w cudzysłowiu jako warunek równości a działanie formatowania warunkowego ustawiasz na komórkę (lub zakres), którą chcesz kolorować. Zobacz załącznik. (at)mickpr Nie do końca o to chodzi w temacie.
Wydłubałem coś takiego: żadna francja-elegancja, ale na załączonym przykładzie Worda działa. Zrobiłem test dla ~500 tabel, im dalej znajduje się pozycja, tym dłużej muli - zamiana pojedynczej pozycji może potrwać do kilkunastu sekund - ale działa i może do czegoś Ci się przyda. Mam też nowszego Offica, więc pewnie w VBA->References będziesz sobie musiał...
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...
Na przykład tak: [syntax=text]komorka.EntireRow.Columns("... = vbGreen[/syntax]
Szukam kodu VBA do kolorowania unikalnego pierwszego wiersza Jeśli dobrze zrozumiałem Twoją niechęć do formatowania warunkowego :D To efekt taki jak na zrzucie (nie koloruje również puste komórki :!: ) 990210 można uzyskać poprzez kod :spoko: [syntax=vbscript]Sub FormatUnik() Range(Cells(2, 2), Cells(17, 9)).Select With Selection.Interior .Pattern...
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.
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...
Właśnie tak teraz zapisuję że kolejne wartości są oddzielane znakiem tabulacji. Problem w tym że OpenOffice ma z tym problemy a w dodatku nie mozna np. kolorowac komórek. Szukałem bibliotek ale wszystkie były niedopracowane.
Podany kod koloruje wszystkie komórki w podanym zakresie mimo, że nie spełniają warunku Zakres B2:E6 sam podałeś. Najpierw napisałeś pytanie, a po odpowiedzi dołączyłeś plik. Pozwolę sobie pomyśleć za Ciebie... [syntax=vbscript]Sub Pokoloruj() ow = Cells(Rows.Count, "A").End(xlUp).Row ok = Cells(1, Columns.Count).End(xlToLeft).Column For x = 2 To ow...
Witam, Mam w komórce A1 nazwy firm aż do A30, w komórce C1 to samo. Muszę obie te komórki porównać. Gdy np. w A1 jest ta sama napisana firma co w C1 to komórki zostaną oznaczone jakimś kolorem np. zielonym. Gdy w A2 i C2 jest również to samo to również koloruje komórkę ALE już innym kolorem i nie może go powtórzyć. Gdy komórki różnią się np. A5 i C5...
Pkt. 1 wystarczy funkcja Jeżeli. Pkt. 2 tu już trzeba raczej makro, albo formatowanie warunkowe (tylko kolorowanie błędnej komórki)
kolorowanie komórek excel kolorowanie makro kolorowanie wierszy
renault radio megan pralka pleśń radio oddać płyta
firmware telefunken myjka ultradźwiekowa
Objawy uszkodzonego rezonatora kwarcowego w mikroprocesorze Numer przepustnicy w Volkswagenie Passacie B5 - lokalizacja