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...
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...
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...
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...
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...
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...
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(...
: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...
Linia Set ws = Worksheets(Worksheets.Count) w nawias wpisz nazwę w cudzysłowie lub indeks arkusza.
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]...
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...
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.
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...
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)...
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;...
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...
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...
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)...
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ę,...
Tak całkiem bez makr to się nie obejdzie. Ale nie muszą to być klasyczne makra VBA, mogą być zamiast tego stare funkcje makr O.KOMÓRCE, których można używać w formułach nazwanych. Przykład w załączniku. Formuła rozpoznaje tylko kolory nadane przez formatowanie zwykłe (nie warunkowe). Jeśli bezpośrednio pod komórką, która ma kolorowe tło umieścimy formułę...
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"....
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"...
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...
Na pewno da się dodać w arkuszu dane datę do godziny i otrzymać dato-godzinę, ale te "wspaniałe" wbudowane funkcje nie chcą tego wyszukać. Mi by było łatwiej zaciągnąć csv i wygenerować kolejny który by się otworzył excelem jak ta tabelka tylko bez formatowania (pogrubienia kolorki) np. w php. Dane program generuje w pliku tsv tsv czy csv? i czy jest...
Hejka. Temat trochę trudny. Mam gotową formułę, która koloruje mi komórkę z lokalizacją, gdy imię i szukana się zduplikowały. Natomiast docelowo nie będą to imiona i miasta tylko...liczby.Jak będzie dużo duplikatów i z 20 komórek pokolorowanych to wyszukanie która dokładnie szukana w którym pojemniku się znajduje będzie dramatem. Chciałbym osiągnąć...
A zmień indeks koloru z 41 np. na 5
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...
Jeżeli ma "coś" wyskakiwać to tylko tylko makro. Jeżeli chcesz to zrobić sam to poczytaj o VBA ale może na początku zacznij od prostszych rzeczy w stylu kopiowania komórek , pobierania danych z komórek poddawania ich różnym obróbkom matematycznym i zwracania wyniku do excela. Jeżeli wystarczą ci kolorki i ewentualny ruch myszką by zauważyć wszystkie...
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 indeks excel excel indeks
canon szyba instalacja honda civic kuchenka mastercook temperatura
electrolux ewt10110w gorenje lodówka
Zasilacz PS30SWI: parametry, cechy i zastosowania Kostki drzwi prawego słupka Peugeot 308 T7 - diagnostyka i naprawa