Musisz się zdecydować - czy ma kolorować po uruchomieniu makra, czy po zmianie zawartości komórki.
Zrobiłem dla takiego przykładowego "blabla". O to chodzi?
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...
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...
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.
https://obrazki.elektroda.pl/8810856500_... Hej, Jak widzisz: po zrobieniu części nr 20-015-062 czyli poziomu 1.6.1.6 i zawierającej się nie w niej trzech kolejnych pozycji - oznaczone na zielono powtarza się ona na poziomie 1.6.1.9 Znajdujące się w niej pozycje zawsze będą takie same. Dlatego chciałbym aby po oznaczeniu części nr...
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.
Popłynąłeś...;)
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...
Witam ponownie. Po kilkunastu próbach zmiany formuł poległem. Niby wydaje się to być proste ale tak nie jest. Próbowałem zmienić zakres kolorowania z kolumny X do kolumny BA. Wszystkie próby legły w gruzach. Nie działa. Tzn udało mi się zrobić tak by pasek zmieniał swój kolor do kolumny BA ale pod warunkiem że zacznie kolorowanie w kolumnie X jeśli...
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.....
Nic prostszego zarejestrować sobie makro wykonujące to, co chcesz, a potem je poprawić (żeby działało z parametrami np.). Przykład makra ustawiającego 3 pasek jako żółty: [syntax=vb]Sub Zolty() ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Points(4... With Selection.Format.Fill .Visible = msoTrue .ForeColor.RGB = RGB(255,...
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...
Zdaje się, że formuła powinna być "odwrotnie": =LICZ.JEŻELI($C$3:$C$100;A3) https://obrazki.elektroda.pl/5441432600_...
Witam mam zadanie żeby dana komórka automatycznie po wpisaniu liczby zmieniał sie kolor np na zielony Da sie takie cosik zrobic? Jestem zielony jak ta komórka
Witam wszystkich, Mam problem. Muszę stworzyć kod kolorujący cały dany rzad bazy danych przy spełnionych jednocześnie dwóch zalozeniach: jesli komorka w kolumnie C = "GPU" lub "CPU" i jednoczesnie korespondujaca z tym komorka w kolumnie D zawiera wartosc pomiedzy 1 i -1 to wtedy kolorujemy. Do tej pory zrobilem taki warunek z jedna formula jezeli: For...
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...
Dzień dobry, mam arkusz z danymi z poprzedniego miesiąca w kolorze czcionki czarnym. Nie chcę ich wykasowywać, ale potrzebuję, aby excel po wpisaniu nowej wartości (po każdej dowolnej zmianie wartości) zmienił kolor czcionki. Chodzi o to, aby było wiadomo które dane zmienione, a które stare. Trochę by mi to ułatwiło życie. Z góry wyrażam wdzięczność...
witam, Czy ktoś z Was ma pomysł jak zrobić coś takiego: Potrzebuję stworzyć tabelę z godzinami pracy pracowników od..do i w kolumnie obok zastosować formułę złącz.teksty ( żeby wyświetliło się np 9-17) ale chciałbym żeby kolor teksty, który będzie wynikiem formuły miał taki sam kolor czcionki jak komórka po lewej. Ewentualnie czy ktoś ma jeszcze pomysł...
Witam, Staram się napisać makro, które na podstawie wartości komórki w danym zakresie w arkuszu, zmieni jego kolor (jeżeli znajdzie daną wartość - tekst, w tym zakresie). Sprawdzanie i ewentualna zmiana koloru ma odbywać się we wszystkich arkuszach z wyjątkiem dwóch. Poniżej przedstawiam kod, który udało mi się napisać, jednak nie działa on gdyż ciągle...
Buduję prostą bazę danych do prowadzenia magazynu. Próbuję ustawić komórki scalonej kolumny AP ] w której tekst (właściwie symbole tekstu) będą zmieniały kolor, w zależności, od wartości komórek z scalonej kolumny AK ]. Wartości w komórkach tej kolumny są zmieniane ręcznie. http://obrazki.elektroda.pl/5967076800_1... - zakres liczb od...
Witam Na necie znalazłem taki oto skrypt [syntax=vbnet]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Dim Wartosc As Variant With ChartObjects(1).Chart.SeriesCollection(1... .Interior.ColorIndex = xlAutomatic Wartosc = .Values For i = 1 To .Points().Count Select Case Wartosc(i) Case 1 To 100 .Points(i).Interior.ColorIndex...
Witam W jaki sposób przy pomocy formatowania warunkowego (bez VB), dokonać zmiany koloru znaku w jednej komórce, w zależności od wartości w kilku komórkach jednocześnie? Potrafię przy pomocy formatowania warunkowego zmienić kolor znaku w jednej komórce na podstawie wartości w innej komórce. Nie potrafię natomiast przy pomocy formatowania warunkowego...
Witam, Mam problem z napisaniem formuły lub warunku formatowania. Chce aby kolor czcionki w wierszu zmieniał się gdy w jednej z komórek tego wiersza pojawi się określony tekst. Na przykład mam 7 kolumn i 20 wierszy wypełnionych danymi. W 4-tej kolumnie może się pojawić tylko litera D, N i P. Chce aby po pojawieniu się w 4-tej kolumnie w którejś z 20-tu...
Witam serdecznie i z gory przepraszam ze pisze bez polskich znakow, jestem w Singapore i system nie pozwala mi na uzywanie polskiech znakow :( Problem jaki mam z excelem jest nastepujacy: staram sie stworzyc liste wyboru taka aby po wybraniu danej, komorka w ktorej ma byc wstawiona dana, ma zmieniac rowniez kolor wypelnienia. Lista wyboru sklada sie...
Witam wszystkich. jestem nowym nabytkiem na forum wiec prosze o wyrozumialosc i tolerancje. w wielu sprawach pomogliscie mi po przez czytanie waszych postow a le teraz potrzebuje indywidualnej pomocy w konkretnej sprawie.[/b] Przykład: A 1, A2 B1, B2. Komorka z datą w A 1 i B 1 zmienia kolor kiedy zbliza sie ta data na przykład: tydzień do tej daty...
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...
Stworzyłem prosta pętlę do kolorowanie wierszy po spełnieniu określonych warunków. [syntax=vb]'kolorowanie wierszy Dim i As Integer If InStr(LCase(dstCells(dstRow, 5)), "awaria") Then If InStr(LCase(dstCells(dstRow, 2)), "serwis") Then If Not (InStr(dstCells(dstRow, 8), DateAdd("d", 0, Date))) Then 'Jezeli podana data nie jest dzisiejsza... If Not (InStr(dstCells(dstRow,...
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...
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.
Cześć ma problem z kolorowanie kolumn na wykresie dla jednej serii danych. Problem jest dość dziwny ponieważ robiąc nowy wykres z przykładowymi danymi nie ma z tym problemu(zdjęcia1 i 2) jednakże próbując zrobić dynamiczny wykres(z czym nie miałem problemu) i kolorując każdą kolumnę innym kolorem nie wyświetla mi się już ta opcja. Ktoś może wie dlaczego?...
Pkt. 1 wystarczy funkcja Jeżeli. Pkt. 2 tu już trzeba raczej makro, albo formatowanie warunkowe (tylko kolorowanie błędnej komórki)
Dzień dobry. Jestem początkujący w VBA i mam pytanie do Szanownego Grona Specjalsów od VBA. Morduje się z pętlą, żeby wyszukała mi wyraz w kilku arkuszach i go podświetliła gdy znajdzie. Może być podświetlenie samego szukanego wyrazu lub wiersza w którym występuje szukana fraza. Załączam kod, który na razie szuka mi wyraz w arkuszach i podświetla go...
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 :)
A to chciałeś uzyskać takie kolorowanie?
Kolorowanie komórek można wykonać za pomocą warunkowego formatowania. Niewyświetlanie wartości za pomocą funkcji warunkowych.
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ę.
Próbuję ugryźć makra ale to dla mnie za szerokie wody. Gryź częściej :) Wiem że to jest szybsze od formuł Fałsz. Jedynie te operujące na tablicach muszą dłużej "myśleć". W przypadku formatowań dla dni tygodnia, potrzebujesz siedem reguł dla 364 (jak opisałeś) wierszy. Przeliczenie arkusza z pewnością nie potrwa dłużej niż kolorowanie makrem.
Pierwotnie zupełnie inaczej to rozumiałem, ale może teraz będzie lepiej.
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.
Probowalem z formatowaniem warunkowym ale tam jest tylko duplikat, czyli wyroznianie takich samych wartosci. Wejdź w formatowanie warunkowe i tam wpisz takie coś: http://obrazki.elektroda.pl/5947845200_1... =LICZ.JEŻELI(C:C;MODUŁ.LICZBY... Gdzie zamiast "C:C" wprowadzasz żądany zakres sprawdzania, a zamiast...
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...
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ść...
myślałem o tym, żeby dodać do tej formuły kolorowanie pola na zielono jeśli nowa cena jest niższa i na czerwono jak wyższa. ale chyba to zostawię, i tak bardzo usprawniło mi pracę to co jest :)
Witam ponownie. Prosiłbym jeszcze o cierpliwość adamsa i ewentualną pomoc w usprawnieniu mojego programu , ponieważ mimo moich wielu,wielu kombinacji nie udaje mi się go naprawić, a działa prawie dobrze (oprócz): 1. Kiedy wpisuję pierwszy raz w lub k nie dopisuje reszty , ale po zatwierdzeniu enterem wpisuje i leci błąd. Następne linie już wpisuje normalnie....
Chciałbym stworzyć W załączniku masz arkusz z makrem które automatycznie filtruje zawartość po kolumnie z nazwą. Jak znajdzie coś to klikając przycisk możesz skopiować znalezione wartości do drugiego arkusza (automatycznie). Dodałem jeszcze kolorowanie co 2 wiersza i trochę śmieciowych wpisów by dało się to sprawdzić.
Witam Czyli mam rozumieć że przy tak skonstruowanych danych ciężko zrobić cokolwiek sensownego ? Kolorowanie odpada ponieważ tylko te produkty powinny być zaznaczone w danej komórce które znajdują się w Arkusz1. To trudno ... przynajmniej się dowiedziałem że nie da się tego zrobić. Pozdrawiam
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.
nie wiem co dalej czegoś brakuje :) wiedzy zapewne. Poszukaj trochę i przyjrzyj się jak to zrobili inii. Po mojemu spokojnie obejdzie się bez makr. 1. Znajdź pozycję wybranych z list wartości. funkcja wiersz podstawiasz wynik funkcji z pkt.1 3, Kolorowanie wierszy zrealizujesz przez formatowanie warunkowe. Formuła: =$A6=1 zakres: =$B$6:$O$36 4. Zamiast...
Faktycznie to dziala, ale mi przychodzi zsumowac dosc dlugi ciag pokazujue #Value, a jak recznie ustawie nawiasy {} to zamienia mi na zwykly tekst. W kazdym razie juz nieistotne. Zrobilem to jak wspomnialem wczesniej. Teraz patyczkuje sie z procentami :P kolorowanie nie jest mi potrzebne. Znalazlem funkcje jak szukalem czegos innego ale nie wiem czy...
O tak, jest to rozwiazanie ktorego potrzebowalem, teraz podejde do testowania wszystkich mozliwych wariantow. Mam nadzieje ze to rozwiazanie sie sprawdzi a jesli tak to moja praca nad arkuszem dopiero sie zacznie. Pozostało podziękować obu Panom za pomysł z funkcja " if " próbowałem sam, ale rozjezdzalo sie w przeciagu roku. Samo kolorowanie tabel weekendowych...
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 adamas_nt . [syntax=vb] Sub Copy() Dim myPath As String...
Nad opisami netto, vat, brutto wstaw sobie funkcję =SUMY.CZĘŚCIOWE(109;C6:C123) i będziesz miał sumy poszczególnych wartości w zależności od filtra :)
to w tym samym rzędzie i w innej kolumnie również kolorowało mi tło tym samym kolorem używać ten sam warunek formatowania jak dla kolumny X
[syntax=vbscript]Sub SeZrob() Sheets("Tablica").Select ow = Cells(Rows.Count, "A").End(xlUp).Row ok = Cells(2, Columns.Count).End(xlToLeft).Column Z = 1 For x = 2 To ow a = Cells(x, 1) For y = 2 To ok Sheets("Wynik").Cells(Z, 1) = a Sheets("Wynik").Cells(Z, 2) = Cells(x, y) a = a + 1 Z = Z + 1 Next Next End Sub [/syntax] P.S. Pięknie teraz sie koloruje...
Ó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.
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,...
wyróżnic jednym kolorem 2 różne wartości ma kolorowac te wiersze gdzie występują razem tak co wreszcie ma kolorowac ?
Rzeczywiście wyszukuje również z literami, ale dlaczego podświetla dwa wiersze niżej. Bo prawdopodobnie nie zaznaczyłeś całej kolumny B:B tylko (od pierwszej lub) pierwszą którą chciałeś kolorować. Zaznacz porządnie klikając w literę B i wywołaj formatowanie warunkowe, inaczej adresy, które masz w przykładzie będą się odnosić do innych komórek.
kolorowanie excel kolorowanie komórek excel kolorowanie makro
humax firmware wskaźnik płynu chłodniczego zarezerwowana pamięć
pamięć ferrytowa koralik pamięć ferrytowa
Błąd 02.02.41 w Kärcher B110 R - Diagnostyka i Rozwiązania Ciśnienie wstępne 0,5 bara w instalacji c.o.
