[syntax=vbscript]Sub Linki() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow a = Split(Cells(x, 1), ",") u = UBound(a) For y = 0 To u Cells(x, y + 3) = a(y) Next Next End Sub [/syntax]
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,...
Witam, zainteresuj się pakietem komponentów SynEdit, wszystko co chcesz już tam jest :wink:
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ć...
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...
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...
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.
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....
Witam! Od dłuższego czasu szukam informacji czy jest dostępna taka funkcja otóż: Mam parę tysięcy wierszy w tabeli excel z listami materiałowymi którą porównuje z bazą danych. Jedyną zmianą jaką wprowadzam w tabeli jest zaznaczenie kolorem już zrobionych/niepoprawnych itp wierszy Problem polega na tym że niektóre części (grupy wierszy) były już sprawdzone...
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...
Potrzebuje pomocy w formatowaniu komórek. W załączniku jest plik Chodzi o to aby we wszystkich kolumnach zaznaczyło kolorem te same litery. Czyli np 11H mamy litere B więc żeby H12 i H18 gdzie tez jest B pokolorowało. 11P jest A więc niech pokoloruje 21P i 24P. Można to zrobić ręcznie ale te tabele maja po 100 wierszy i bardzo usprawniłoby mi to pracę....
Cześć! Jestem tu nowy, i to mój pierwszy post, ale zacznę z grubej rury, mam nadzieję, że ktoś będzie mi w stanie pomóc. Mam taki problem ze stworzeniem makra w Excelu (2010) poprzez VBA. Potrzebuję zrobić makro, i podpisać je pod przycisk (formant ActiveX). Makro ma za zadanie brać wartość z tabeli przestawnej, i w zależności od wartości kolorować...
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 serdecznie, mam za zadanie napisać program który koloruje graf o odpowiedniej ilości kolorów i liczbie wierzchołków + opcja losowania dowolnego grafu tresc zadania http://img21.imageshack.us/img21/1062/80... algorytm dzialania, tablica G jest symentryczna, czyli wieczholek 1 powiazany z 2 to samo co 2 --> 1 (1 --> 2) http://img408.imageshack.us/img408/13/26...
dla konkretnych nazw z pierwszej kolumny kolorowało cały wiersz tabeli przestawnej Proszę pamiętać, że formatowanie warunkowe można zastosować również do tabeli przestawnej :idea: :D 1041302
Dzięki wielkie za podpowiedź :) Twoja pomoc była bardzo przydatna :) Pozdrawiam
Akurat robiłem coś takiego do swojego projektu i mam kod pod ręką. Wklejasz go do arkusza, który ma obsługiwać "kolorowanie wiersza" po wpisaniu wybranego znaku (w moim wypadku: litery x do kolumny 1). Kod został rozbudowany o "dynamiczne" ustalanie zakresu kolumn do zaznaczenia (ost_col - ostatnia kolumna nagłówka), obsługę zarówno wpisania pojedynczej...
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.
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.
Dokładnie. A konkretnie zakres od N1 do ostatniego wypełnionego wiersza w kolumnie N.
Przed pętlą wstaw jakąś zmienną typu Integer i ustaw ją na zero. W pętli, tam gdzie wykonujesz akcję na znalezionym wierszu (np. kolorowanie) dodaj do tej zmiennej jeden. A na końcu sprawdź IFem, czy wartość jest równa zero. jeżeli tak, to wtedy wyświetl MsgBox.
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...
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ę...
wartości dowolne ale powtarzaja się we wszystkich wierszach czyli np może byc 6 i 13 al tylko ma kolorowac te wiersze gdzie występują razem
wielkie dzięki, pierwszy wariant jest OK :) Dodano po 3 zna się może ktoś z Was na zaawansowanym formatowaniu warunkowym ? chodzi mi o to, że w kolumnie A mam pewną sumę a w kolumnach od B do G mam rożne wartości i chciałbym żeby w momencie kiedy suma wartości z przedziału B:G przerkowczy wartość z komorki A to żeby od momentu jej przekroczenia komórki...
Spróbuj formatować całe wiersze np tak jak na zrzucie :idea: 959419 to będziesz mógł wykorzystać filtrowanie wg kolorów :spoko: 959426
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),...
Do kolorowania całego wiersza użyj kolekcji Rows. A co Ci w tym kodzie nie działa, bo u mnie koloruje?? Private Sub CommandButton1_Click() For Each kom In Range("c9:c1000") If kom.Value = "Nazwisko" Then With Rows(kom.Row).Interior .ColorIndex = 41 .Pattern = xlSolid End With End If Next kom End Sub PS....
Spróbuj wykorzystać [url=https://www.cognity.pl/formatowanie... warunkowe
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.
Chodzi o najnizsze ceny w danym wierszu. Musiałem poradzić sobie jakos pustymi komórkami, ponieważ kolorowały sie na kolor zielony i byly podswietlane jako "najnisza cena". Nie moglem uzupelnic komorki inna cena bo po prostu jej nie bylo. Plik bede mogl przeslac pozniej wieczorem.
Jak zrobić żeby pozostałe wiersze też kolorowały się wraz z C1. Tak: https://obrazki.elektroda.pl/9124530500_...
A może spróbuj formatowaniem warunkowym? Jeżeli dotyczy to na przykład kolumny czy wiersza, ustaw warunek aby kolorowało wszystkie puste komórki
Jeżeli kolorują się wszystkie wiersze, to można sprawdzić, czy warunek jest ustawiony na pewno "mniejsza lub równa", a nie "większa..." i czy na pewno jest "-7" a nie "+7". Wiem, że to może wyglądać banalnie, ale zdarza mi się czasem spędzić dużo czasu na szukaniu błędu, podczas gdy chodzi tylko o różnicę jednego znaku np. przez niedokładne kliknięcie....
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ć.
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ę...
Dziękuję za pomoc. Mam tylko pytanie Z tego co widzę kod porównuje wszystkie pola z arkusza OUTPUT do kolumny D z pliku 1 671 913 2.xlsx Czy można zrobić, żeby porównywał tylko pierwszy wiersz z kolumną? Na przykład jak D2=EW2, D3=EX2, D4=EY2 i tak stopniowo powinno przechodzić komórka po komórce aż do końca wiersza i kolorować na zielono lub gdy coś...
No fajnie, ale jakie jest pytanie?? ;) Chyba nie spodziewasz się, że ktoś Ci wrzuci gotowe rozwiązanie, to nie jest makro kolorujące wiersze naprzemiennie. A jeżeli to zlecenie za pieniądze, wypadało by to zaznaczyć. Przy takiej ilości rekordów, jeśli chcesz przechowywać i analizować dane przynajmniej za okres jednego miesiąca (a znając życie wkrótce...
Możesz wrzucić plik z przykładowymi danymi (kilka wierszy)? Nie jestem pewien o jaki sposób "kolorowania" chodzi.
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...
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....
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:...
Bardzo dziękuje za Wasze kody. A jeszcze tylko pytanie do JRV: jak zmodyfikować kod zakładając, że dla B5 zakres będzie od D5:G5, dla B6 zakres D6:G6 i tak dla 20 wierszy ??
Kolega (at)Freddie Chopin wymyśla jakieś teorie spiskowe tutaj. To nie jest kwestia spisku miłośników C, abstrakcji czy optymalizacji tylko zdrowego rozsądku. Jeśli mogę zrobić to samo wstukując w klawiaturę 5 znaków zamiast 30 to oczywiście że wolę ten pierwszy sposób. Jak dla mnie to miłośnicy C++ mogą sobie nawet robić moduły do kreślenia szlaczków...
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...
"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...
Dwie zmienne od kolorów(k1=0 lub Empty, k2=1), pętla zewnętrzna 1-10 od kolumn, pętla wewnętrzna 1-10 step 2 od wierszy, w której przypisujesz kolory dwóm komórkom (interior.colorindex), po zakończeniu pętli wewnętrznej zmiana kolorów (k1=tmp, k1=k2, k2=tmp). Hmm, jaki kolor ma pierwsze pole, biały?
Dziękuję. Jak na ten moment jest super z tym co mam. Dodano po 35 Mam jeszcze pytanie w jaki sposób teraz to zmodyfikować żebym miał np 100 wierszy w których da się kolorować. Dziękuję. Dodano po 8 Już sobie poradziłem. EDIT Mam jeszcze pytanie. W jaki sposób zrobić by to formatowanie działało poprawnie jeśli dodam jedną kolumnę na początku arkusza....
Spróbuj formatowania warunkowego wg takiego wzoru: Mam jeszcze jedno pytanie - jeżeli formatowany obszar nie znajduje się w pierwszym wierszu, to niestety funkcja zaczyna szwankować. Jeśli obniży się o jeden wiersz, "kolorowanie" rozpoczyna się od komórki nad pustą, a nie pod. Jeżeli zaczniemy formatowanie jeszcze niżej, np od wiersza 10, to wypełniane...
Ten sam OO, o którym pisałeś i taki wynik Spróbuj jeszcze zresetować całą aplikację :!: zamknij całkowicie i uruchom od nowa aplikację i ten plik. U mnie też tak było początkowo ze względu na wersję językową zainstalowanej aplikacji - stąd ta nazwa stylu Green :please: Jak widać na Twoim zrzucie koloruje prawidłowo całe wiersze w których wystąpił jakiś...
kolorowanie makro excel kolorowanie makro kolorowanie
lexia sterowniki interfejsu zasilać laser nagrywarka karta podczerwień
polerowanie szyby polerowanie szkła
Kod U1318 w Citroen C4 - problem z magistralą CAN Błąd E5 na bieżni T280 - przyczyny i rozwiązania
