To zależy jaki użyjesz jako Kolor1. Prościej będzie przerobić funkcję, gdzie drugim argumentem będzie komórka "wzorcowa". Np [syntax=vb]Function LiczKolory(zakres As Range, kolor As Range) idCol = kolor.Interior.ColorIndex For Each kom In zakres If kom.Interior.ColorIndex = idCol Then LiczKolory = LiczKolory + 1 End If Next End Function[/syntax]Użycie...
A bez makr, skryptów itp itd się nie da? ;) Niestety, nie. Możesz użyć funkcji użytkownika podobnej do tej Function LiczKolory(zakres As Range, kolor As Integer) For Each kom In zakres If kom.Interior.ColorIndex = kolor Then LiczKolory = LiczKolory + 1 End If Next End Function Wklejasz do modułu standardowego i używasz jak funkcji Excela tzn...
Zastosuj sobie do tego prostą funkcję własną [syntax=vbscript]Function LiczKolor(zakres As Range, kolor As Integer) Dim kom As Range Dim suma As Double suma = 0 For Each kom In zakres If kom.Interior.ColorIndex = kolor Then suma = suma + 1 End If Next LiczKolor = suma End Function [/syntax] Podstawowe indeksy kolorów: czerwony - 3; zielony - 4 (ale...
Po pierwsze, nie rozróżnisz w tabeli tylu kolorów, takie niuanse normalnie zaczną się zlewać w jedno. Po drugie, bez Visual Basic będzie chyba trudno, nie wyobrażam sobie w każdej wynikowej komórce warunku zagnieżdżonego trzydzieści razy (lub wiele razy powtórzonego warunku 'OR'). W przypadku kodu, możesz stworzyć tabelę, w pierwszej kolumnie wpisujesz...
To chyba nie będzie takie proste. Niestety Excel jest bardzo ubogi jeśli chodzi o "kolorowe funkcje". Wg mnie musiałbyś zrobić wzorcową tabelkę z indeksami kolorów i przepisać ją do tablicy. Następnie do drugiej tablicy przepisać indeksy z "kolorowego" zakresu do sortowania i dodatkowo umieścić je w kolumnie pomocniczej Wreszcie czymś na wzór sortowania...
: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...
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...
Najprościej z funkcją WYSZUKAJ.PIONOWO lub kombinacją funkcji INDEKS i PODAJ.POZYCJĘ. Można też wykorzystać PRZESUNIĘCIE i PODAJ.POZYCJĘ. Do wyboru, do koloru! Formuły można kopiować pionowo.
wg mnie ten fragment: [syntax=vb]Range("H11").CurrentRegion.Of... 0).SpecialCells _ (xlCellTypeVisible).With Selection .ColorIndex = 1000 .Pattern = xlSolid [/syntax] napisał bym tak: [syntax=vb]Range("H11").CurrentRegion.Of... 0).SpecialCells(xlCellTypeVisible).Selec... Selection.Interior.ColorIndex = 6 Selection.Interior.Pattern = xlSolid[/syntax]...
Koniecznie makro? Wystarczy zastosować formatowanie warunkowe. Jeśli VBA to zainteresuj się funkcjami daty i czasu. Np [url=http://www.vb4all.pl/teoria/]Link, Funkcje>Funkcje daty i czasu>Weekday. "Podświetlenie" można zrealizować przez "pokolorowanie" tła komórki zakres.interior.colorindex=indeks koloru lub zakres.interior.color = RGB(red, green, blue)...
Zakisił Ci się jakiś błąd w arkuszu "podział na kolory". Przynajmniej w tym załączonym pliku. Trzeba było zrobić kopię i to dopiero w Calc (!). Moja propozycja: -ComboBox, wypełniany przy WorkbookOpen z arkusza "Opcje" (możesz sobie dopisywać kolory) -dodatkowa gałąź w instrukcji If sprawdzająca Indeks ComboBoxa -dodatkowy warunek z wykorzystaniem InStr...
Spróbuj [syntax=vb]Private Sub CommandButton4_Click() On Error GoTo myErr Application.ScreenUpdating = False nazwa_arkusza1 = Range("L1") wiersz_naglowka = 11 ost_wiersz = Range("A65536").End(xlUp).Row ost_kolumna = Cells(wiersz_naglowka + 1, 255).End(xlToLeft).Column Set ws = Worksheets(Worksheets.Count) pozycja = ws.Range("A65536").End(xlUp).Row +...
Witam serdecznie, chciałbym aby excel w googlach docs wypełniał mi komórkę kolorem w każdym wierszu - znalezioną pierwszą niepustą wartość ORAZ znalezioną ostatnią niepustą wartość ORAZ wszystkie pomiędzy tymi dwoma wartościami. Działa dla ostatniej komórki - ustalam formatowianie warunkowe dla całego zakresu i formatuj komórkę jeśli : jest równe =ArrayFormula(INDEKS(A1:IN1;...
Chciałbym po ustawieniu kursora na dany wiersz (wybrany klient) i po kliknięciu by cały wiersz został sformatowany warunkowo kolorem i wszystkie dane zostały przeniesione do arkusza z wzorem FAKTURY VAT. Wybranie wiersza i kliknięcie z przeniesieniam danych do innego arkusza trzeba obsłużyć VBA. Ale prościej, bez kombinowania w VBA będzie dodać kolumnę,...
Witam! Ze względu na ogrom komponentów potrzebuję stworzyć w kartach do zamawiania materiału makro przenoszące dane do odpowiednich kart na podstawie indeksów zamawianego materiału - docelowe karty mają nazwy poszczególnych indeksów. Zastanawiam się czy jest to do zrobienia, już dokładnie tłumaczę. W pliku mam 4 pierwsze karty służące do zapisywania...
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"....
Znalazłem w necie ciekawą procedurkę do rejestracji funkcji. Jest z nią jednak drobny problem. Ale od początku. Mam napisaną przykładową funkcję zwracającą indeks koloru wypełnienia komórki: Private Function KolorKom(Komorka As Range) As Double Application.Volatile KolorKom = Komorka.Interior.ColorIndex If KolorKom < 0 Then KolorKom = 0 End...
Jeżeli chodzi o kopiowanie kolorów, to najpierw na początku porządnie wyczyść arkusz celu z kolorów: [syntax=vb]wscel.Range("A2:E65536").Clea... wscel.Range("C2:E65536").Interior.ColorI... = xlNone[/syntax] Sam kolor jest zaszyty w zmiennej Range(...).Interior.ColorIndex, zatem kopiuj go razem z danymi w ten sposób: [syntax=vb]wscel.Range("C"...
https://obrazki.elektroda.pl/8121796700_... https://obrazki.elektroda.pl/7258549500_... Brzmi jakby to było o mydle i powidle. I właśnie tak będzie, co świadczy o tym, że chyba dość trafnie dobrałem tytuł. "Telewizor to złodziej czasu"- usłyszałem pierwszy raz jeszcze będąc dzieckiem, gdy kolejny raz z rzędu usiłowałem...
indeks kolorów indeks excel excel indeks
scenic skrzynia automat uszkodzony panel dotykowy audio cambridge
profil służbowy renaul trafic klimatyzacja
Gdzie kupić wiązkę do sprężarki klimatyzacji do Jeepa Wranglera JL? Dodatkowa blaszka w ładowarce RYOBI - funkcje i zastosowanie