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...
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(...
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 +...
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...
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...
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...
... Tylko zastanawiam bo dałeś : Selection.Interior.ColorIndex = 6 Selection.Interior.Pattern = xlSolid ciekawy jestem jaki był by tego efekt ewentualna różnica między tymi kodami, a boję się trochę sprawdzać żeby nie popsuć tego co zrobiłem ;P Pisałem że nie sprawdzałem zasadności użycia takiej a nie innej metody wprowadzenia koloru. Dałeś swój przykład,...
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...
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...
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)...
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...
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...
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łę...
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...
: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...
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...
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ąć...
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)...
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.
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...
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 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...
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ę,...
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"....
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...
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;...
A zmień indeks koloru z 41 np. na 5
indeks kolor indeks excel excel indeks
rozebrać klapa pralka shure uszkodzony automat świateł dziennych
dobra antena pokojowa wykrywacz metali schemat
Jak wymontować moduł Wi-Fi z TV Samsung UE22B5610AW? Oleo-Mac 937: Wzrost obrotów po obróceniu piły