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.
Najlepiej jak byś załączył twój plik. Wydaje mi się że wystarczy tylko dobrze "zaadresować" twoje makro i będzie działać Jak nagrasz makro spróbuj je przeanalizować i uprość niepotrzebne wpisy. Nie wiem czy nie warto zostawić jeszzce samego "ForeColor.RGB" a wtedy i ominąć "grupę" "with" wtedy z tego makra zostaną tylko trzy linie ... ale nie wiem co...
https://obrazki.elektroda.pl/6208181000_...
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,...
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...
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...
Jakimś wyjściem jest odpowiednio sformatowane pole WordArt jak na obrazku ( i w załączniku) http://obrazki.elektroda.pl/2055809700_1... Niemniej sama "zabawa" z ustawieniem jest pracochłonna, bo trzeba dla jednego tekstu (jednej komórki)zrobić: zaznacz tekst włącz WordArt (ikonka "A") wybrać pierwszą opcję zmienić czcionkę na Arial i...
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]...
To pobierasz/porównujesz wartości (If .. End If) i ustawiasz właściwości (możesz pomóc sobie rejestracją makra po prostu zmieniającego właściwości na pożądane)
Wystartuj rejestrowanie makra, zmień interesującą cię komórkę na inny kolor, następnie zamień kolor na pierwotny, zatrzymaj rejestracje makra. Wyjdź w edycje makra, dodaj warunek i pętle jak się zmienia kolor i jak on się zapisuje będziesz miał już w tym zarejestrowanym makrze.
Och, jest różnica :) Patrz posty kolegi drobok - zmień sobie kolory na różne w kilku sąsiadujących komórkach, następnie zaznacz je wszystkie razem... Gdzie się uczyć VBA? Po opanowaniu podstaw (Np [url=http://www.mielk.pl/pl/wiedza/kurs_... najwięcej "złapiesz" na rozwiązywaniu własnych pomysłów/realizowaniu potrzeb. Jak już całkiem się zaplątasz,...
podkresla mi wiersz: seria.Points(seria.Points.Count).ApplyDa... AutoText:=True, ShowSeriesName:=True, podane są tylko etykiety dla dwóch wykresów, a do tego zmienia kolory wykresu
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ć...
Witam, Chciałbym poprosić o makro które kopiowało by nazwy wszystkich Arkuszy z pliku i kopiowało je kolejno do pierwszego arkusza. Plik zawiera wiele arkuszy od Arkusz 1 do Arkusz n (o różnych nazwach). Chciałbym aby jego lista pojawiała się się w pierwszym arkuszu "Lista"od komórki A2 do ilość arkuszy. Dodatkowo w każdym z arkuszy jest "check box"...
Bez użycia makra to raczej niemożliwe, ale nie pisałeś na początku, że musi być bez makr. To już jest koncepcja twórców Excela, można zmieniać kolory różnych elementów interfejsu, ale tego obramowania chyba się nie da.
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...
No oki, a kolego jak zrobić by po najechaniu nie był to odnośnik typu mailto: nazwa(at)domena.pl i nie zmieniał koloru najlepiej w oppenoffice.calc
Cześć Potrzebuję makra, które będzie zmieniało wartość w poszczególnych komórkach. Przykładowo w kolumnie A są nazwy kolorów, w momencie jeżeli jest kolor "zielony", to musi być zastąpiony na "niebieski", a jeżeli nie ma tego kolory w tej kolumnie, to nic nie robi. Proszę o pomoc.
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:...
Cóż, ostatecznie zdecydowałam się jednak na podmianę fotek. Wstawiam kolorowe do Excela, makrem zmieniam na czarno-białe i takie fotki wstawiam do raportu.
Cześć, potrzebuję pomocy przy makrze, które po zaznaczeniu danego pola wyboru będzie zmieniało kolor poszczególnej komórki. Chodzi mi o to aby po zaznaczeniu pola wyboru w kolumnie B tło zmieniło się na zielone, a w komórce C na czerwony ale tylko w pojedynczej komórce (Przykładowo zaznaczamy B2, B5, B8 i w tych trzech komórkach wypełnienie zmienia...
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ł...
Formatowanie warunkowe - formula =DZIŚ()<wygaśnięcia (zielony) komunikat - makro do zdarzenia na otwarcie skoroszytu
"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...
Dzięki za próby pomocy mi jednak arkusz nadal pozostaje zablokowany do edycji - nie mogę go filtrować ani np. zmieniać kolorów czcionki, ukrywać kolumn. Pozostaje opcja wyboru z droplisty tylko
Nie działa mi to :/ Widzę, że to zmienia kolor tylko tej komórki a pytanie jak zrobić żeby kolorowało zakres.
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/...
Dodałem jeszcze możliwość ukrywania kolumn z niepotrzebnymi dniami w miesiącu, aktualizację dni miesiąca na pasku jak również zmiana koloru na szary dni sobota i niedziela. UWAGA!, nie zmieniaj (nie dodawaj nie usuwaj żadnych kolumn i wierszy) bo to spowoduje że makro będzie niepoprawnie działać
:arrow: adamas_nt Jak analizuje twoje kody to widzę że bardzo daleko mi jeszcze do pisania makr. Dzięki twojej wiedzy można było skrócić czas obliczeń (przynajmniej za pierwszym razem o parę sekund :) a nie milisekund,a drugie rozwiązanie też jest ciekawe) Adamas_nt 'owi należy się wielokrotne pomógł- a może nawet więcej] Ja już tylko skromnie dołożyłem...
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,...
Witam! Potrzebuję porady jak zrobić, żeby poszczególne komórki w exelu zmieniały kolor np: na czerwony gdy wynik w danej komórce wynosi 0? Proszę o pomoc! Dziękuję!
Ź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?
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...
Witam, Muszę zrobić kilkadziesiąt podobnych wykresów (ja je muszę zaprojektować – inne osoby będą te wykresy robić / wypełniać danymi ... albo ja je zrobię wszystkie). Na tych wykresach kolor znacznika musi być zależny od nadanej skali i przypisanych do tej skali kolorów w RGB. W załączeniu przykład zrobiony „ręcznie”. „Zielone”...
Mam rysunek w aplikacji Visio 2003, w którym jest sporo białych prostokątów z cyframi. Musze je pokolorować w zależności od tego od jakiej cyfry zaczyna się numer w prostokącie. Chciałem zautomatyzować chociaż troche proces malowania wprowadzając 3 makra i ręcznie decydując jakim kolorem ma być wypełniony aktualnie zaznaczony prostokąt. Po "nagraniu"...
Okej wszystko działa, tylko nie podświetla się NEXTJOB1 i NEXTJOB2 co jest powiadomieniem już dla następnej zmiany, Gdy znów zmienię na zmianę II to komórka =F6 nie zmienia się na odpowiedni kolor. Nie wiem jak to rozwiązać, ciąglę nad tym kombinuję. Pozdrawiam
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.
Przepraszam, że lepiej tego nie określiłam. Dla lepszego wyjaśnienia załączam plik (nie jest w formacie makro ponieważ taki był niedozwolony do załączenia). To moja dzienna produkcja. Każdego dnia zmieniam tu kolory aby zaznaczyć która zmiana ile i czego wyprodukowała. Obok mam zestawienie, chciałabym aby w efekcie końcowym samo wszytko się liczyło,...
witam może ktoś da radę ogarnąć temat potrzebuje makro które porównuje dane w komórkach od A1 do A200 między komórkami C1 do C200 i jeśli znajdą dokładnie takie same wpisy zmieniają ich kolor na np czerwony ?
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.
Nie wymyślaj zdarzenia, które nie jest w Excel(Worksheet_MouseMove, Arkusz1_MouseMove, Sheet1_MouseMove :) ) [syntax=vb]Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) With CommandButton1 If Y > 4 And X > 4 And Y < (.Height - 4) And X < (.Width - 4) Then .BackColor...
Widzę że powiązałeś te funkcje ze sobą znajdę chwile czasu to rozgryzę to. powiązałeś miesiące do zmiany i tu jest mały problem bo miesiace sie zmieniaja prawidłowo ale kolory dla zmian juz nie Bo naciskam zmiany 2 i 3 i tak samo. poprawiłem zakres bo daleś do T za krotki do AG. pod lista rozwijania jak by można ustawić zmiany żeby się kolorowały na...
Wystąpił nowy problem , makro rzeczywiście zamienia wybraną część tekstu na kolor wypełnienia, ale przy okazji zmienia czcionkę i kolory pozostałego tekstu w komórce najczęściej na czarną, ale potrafi też w niektórych komórkach całość tekstu zamienić na kolor wypełnienia. Ta wersja kodu z "replace" działa prawidłowo, pozostaje chyba tylko na nowo kodem...
Np. potrójnie zagnieżdżoną pętlą For wg.schematu: For pracownik = 1 To ilePracowników (tu przydałaby się rozpiska w osobnym arkuszu np. "Pracownicy", bo gdzieś trzeba ich policzyć) For miesiac = 1 To ilość miesięcy (tu LCase(nazwa arkusza) lub indeks daje nazwę m-ca) w tej pętli obliczasz bez zerowania również Nr wiersza wynikowego dla arkusza "Wynik"....
Dzieki bardzo za podpowiedz. A teraz jeszcze jedeno pytanie, jak umiescic ten przycisk w arkuszu excela i zgrac go z kodem? W Excelu 2003: - klikasz prawym przyciskiem w puste miejsce na pasku i klikasz "Visual Basic". - z menu które się pokaże klikasz "Przybornik formatów" - ikona młotka i klucza, pokaże się przybornik. - wybierasz z niego "Przycisk...
w Ex2003 to samo jest w menu [narzędzia]-[opcje] - zakładka[widok]- [kolor linii siatki] Ale chyba nie o to chodziło autorowi - wg mnie on chciał zmienić kolor obramowania wskazanej/zaznaczonej w danej chwili komórki. Co prawda i ono się zmienia w zależności od wybranego koloru siatki np żółte przy siatce niebieskiej. Ale zarządzanie samym zaznaczeniem...
Witam mam arkusz w exelu w nim numery telefonów i daty końca umowy. Są wszystkie daty kolorem żółtym zaznaczone. Jak zrobić żeby np. gdy zostało 3miesiące wszystkie daty były na fioletowo a gdy do końca został miesiąc na przykład na czerwono? Dobrze było by gdyby cały wiersz był na dany kolor łatwo będzie widzieć jak się zmienia w zależności od daty....
Bez autonumerowania tabel/wykresów nie wygeneruję spisu Coś mi się zdaje kolego, że korzystasz z nowszych wersji Worda niż mój (2016) :?: Więc nie będę w stanie przetestować rozwiązań pożądanych przez Ciebie :cry: Ale w takim razie nie możesz doklejać tego segmentu kodu modyfikacji tabel :!:, lecz musisz stworzyć odrębne makro operujące na tzw. kolekcji...
Dzieki za pomoc, w weeken jak bede mial troche czasu to przemysle to dokladnie i wezme sie do pracy, tak jak kol. marek003 pisze sam wszystko bede staral sie od poczatku zrobic bo to jest najlepsza nauka, przy okazji bylbym wdzieczny za jakis link do darmowego kursu excela (sam nie mam niestety czasu poszukac, a moze ktos akurat korzysta z tego i moze...
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...
Witam, chciałbym dodać nowy ekran w INT-TSH2 a na nim umieścić przyciski z uzbrajaniem/rozbrajaniem jednej/kilku stref. Jak to najlepiej zrobić? Dodanie nowego ekranu - oczywista sprawa, DLOADX ->struktura -> sprzęt -> INT-TSH i w zakładce ekran klikam "+" Czy dodanie przycisku którego naciśnięcie spowoduje uzbrojenie bądź rozbrojenie strefy (zależnie...
Przyszedł poniedziałek, znowu wróciłem do pracy i kontynuuje po kawałkach swoje dzieło i znowu pytania... Sub bl() Shapes(4).Fill.ForeColor.RGB = RGB(255, 255, 255) Shapes(5).Fill.ForeColor.RGB = RGB(255, 255, 255) Shapes(6).Fill.ForeColor.RGB = RGB(255, 255, 255) End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$N$5"...
Witam, Mam problem z edycją Makra (poskładanego z kilku znalezionych, nieco edytowane). Makro tworzy już dodatkowe arkusze zmieniając ich nazwę. Wybiera i zapisuje dane od 2 wiersza w nowych arkuszach. Chciałbym jednak by zaciągał również pierwszy wiersz z arkusza "OPIS" jako nagłówek. Zależy mi również na tym, by automatycznie edytował również szerokość...
Wychodzi na to, że pdf nie obsługuje "footnote tooltip" stworzonych w WORD. Szukając informacji o tworzeniu okienek wyskakujących po najechaniu myszką natknąłem się na trochę informacji jak to robić RĘCZNIE w różnych programach. (może komuś się przyda): Floating Text on PDF Documents http://khkonsulting.com/2014/07/floating... Acrobat...
http://obrazki.elektroda.pl/2211264700_1... Inspirując się sztuczką z natury, naukowcy z Uniwersytetu Kalifornijskiego w Berkeley, stworzyli niesamowicie cienki materiał zmieniający kolory niczym kameleon. Zmiany te wywoływane są na żądanie przez przyłożenie do struktury niewielkiej siły. Nowy, mieniący się wieloma kolorami materiał,...
makro zmieniające kolor komórek makro zmieniające znaki makro zmieniające nazwę pliku
grzałka zużyta obciążenie procesor laptop zasięg telewizji naziemnej
volkswagen sharan volkswagen sharan
Brak obrazu z kamery cofania w Vordon HT-800 Wpływ symetrii wału korbowego na odpalanie silnika