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...
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...
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...
: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...
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...
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...
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]...
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.
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)...
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 Mam problem, chciałbym utworzyć formułę w excelu KTÓRA będzie wstawiała np ceny produktów za pomocą przyporządkowania na podstawie 2 argumentów warzywo i kolor warzywa . Przykład cena warzyw pomidory żółte5,7 pomidory czerwone5,9 paprykaczerwona4,6 paprykazi... tabela zakupów warzywokolor cena ilośćsuma paprykaczerwona 4 paprykazielona 5...
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;...
Dalej nie do końca rozumiem o co ci docelowo chodzi. Po twojej ostatniej wypowiedzi wnioskuje że chcesz mieć jedynie jakieś zabezpieczenie przed dublem gdy będziesz nadawał numery wewnętrzne dla danej "grupy" KOD EAN/INDEX/ NAZWA. Więc sortowanie nie będzie konieczne, tym bardziej jak kody będą wprowadzane "czysto" ręcznie. Poniżej (na razie bez makr)...
Przedstawiona funkcja jest prosta, tyczy się jednej komórki i właściwie nic nie robi. Nie szuka, nie wybiera, to tak jak "=" (równa się) tylko nie wartość komórki a przypisany do wskazanej komórki numer indeksu. na marginesie funkcja kolor to tylko tyle kodu: Function Kolor(Adres As Range) Application.Volatile True Kolor = Adres.Interior.ColorIndex...
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...
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ę,...
Otwierasz kolejne pliki w pętli, w której należy umieścić licznik numeru kolumny arkusza docelowego. Jeśli znasz nazwę lub indeks arkusza źródłowego (idealnie byłoby, żeby był identyczny w każdym pliku), to przepisujesz zakres, zamykasz plik i... to wszystko. Ewentualnie powtarzasz tę samą operację dla podfolderów, o czym pisałem wyżej. Jeśli nazwy...
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...
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"....
Wyszukiwanie na podstawie więcej niż jednego kryterium Funkcja =WYSZUKAJ.PIONOWO() to wyszukiwanie danych na podstawie jednego kryterium. Aby wyszukać dane na podstawie więcej niż jednego kryterium musimy zbudować formułe tablicową. Przykładowa tablela zawiera zestawienie sprzedaży: miesiąc, produkt i kolor to kryteria, my potrzebujemy zwrócić na podstawie...
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"...
Nie udało się, bo zmieniłeś kolejność kolumn. Funkcja WYSZUKAJ.PIONOWO potrafi szukać tylko od lewej do prawej. Jeśli trzeba szukać odwrotnie, to już trzeba użyć innych funkcji, np. INDEKS i PODAJ.POZYCJĘ, a w nowym Excelu X.WYSZUKAJ. Przykładowo tak: [syntax=text]=JEŻELI.BŁĄD(JEŻELI(INDEKS(...
A zmień indeks koloru z 41 np. na 5
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
laser prezentacja czujnik ciśnienia oleju renault master instrumenty elektroniczne
pianino cyfrowe czujnik temperatury sterownika pieca
Jak sprawdzić piny wyjściowe sterownika hulajnogi? Piekarnik Amica - Niedziałający Sensor Dotykowy: Przyczyny i Rozwiązania
