Zrobiłem dla takiego przykładowego "blabla". O to chodzi?
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...
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.
Musisz się zdecydować - czy ma kolorować po uruchomieniu makra, czy po zmianie zawartości komórki.
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ć...
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...
Dobrze jesli naspepnym razem sformatujesz swoj kod i uzyjesz znacznikow. Myslisz ze komus sie chce ogladac takie smieci? 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...
Zwykle: [syntax=vb]Call nazwamakra[/syntax]
Plik jest jeden i w nim są oba opisane makra. Pierwsze makro opisałem na początku postu nr 7; nosi ono nazwę "LiczX", a drugie makro, które opisałem na końcu postu nr 7, nosi nazwę "Makro1". Czyli mam 1 plik o nazwie: Kalkulator - Koszty Allegro v10f.xls w którym są 2 arkusze, a ich nazwy to: Kalkulator oraz Tablica wyników Odnośnie wymienionych niejasności...
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.
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...
Wielkie dzięki za pomoc. Przekazuję Koledze parę punkcików za dotychczasowe wsparcie. FPS może być w dowolnej kolumny, ale wszystko ma się rozpocząć w pierwszym wierszu. Jeśli inaczej, proszę powiadomić Kolorowanie powinno zacząć się od drugiego wiersza. Czy w tym makrze można wybrać pojedynczą kolumnę do kolorowania (np. makro ma kolorować kolumnę...
Witam Jak należy uprościć poniższy kod, aby kolorowanie komórek odbyło się bez ich zaznaczenia. Czyli jak należy zlikiwidować te select i selection [syntax=vbscript]Sub Makro4() ' ' Makro4 Makro ' ' Sheets("SPR").Select Range("BI91:BL97,BK105:BL111,BK119:BL125... Range("BK154").Activate With Selection.Interior .Pattern...
Sprawdź takie rozwiązanie. W momencie dowolnej zmiany w arkuszu uruchamiane jest makro updateOne z adresem komórki, która jest do pokolorowania. Jeśli masz czysty arkusz i chcesz wszystkie istniejące komórki pokolorować, uruchamiasz makro updateAll, które przespaceruje się po całym arkuszu. W momencie, gdy usuwasz zawartość komórki albo wprowadzisz...
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...
Witam Mam plik grafiku pracowniczego i napisałem makro sprawdzające czy ilość w danym tygodniu jest zgodna, czyli wynosi 48h dla pracownika. Jest trzech pracowników i makro działa na pracowniku Edyta w pierwszym tygodniu, ale jeżeli ilość godzin jest poprawna, co sprawdzam warunkiem: Poprawiłem temat, pisownię i kolorowanie składni.
Masz tutaj chyba to o co Ci chodziło.Możesz wybrać kolorowanie całego wiersza lub jego części. [syntax=vbscript]Sub kolor() Dim i As Integer 'Komórki od A1 do np.A10 For i = 1 To 10 If Cells(i, 1) = "" Then 'Kolorowanie całego wiersza Range(Cells(i, 1), Cells(i, 1)).EntireRow.Interior.Color = RGB(255, 255, 0) 'Kolorowanie wiersza przez określoną liczbę...
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...
Dzień dobry, jeśli chodzi o kolorowanie przestawnego to coś takiego tutaj napisałem, może się przyda: [url=http://www.elektroda.pl/rtvforum/to... Edit: Przepraszam, dopiero teraz zauważyłem, że w jednym i drugim temacie pojawia się ten sam, Pana - nick :) Starość nie radość ;) Przeczytam to na spokojnie wieczorem i coś się wymyśli :)
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,...
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...
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
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...
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]
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...
udało mi się zrobić inicjały za pomocą odpowiednich formuł, ale jak zrobić, żeby makro kolorowało komórki?
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,...
Bardzo wam dziękuję! Podziałało i znacznie ułatwi mi to pracę. Skoro, ktoś już się moim tematem zainteresował, potrzebowałbym jeszcze 3 makr, także starałem się coś wykombinować, ale ciągle mam jakieś błędy.. 1) Jeżeli któraś z komórek w kolumnie E, ma wartość "kontrakt deaktywny", makro koloruje cały wiersz w którym jest ta komórka na czarno. 2) Jeżeli...
Da się. Proponuję zostawić procedurę przy zmianie i dodatkowo dopisać makro 'Refresh' (kolorowanie nie jest zdarzeniem arkusza, więc nie spowolni) Czy mamy coś nowego, czy działamy na załączniku wyżej?
Zrobilem male obejscie - dodalem dodatkowa tabelke, gdzie komorki sa kolorowane na podstawie wartosci z jeszcze innej tabeli ;) Kolory sa brane z posredniej. Ale... ;p makro koloruje obwodke punktu na wykresie, jak i linie laczaca te punkty. Linia laczaca ma byc caly czas koloru szarego, a nie wg koloru komorki. Nie mogeznalezc co za to odpowiada :/
Czy macie jakiś pomysł jak to ulepszyć? Spróbuj kodu z załączonego pliku. Tylko pamiętaj o otwieraniu obu plików przed uruchomieniem makra Porownaj() :spoko: 865411
Ładne wzorki. Kiedyś ciekawił mnie temat spirali Ulama i taką spiralę zrobiłem w Excelu. Zaznacza liczby pierwsze. Plik w załączniku. Należy włączyć makra w Excelu.
Przetestuj następujące makro [syntax=vb]Sub koloruj() Dim lLstRw& Dim iLstCol% Dim rngTmp As Range lLstRw = Cells(Rows.Count, 3).End(xlUp).Row iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column On Error Resume Next For i = 4 To lLstRw Step 4 Set rngTmp = Range(Cells(i, 4), Cells(i, iLstCol)).SpecialCells(xlCellTypeConstan... If Not rngTmp Is Nothing...
Nie jest to sortowanie, ale może wystarczy ci dodać kolumnę z rankingiem. (w przypadku dwóch takich samych wyników będzie np dwóch z nr 3 ale nie będzie 4 tylko od razu 5) Można dodać jeszcze formatowanie warunkowe i "kolorować" złotem pierwsze miejsce sredbrem drugie i brązem trzecie. (tego nie ma w załączniku ale myśle że to nie problem) W innym przypadku...
Nagraj makro zaznaczania i kolorowania tekstu i wkomponuj w kod kolegi JRV. Tzn zamiast: .Font.Color = vbBlue Powinno być coś w stylu: .Characters(Start:=x, Length:=y).Font.Color = vbBlue
Kolega PRL uszykowl odpowiednie makro.
Witam, Napisałem proste makro, które koloruje mi zaznaczone obszary i przechodzi dalej. Zamiast tego chciałbym żeby obszary te były ukrywane. Czy da się to jakoś zmodyfikować? [syntax=vbscript]Sub Makro1() ' ' Makro Dalej ' ' Klawisz skrótu: Ctrl+b ActiveCell.Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlToLeft)).Select...
Pkt. 1 wystarczy funkcja Jeżeli. Pkt. 2 tu już trzeba raczej makro, albo formatowanie warunkowe (tylko kolorowanie błędnej komórki)
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...
To co jest w funkcji main wygląda mniej wiecej tak : makro(1); system("ipconfig"); system("cmd /c"); getchar(); do "makro" wrzuciłem kolorowanie konsoli i takie tam funkcje przygotowujące konsole do pracy. A teraz kolejne pytanie : Jakie są komendy do zarządzania połączeniem internetowym / siecią?...
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...
Czyli, że komórki są kolorowane ręcznie?
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...
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.
A z czym konkretnie masz problem? Potrafisz otworzyć te pliki? Potrafisz utworzyć te klucze (sugeruję nie zwykłe łączenie stringów, ale dodanie jakichś separatorów)? Potrafisz porównać dane w obu plikach (a może arkuszach - zastanów się czy nie będzie wygodniej skopiować dane do arkuszy pliku z makrem)? Zamiast kolorowania lepiej jest użyć prostej sztuczki:...
Cześć, obecnie przygotowuję finalną wersję makro na potrzeby pracy, jednakże napotkałem pewien problem. Otóż potrzebuje aby dzięki VBA kolorowały się wiersze na podstawie dwóch komórek. Problem jest taki, iż ilość danych jest spora (różnorodność wierszy), zmienia się ilość wierszy oraz danych, a samo makro musi kolorować co drugi obszar (wierszami),...
Pokaż to makro, które źle działa, łatwiej będzie je poprawić.
Cześć, Dziękuję za szybką pomoc. Jestem pod wrażeniem, dokładnie o to mi chodziło, makro ma szukać fragmentu tekstu i na tej podstawie zaznaczać wiersz w którym występuje szukana fraza. Sprawdziłem u siebie i fajnie śmiga. Zauważyłem jedną różnicę, gdy wpisuje szukaną frazę tak jak jest wpisana w tabeli, np. UTR z dużych liter to makro szuka i koloruje...
Spróbowałem z minutami i... koloruje OK. Widocznie sekundy to za często (dla mojego sprzętu) W arkuszu są dwa formatowania warunkowe. Tworzysz je identycznie (instrukcja w arkuszu) Zamień MINUTA na GODZINA, ew: GODZINA($G$2)=LEFT($D4,2)=... Edit: 8:00 - podmieniłem załącznik (59+1=0) Na rysunku, widzę, masz co trzecią kolumnę. Można jak w załaczniku2
wielkie dzieki za pomoc walczylam z tym makrem tak dlugo za az przekombinowalam i zaczelam sie sama w tym gubic a tu takie proste i lgiczne roziazanie ktore podpowiedzial cbrman z zastosowaniem Application.Match, dziala elegancko!!!! wielkie dzieki za pomoc i tematy do przmyslenia:-) pozdrawiam, maglol Dodano po 1 witam, Niestety problem znowu pojawia...
kolorowanie makro kolorowanie wierszy excel kolorowanie
skoda silnik klekotać montaż czujnik inercyjny przekroju przewodów głośnikowych
elektro szczotka samsung wzmacniacz elektronika legionowo
Pęknięcie nowego filtra paliwa po wymianie - przyczyny i rozwiązania Jak uzyskać pomarańczowy kierunkowskaz przy czerwonych kloszach?
