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...
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...
A zrób tak: zaznacz WSZYSTKIE komórki (CTRL+A), prawym, Formatuj, Ochrona ODZNACZ "Zablokuj". Teraz zaznacz chronione komórki, zaznacz "Zablokuj" - i ew. "Ukryj", to tylko ukrywa formuły... Narzędzia->Ochrona->Chroń arkusz, zahacz co chcesz lub pozostaw domyślne dwa pierwsze, restrykcyjne ograniczenia.
a ja by to zrobił tak [syntax=vb]Sub Makro1() Set my = Sheets(1).Shapes("Prostokąt 1") Set my2 = Sheets(1).Shapes("Prostokąt 2") Set my3 = Sheets(1).Shapes("Prostokąt 3") With my.Fill .Visible = msoTrue .ForeColor.RGB = RGB(0, 0, 0) End With With my2.Fill .Visible = msoTrue .ForeColor.RGB = RGB(255, 255, 255) End With With my3.Fill .Visible = msoTrue...
Ź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?
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]...
Wystarczy zwykła pętla z wieloma warunkami. Zobacz przykład (funkcja VBA) w [url=http://www.elektroda.pl/rtvforum/to... temacie.
https://obrazki.elektroda.pl/6208181000_...
potrzebuję makro ktore pobiera kolor przypisany do danej wartości już w innym arkuszu z danymi.
Zrobiłem bez makr. Może ktoś Ci przerobi na makro. Łącze do formantu w komórce bieżącej, formatowanie niestandardowe ukrywające wpis ;;; formatowanie warunkowe określające kolor. Niestety łącza nie dają się kopiować, bo są zawsze adresami absolutnymi, nawet jeśli się je zapisze bez dolarów.
Można to prosto zrobić na funkcjach + formatowanie warunkowe, jak zaproponował adamas_nt . Gdybyś jednak upierał się przy VBA - też można: [syntax=vb]Private Sub CommandButton1_Click() Application.ScreenUpdating = False ost_data = Cells(Rows.Count, 2).End(xlUp).Row 'wyczyszczenie starych danych With Range(Cells(1, 3), Cells(Rows.Count, Columns.Count))...
zakomentuj w całem programu podobne [syntax=vb] Application.Run "'Stale i stopy - obliczenia.xls'!ATEST.ATEST" Application.Run "'Stale i stopy - obliczenia.xls'!STAL.STAL" Application.Run "'Stale i stopy - obliczenia.xls'!ZAPIS.ZAPIS" [/syntax] Sprawdź czy Excel się zawiesza . rozkomentuj, jeden przez jeden i Sprawdź. Ponadto przyciski na pierwszym...
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...
Widzę, że dopracowałeś trochę arkusz. Dopisałem funkcje która zmienia kolor wypełnienia komórki w przypadku "przeterminowania" zadania. Sprawdzane pod kątem niedotrzymania terminu są tylko zadania niewykonane (oznaczone czerwoną czcionką). W arkuszu jest skoroszyt z kodami kolorów, jak otworzysz makro są tam komentarze i jest napisane którą liczbę trzeba...
Moje makro wyszukuje i koloruje tylko samą kropkę :?: :not: Jeśli chcesz zmienić kolor czcionki w całej komórce zawierającej "." to zastosuj kod :spoko: [syntax=vbscript]Sub Koloruj() Dim zakres As Range Dim kom As Range Set zakres = Selection For Each kom In zakres.Cells If InStr(1, kom.Value, ".", 1) > 0 Then kom.Font.ColorIndex = 1 End If Next End...
Bo jesli dodasz dwie kolumny do każdego działu, to w makrze Kopiuj() musisz poprawić krok wyszukiwania z 4 na 6: [syntax=vb]For kol = 1 To 255 Step 6[/syntax] i, ewentualnie, tam gdzie teraz kopiujesz komórki od C do E zwiększyć od C do G i kol+5: [syntax=vb]Worksheets("Arkusz1").Range("... & Selection.Row & ":G" & Selection.Row).Copy .Range(.Cells(wiersz,...
Jeśli jest to potrzebne dla jednego lub niektórych skoroszytow, może makro
Zwykle: [syntax=vb]Call nazwamakra[/syntax]
Cześć, staram się zrobić makro które po skopiowaniu wartości z jednego arkusza do drugiego poza skopiowaniem treści zmieni również kolor czcionki. Makro, które mam: [syntax=vbscript]Sub aaa() Dim Ark As Worksheet Set Ark = ThisWorkbook.Worksheets("1") With Ark If .[A1] = "" Then Sheets("1").Range("B1").Copy Destination:=Sheets("2").Range("C1") Sheets("1").Range("B2").Copy...
Zrobiłem dla takiego przykładowego "blabla". O to chodzi?
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...
Od czego zależy kolor kwoty?
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.
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.
Nie pochodzi z formatowania warunkowego. Wcześniej mam napisane makro, które zaznacza mi na kolor czerwony duplikaty oraz na kolor żółty puste pola w całym arkuszu danych. Teraz zadanko polega na tym, aby sprawdziło zaznaczone obszary kolorem wypisało w postaci tekstu w kolumnie wyznaczonej np: K tylko musi być po wierszach :) To makro które wstawiłem...
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...
Witam, szukam kodu ktory pozwoli mi na znalezienie pustych wierszy w arkuszu i zaznaczenie ich na szary kolor z gory dziekuje za pomoc
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...
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]
Sprawdź dobrze, bo pisane w przerwach między obieraniem ziemniorów i marchewy, i mogą być błędy. 919204 Stałe, zmienne i kod na tyle czytelne, że od razu zrozumiesz intencje. Kody z ich wartościami na oddzielnej zakładce, makro uruchamiane zmianą zawartości komórek w określonym zakresie (stałe dla zakresu początkowego i końcowego), zdefiniowanym w module...
Witam aby w kolumnie D dodało ilość danego produktu do istniejącej już liczby nawet, jeśli inny kolor i kod2? aby wpisało do kolumny b i c (arkusza 1) wartości z odpowiedniego wiersza z arkusza 2 tak samo?
Dziękuję za Wasz czas. Podpinam plik (dzięki za sugestię). Wynikową ma być: dla przykładu idąc od AD3+AD4, AE3+AE4 (AD jest puste, więc powinien pominąć te wartości). W zapisie powinien dodać dwukropek po AD3 i przecinek po AD4. Kolor: biały,
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
"Podświetlam" tzn zmieniam kolor czcionki? Nie ma tu nic typu "Selection", natomiast warunkiem jest kolor wypełnienia =Range("L4"). Rozumiem, że makro ma sprawdzać co już jest skopiowane, kopiować tylko wybrane (jak? kolor tła, zaznaczenie) rekordy i zmieniać kolor czcionki na jakiś inny niż poprzednio. Można warunkować kolor na podstawie ostatniego...
Np coś takiego: Function LiczKolorNaPrawo(StartCell As Range) Dim A As Range Dim i As Long For Each A In Range(StartCell.Offset(0, 1), Cells(StartCell.Row, 256)) If StartCell.Interior.ColorIndex = A.Interior.ColorIndex Then i = i + 1 Next A LiczKolorNaPrawo = i End Function
W arkuszu mam tabele z kilkoma kolumnami z wartościami komórek =1 bądź pustymi. Jak stworzyć makro, które zmieni kolor wypełnienia komórek, jeśli w zakresie kolumny wystąpią kolejno min 4 powtórzenia komórek o wartości =1. (pomiędzy ciagiem "1" nie może być pustych komórek)
Oto projekt. Początkowo Pan otworzyć i odczytać z makrami.(na otwarcie i zamknięcie książki) i poprawi stałych (bo nie mogę odgadnąć nazwy plików). Następnie skopiuj makra do prawdziwych plików Interesuje mnie jak długo potrwa pracy makro, ponieważ kopiowanie w komórki z formatowaniem (kolor, czcionki) zajmuje znacznie więcej czasu niż w komórki niesformatowany....
Witam Rejestratorem nagrałem poniższe makro wstawiające formatowanie warunkowe. Chciałbym jednak, żeby to makro sprawdziło warunek i ewentualnie zmieniło kolor komórek a nie wstawiało formatowanie warunkowe, ponieważ formatowanie warunkowe zastosowane nadmiernie, zamula. Chodzi o to, że makro miałoby sprawdzić czy wartość w komórce "C81" podzielona...
że makro odnalazło brakujące liczby, dodało wiersz lub wiersze i dodany wiersz lub wiersze zrobiło na kolor zielony I gdzie to makro?
Całe makro tworzące wykres z danych w określonym zakresie i zmieniające kolor wybranych słupków może wyglądać tak: [syntax=vb]Sub Wykres_kolorowy() ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Range("Arkusz1!$A$3:$B$8") 'zakres danych With ActiveChart.SeriesCollection(1) .Points(1).Format.Fill.ForeColor.RGB...
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,...
czuwające stale, tzn. dopóki nie wyłączę próbuję w tym momencie zrobić to w programie AutoHotKey, ale jeszcze tego nie rozgryzłem - chociaż na pewno się da w prosty sposób (prosty dla kogoś kto zna ten program albo zna się na programowaniu - jest tam np. funkcja If PixelExist, gdzie można określić położenie X,Y pixela i jego kolor, a później wykonać...
Dobry wieczór, Robię w Excelu grafik, który ma być tak ograniczony, aby możliwe było wpisanie jedynie liczb od 1 do 12 oraz litery S, R i W. To byłam w stanie zrobić funkcjami wpisanymi w poprawność danych. Dodatkowo komórki mają być ograniczone pod względem koloru, tzn. mogą być jedynie określonego koloru zielonego, żółtego, białego oraz 2 odcieni...
Posiadam makro zmieniające kolory losowo a potrzebuje tylko dwa kolory w my Buton np; biały i czarny. i dobrze by było aby po zamknięciu Excela kolor wracał do początkowego np białego. PROSZE O POMOC W ZNALEZIENIU ROZWIAZANIA Znalazłem takie makra- PIERWSZE TWORZY MyButton1 [syntax=vbscript]Sub Creator() Dim shp As Shape Set shp = ActiveSheet.Shapes.AddShape(1,...
Uzależnić wartość komórki Cx od warunku dla jakiego komórka Ax zmienia kolor. Z tym że jeżeli komórka Ax ma kolor wstawiany ręcznie (zaznaczam że NIE WARUNKOWO) potrzebne będzie makro zliczające kolory (czy jakoś tak) które było prezentowane kilkakrotnie na forum.
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ć...
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)...
Witam, byłbym wdzieczny za pomoc w zrobieniu makra do pliku, a mianowicie w arkuszu w kolumnie B sa liczby. Jeśli któraś z tych liczb spełnia określony warunek jest przez pracownika zmieniana na kolor czerwony. Teraz potrzebowałbym makra w osobnym pliku, który weryfikował by tą kolumnę i jeśli byłyby w niej liczby oznaczone kolorem czerwonym, to kopiował...
Hejka Mam następujący problem do rozwiązania : Potrzebuję pomocy w stworzeniu makra które będzie zaznaczało 10% występujących wierszy z arkusza, który został już wcześniej pofiltrowany i następnie te pozycje zakoloruje na jakiś kolor. Makro więc po kolei musi : określić ile wierszy występuje w arkuszu, obliczyć z tej liczby 10%, zaznaczyć te 10% wierszy...
Witam serdecznie! Mam zakres komórek w wierszu, np. A1:A10, które domyślnie posiadają białe tło. Pracując w arkuszu kolor tła będzie zmieniany na, powiedzmy, niebieski i z powrotem na biały. Potrzebne jest mi makro, które zliczy ile razy dokonano zmiany koloru na niebieski, w całym wierszu. Co więcej, przydałby się przycisk "zapisz", do zatwierdzania,...
Dzięki. Mam jeszcze jedno pytanie: ma formularz wyświetlający oceny o uczniu, mam w nim zrobiony przycisk szukaj ucznia, gdy uczeń nie ma ocen wyświetla się że nie znaleziono rekordu. Nie szłoby zrobić to tak aby ten komunikat brzmiał uczeń nie ma ocen? Idzie zrobić takie makro?
Sub kolor() Dim litera As Range Set litera = ActiveDocument.Range With litera.Find .ClearFormatting .Text = "A" .MatchCase = True .MatchWholeWord = False End With litera.Find.Execute Do While litera.Find.Found litera.Expand wdSentence litera.Font.Color = wdColorBlue litera.MoveStart wdSentence litera.Find.Execute Loop End Sub
Robie jak piszesz komórka A1, A2, A3 z wartościami 8, 4, 2 z tłem zółtym komórka A5 kolor żólty bez wartości uzywma funkcji =PRLSumColorValue(A1:A3;A5) w komórce F5 wskazanie 0 a chciałbym 14 Gdzie mogę robić błąd ? używam Excela 2010
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. .
Scalenia nie pasują do rozwiązania, więc "rozScaliłem". Możesz ew. w wierszu pomocniczym przepisać nagłówek /WARTOŚĆ(.../ Dla ułatwienia zmieniłem format godzin w tabelce (06 zamiast 6, itd) Odczekałem do 11:00 i działa. Reguła musi być formułą, nie kombinuj z wbudowanymi. Jeśli ma kolorować cała "trójkę", to skopiuj do "sąsiadów". Np w T6 i V6- formuła:...
Rzeczywiście kilka kroków w dół robi czerwone litery :) Makro jest uruchamiane raz i kończy działanie mrugnięcie oka później, więc są dwie opcje do wyboru: - wpisywać i nie przejmować się kolorem, potem zaznaczyć całą kolumnę i ustawić dla wszystkich wpisów kolor czarny, potem uruchomić jeszcze raz makro. albo zmienić makro, które również dla "niesparowanych"...
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.
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 excelu jest taka funkcja w Narzędzie>Makra>Rejestruj nowe makro Jak użyjesz tej funkcji, będziesz mógł zmienić sobie kolor tła ręcznie a następnie w zarejestrowanym makrze zobaczyć jak to wykonać za pomocą makra, podobnie też z innymi rzeczami. Pozdrawiam Sławek
Ale czy zwykłym formatowaniem warunkowym można zmienić kolor wielu komórek w zależności od jednej? Ja nie umiem tego zrobić. Gdyby się nie dało to zawsze można napisać makro.
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...
Możliwe. Zrób pętlę po wszystkich komórkach i w każdej jeżeli kolor jest taki jak założyłeś (można podać RGB) to zmień kolor tła na inny. Spróbuj sam to zrobić. Makro mogę spróbować ci napisać jak znajdę trochę czasu (nie wiem kiedy) i nikt tego wcześniej nie zrobi.
Dziwne trochę, teraz iść do pracy, będę później. Tu jest mój Co robimy inaczej , że mój makro działa prawidłowo, u Ciebe nie ?
Dzień dobry. Zwracam się z prośbą o pomoc przy kolejnym projekcie :) . Próbowałem coś porobić samemu, ale skutek mizerny z tego wyszedł. Nie bardzo umiem w VBA a niestety nie wszystko można załatwić formułami. W czym problem? Mam arkusz zawierający 6 komórek z listami. Nie każda zawiera pozycję "RAL" (numer koloru lakieru). W załączonym arkuszu dwie...
Nie znam Visio, ale musisz w pętli dla kontrolki Shape zwiększać indeks ItemFromID(x) oraz kolor dla RGB(r,g,b).
Witam, Nie mogłem znaleźć nigdzie satysfakcjonującej odpowiedzi na dręczący mnie problem makra. Mianowicie, prowadzę magazyn za pomocą excel. Wprowadzamy dane skanerem, ale przy wydawaniu, wyszukujemy konkretny numer etykiety poprzez Ctrl + F a następnie zaznaczamy kolorem żeby potem zastosować filtrowanie przez kolor komórki. Teraz chciałbym zrobić...
Nie działa mi to :/ Widzę, że to zmienia kolor tylko tej komórki a pytanie jak zrobić żeby kolorowało zakres.
Jestem bardzo początkujący w VBA, a potrzebuję do obróbki dokumentów makra, które dokona zaznaczenia w całym dokumencie wszystkich wystąpień fontu z danym formatowaniem, by można było usunąć teksty z tym formatowaniem. Robię to kreatorem makro, ale kreator nie nagrywa, w sekwencji: "Znajdź-> Znajdowanie zaawansowane->Formatuj->Czcionka->Kolor-...
Mam rozwiązanie. Niech klawisz "0" nazywa się "C0" wtedy: Private Sub C0_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) C0.BackColor = &H80000010 ' Zmieniamy kolor przycisku End Sub Dla klawisza "1", który nazywa się "C1" Private Sub C1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,...
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...
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...
Moje makro: Dodano po 19 PRL funkcja zwraca 0, gdzie może być błąd: =LiczkolorTekst(zestawienie!A2:A500;3;"*...
Wszystko działa jak trzeba, zakresy pozwalają obsłużyć dużą ilość wierszy, dziękuję za pomoc :) Mam jeszcze pytanie: czy można wpleść do powyższego mechanizmu polecenie zmiany wypełnienia koloru wybranych w array komórek? Coś w stylu: jeśli UCase(.Cells(1, k)) <> "JEST" to wypełnij kolor na biało, jeśli inaczej to wypełnij kolor na żółto.
I jeszcze drobna poprawka dla E2007 na początku makra, aby sprawdzać wszystkie kolory z palety Range("AB5:AC60").... For i = 1 To 56
Witam, piszę tutaj ponieważ od dłuższego czasu powraca do mnie problem wykonania makra, które sprawdzałoby formuły (nie wartości jakie wynikają z formuł, ale "tekst" samych formuł) w 2 plikach. Często mam do czynienia z 2 plikami, które są do siebie podobne (takie same zakładki, takie same lub podobne wartości) i chcę sprawdzić czy formuły w nich występujące...
Makro to też bardzo fajna rzecz, ale ja jakoś nie potrafię tworzyć makr z kodów, jak poleca JRV. Ale w zupełności wystarcza mi sposób z tego opisu: http://www.komputerswiat.pl/poradniki/pr... Czyli wykonujemy czynności z opisu do momentu gdy kursor zamieni nam się na "kasetę magnetofonową"....
Według jakich zasad chcesz to zmieniać? Może dałoby się wykorzystać formatowanie warunkowe? Tylko warunek musi dać się obliczyć, nie może to być po prostu zmiana koloru. Generalnie kolor jest w Excelu dodatkiem i nie powinien być traktowany jak dane. Na przykład zmiana koloru w komórce nie generuje typowych zdarzeń i trudno na to reagować. Może opracuj...
Witam Szkoda że nie podzielasz naszego entuzjazmu :cry: , trzeba będzie ustawiać kolorki ręcznie. Dodałem oprócz kolorowania makr, zmianę koloru dla rejestrów i portów uP. Jak na razie wykorzystałem zestaw nazw portów ATMega128, ale z czasem uzupełni się też i inne. W załączniku gotowy plik ini , ale kolory trzeba dobrać wg swojego gustu.
To nie wchodzi w grę twoje pierwsze rozwiązanie jest lepsze. Myślę, że stworzę ok 50 kolumn wstawie je jako grupę co umożliwi mi jej schowanie.a w linijce[syntax=vb]For a = 7 To 0 Step -1[/syntax] a zamienie na 49 i bedzię super. Miałbym jeszcze jedno pytanie dotyczące tego pliku. Czy jest możliwość by po sformatowaniu tych kolumn jako daty, by sprawdzało...
Witam, mam następujący problem. Z VBA jestem że tak powiem początkującym. Mam w arkuszu w którym zależałoby mi żeby zrobić formatowanie warunkowe. Jak już wiadomo excel 2003 ogranicza to do 3 warunków. A potrzeba ich zrobić dużo więcej. Mianowicie chciałbym żeby po sprawdzeniu komórki i sprawdzeniu jej wartości i powiedzmy jeżeli w danej komórce będzie...
Cześć wszystkim, mam 2 małe problemy makrem do zaznaczania wierszy. 1. Pierwsze makro dodaje mi obramowanie do zaznaczonego wiersza - w tym kodzie chciałbym dodać zakres w jakim ma ono działać (tylko w obrębie tabeli) Od wiersza 42 do 305. If w > 0 Then With Rows(w) .Borders(xlEdgeBottom).LineStyle = xlNone End With End If With Target(1).EntireRow...
Czyli rozumiem że jednak nie wystarczy pikselowe przesunięcie obiektu, tzn. przesunięcie na poziomie pikseli współtworzących tenże obiekt na obrazie. Mówię o zmianach zachodzących w pikselach (kolor rgb, jasność), co w skali makro przekłada się na bieżąco obserwowany dynamiczny ruch obiektów na obrazie. Oczywiście mam tu na myśli wyświetlanie pojedynczego...
W tym przypadku wystarczy takie prościutkie makro: [syntax=vb]With Range("B15:C17") 'zakres do sortowania .Interior.Color = xlNone 'czyścimy stary kolor tła .Sort key1:=.Cells(1, 2), order1:=xlDescending, Header:=xlNo 'sortujemy po drugiej kolumnie majejąco .Rows("1:1").Interior.Color = 65535 'ustawiamy kolor pierwszego wiersza w sortowanym zakresie...
Można też sprawdzać kolor wypełnienienia. [syntax=vbscript]If d.Cells(w, k) <> 0 And d.Cells(w, k).Interior.Color = vbWhite Then[/syntax]
Witam, Potrzebuję pomocy z makrem. Chcę aby funkcja działała na całą kolumnę. Próbowałem załatwić to Range ale wywala błąd Mismatch zaraz przed komenda kolorowania. Co chce żeby makro robiło: 1. gdy w kolumnie A nie ma słowa "zielony" a w kolumnie B jest słowo "duza", to komórka w której nie ma słowa "zielony" ma byc kolorowana. 2. gdy w kolumnie A...
Kolega PRL uszykowl odpowiednie makro.
Cześć, Mam taki problem. Potrzebuje stworzyć makro, które porównuje dwie tabele z dwóch plików. Wartości które się nie zgadzają muszą zostać wypełnione kolorem czerwonym. Chodzi o to by w Zeszyt1 dla każdego produktu w którym cena i marża nie zgadza się z Zeszyt2 komórki powinny być wypełnione kolorem czerwonym. Niestety nie mogę skorzystać z formatowania...
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...
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
Witam potrzebuje napisać makro które będzie robić coś takiego: zaznaczy wszystkie liczby "powtarzające się w arkuszu na kolor zielony i wypisze te znaczenia w innym arkusz zrobiłem coś takiego [syntax=vb] Sub Zaznacznie_klorem() Dim ConstantCells As Range Dim cell As Range If TypeName(Selection) <> "Range" Then Exit Sub Application.ScreenUpdating...
1. Zmienne te muszą być liczbami, np. musi być: kol_pocz = 1 wiersz_pocz = 1 kol_fine = 27 ' (27 jest nr kolumny "AA") wiersz_fine = 100 2. "ZZ" - nie ma takiej kolumny (excel 97). 3. Makro to dla dużych zakresów będzie liczyło bardzo długo (musi przejść wszystkie komórki) 4. Należy usunąć wywołanie okien INPUTBOX i zmiennych z nim związanych (lub poprzedzić...
Witam, mam następujący problem: potrzebuję wyświetlić komunikat jeżeli w zaznaczonym zakresie znajdę dane słowo lub jeżeli znajdę odpowiedni kolor komórki... lub jeżeli znajdę „to i to”. „Moje” makro po części to robi, jednak jeżeli występują dwa te „błedy” jednocześnie to wyskakuje mi tylko jeden komunikat z pierwszego....
Makro potrzebne w celach dydaktycznych? Bo to 4. wstaw odpowiedni kolor (zależny od dnia tygodnia lub przeźroczysty dla nic) w wierszu Arkusz2!B2 można zrealizować przy pomocy formatowania warunkowego (funkcja DZIEŃ.TYG)...
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ę...
Cześć, Uczę się dopiero tworzyć makra i to jest moje pierwsze "dzieło". Jednak mam prośbę, nie mam pojęcia dlaczego makro mi nie działa tak jakbym sobie tego życzył. Chciałbym aby wpisując nazwę koloru do inputboxa (np. vbRed), makro skasowało mi tekst w tym kolorze. Możecie mi powiedzieć dlaczego wpisując np. vbRed do okienka generującego z InputBoxa...
Wspomniana wyżej xperia S ma dobry aparat, małe aberracje, dobre zdjęcia makro, dobre kolory...
Jestem laikiem jeżeli chodzi o VBA. Potrzebuję makro, które będzie sumowało komórki z danego zakresu względem kolorów jakie są w komórkach gdzie są wartości. Kod mam, ale po zmianie koloru komórki z zakresu automatycznie nie przelicza się, trzeba "odświeżyć". Jakieś pomysły jak to zrobić, żeby latało z automatu? Sub Makro1() Function SumujKolorowe(Zakres...
Ja pokombinowałem z formatowaniem warunkowym. Niestety może być tylko 3 warunki więc nie jest to do końca tak jak chciałeś. Komórkę "uwaga" spełnia komórka z godziną w danym dniu. Jeżeli jest maksymalna (lub większa) ilość litery d (DOM) od ustawionej (3) [można zmienić] godzina zmienia kolor na ciemnozielony Jeżeli jest maksymalna (lub większa) ilość...
Bardzo proszę o pomoc w napisaniu poprawnego makra, które będzie się uruchamiało przy każdorazowej zmianie wartości określonej komórki. Na tę chwilę mój problem polega na tym, że makro działa, kiedy ręcznie zmieniam wartości w komórce. Nie działa jednak, gdy w tę samą komórkę wstawiam prostą formułę, której wynikiem są określone wartości (formuła to:...
Dzieki za pomoc:), jeszcze jedno pytanie, jak zrobić żeby komórki które nie miały wpisanej zadnej wartości lub wpisane zera, makro nie zaznaczalo żadnym kolorem???
makro zmieniać kolor makro kolor komórki makro zmieniające kolor
tylne głośniki philips kontrolka silnik micra światła mijania panda
golf4 przekaźnik klimy silnik elektryczny
Citroën C5 X7 – aktywacja subwoofera a zapalnik poduszki, bezpieczeństwo SRS Samsung RL34SCSW – typowe usterki, diagnostyka i naprawa lodówki No-Frost
