Witam, Mam problem z wyszukaniem wartości min i max w określonym zbiorze. Przykład: Arkusz 1 Kol A Kol B A 2 A 6 A 11 A 15 A 4 A 6 B 4 B 6 B 6 B 7 B 18 Chciałbym, aby dane były pobierane do Arkusza 2, w taki sposób, żeby znajdowało max i min dla poszczególnej litery w kol A - czyli dla A min 2 i...

A dlaczego VBA? Zdaje się, że chcesz znaleźć warunkowo MIN i MAX. Spróbuj z formułą tablicową (zatwierdzasz Ctrl+Shift+Enter), Np i analogicznie dla MAX.

Może przeróbka Twojego makra? Dorobiłem pętlę, czyszczenie filtru, utworzenie i zapisanie nowego pliku, etc. Działa z plikiem z załącznika, wymaga dopieszczenia.Kod: textZaloguj się, aby zobaczyć kod

To mój obecny kod: Kod: textZaloguj się, aby zobaczyć kod Dorobiłem dodatkowy arkusz test, do którego kopiuje wynik i tam szukam max. Kombinuje teraz, aby lista pobierała wartości z zakresu, a wartości wpisywane dokładnie w wierszu gdzie jest dana litera. Mam nadzieję, że wiecie o co mi chodzi:)

Dzięki wielkie! Rewelacja. Mam jeszcze pytanie, w sumie dwa. Pyt.1 Chciałbym makro które dla każdej litery pobierało by dane i zapisywało w nowym pliku (w nazwie litera, np. A.xls, B.xls itd.) Pyt. 2 Próbowałem wyszukiwanie za pomocą makra i kopiowanie całego wiersza. Do tej pory udało mi się to zrobić tylko z wyszukiwaniem z jednego pola, więc jeżeli chce wyszukać dane dla liter od A do D to muszę cztery razy wkleić w komórkę A1 literę (stąd makro pobiera dane). Sposób opiera się na zasadzie filtrowania. Mógłbyś mi jakoś pomóc.

Czy da sie zrobić listę na podstawię zakresu, np. od A2 do A4?

Da się. Np:Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka vList = Array([a2], [a3], [a4])

No tak, tylko bardziej mi chodziło o listę na zasadzie Range(a2:a4). Niestety ten sposób nie działa, a też nie chce wpisywać 20 czy 30 wartości.

Spróbuj z tablicą. Przykład:Kod: textZaloguj się, aby zobaczyć kod

Msg Box pokazuje dobrze, ale w momencie zastosowania filtru mam: Run-time error '9': Subscript out of range.

Co w wolnym tłumaczeniu znaczy, że jesteś poza zakresem.

REKLAMA

Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[Excel] Jak znaleźć min i max dla każdej grupy w kolumnie?

Gamblee 28 Sty 2012 15:41 4661 10

REKLAMA

Zgłoś naruszenie prawa

Odpowiedz | Nowy temat

#1 10460192 28 Sty 2012 15:41

Gamblee Gamblee

Poziom 9

Posty: 41

Ocena: 2
Autor tematu

Post #1
10460192 28 Sty 2012 15:41

Witam,
Mam problem z wyszukaniem wartości min i max w określonym zbiorze.
Przykład:
Arkusz 1
Kol A Kol B
A 2
A 6
A 11
A 15
A 4
A 6
B 4
B 6
B 6
B 7
B 18
Chciałbym, aby dane były pobierane do Arkusza 2, w taki sposób, żeby znajdowało max i min dla poszczególnej litery w kol A - czyli dla A min 2 i max 15. Poza tym jeżeli w zbiorze było by więcej liter, to żeby pobierało wartości tylko dla poszczególnych liter wyszczególnionych w arkuszu 2 w kol A. Pewnie nie obędzie się bez jakiegoś makra...

Z góry dzięki za wszelką pomoc.

Załączniki:

przykład.xls (25.5 KB) Musisz być zalogowany, aby pobrać ten załącznik.
Wyzwalacze, powiadomienia i optymalizacja zużycia energii przy wykorzystaniu mierników energii Fox [sponsorowany]
REKLAMA
#2 10462452 28 Sty 2012 23:11

Gamblee Gamblee

Poziom 9

Posty: 41

Ocena: 2
Autor tematu Pomocny post? (0)

Post #2
10462452 28 Sty 2012 23:11

To mój obecny kod:

Kod: text
Zaloguj się, aby zobaczyć kod

Dorobiłem dodatkowy arkusz test, do którego kopiuje wynik i tam szukam max. Kombinuje teraz, aby lista pobierała wartości z zakresu, a wartości wpisywane dokładnie w wierszu gdzie jest dana litera. Mam nadzieję, że wiecie o co mi chodzi:)
Pomocny post

#3 10476985 31 Sty 2012 21:52

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 658
Pomocny post? (+1)

Pomocny post
Post #3
10476985 31 Sty 2012 21:52

A dlaczego VBA? Zdaje się, że chcesz znaleźć warunkowo MIN i MAX. Spróbuj z formułą tablicową (zatwierdzasz Ctrl+Shift+Enter), Np

i analogicznie dla MAX.
REKLAMA
#4 10482732 02 Lut 2012 01:44

Gamblee Gamblee

Poziom 9

Posty: 41

Ocena: 2
Autor tematu Pomocny post? (0)

Post #4
10482732 02 Lut 2012 01:44

Dzięki wielkie! Rewelacja.
Mam jeszcze pytanie, w sumie dwa.
Pyt.1 Chciałbym makro które dla każdej litery pobierało by dane i zapisywało w nowym pliku (w nazwie litera, np. A.xls, B.xls itd.)

Pyt. 2 Próbowałem wyszukiwanie za pomocą makra i kopiowanie całego wiersza. Do tej pory udało mi się to zrobić tylko z wyszukiwaniem z jednego pola, więc jeżeli chce wyszukać dane dla liter od A do D to muszę cztery razy wkleić w komórkę A1 literę (stąd makro pobiera dane). Sposób opiera się na zasadzie filtrowania.

Mógłbyś mi jakoś pomóc.
REKLAMA
Pomocny post

#5 10483045 02 Lut 2012 09:10

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 658
Pomocny post? (+1)

Pomocny post
Post #5
10483045 02 Lut 2012 09:10

Może przeróbka Twojego makra? Dorobiłem pętlę, czyszczenie filtru, utworzenie i zapisanie nowego pliku, etc. Działa z plikiem z załącznika, wymaga "dopieszczenia".
Kod: text
Zaloguj się, aby zobaczyć kod
#6 10493606 04 Lut 2012 13:59

Gamblee Gamblee

Poziom 9

Posty: 41

Ocena: 2
Autor tematu Pomocny post? (0)

Post #6
10493606 04 Lut 2012 13:59

Czy da sie zrobić listę na podstawię zakresu, np. od A2 do A4?
#7 10494665 04 Lut 2012 17:19

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 658
Pomocny post? (0)

Post #7
10494665 04 Lut 2012 17:19

Da się. Np:
Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
vList = Array([a2], [a3], [a4])
#8 10534319 12 Lut 2012 15:20

Gamblee Gamblee

Poziom 9

Posty: 41

Ocena: 2
Autor tematu Pomocny post? (0)

Post #8
10534319 12 Lut 2012 15:20

No tak, tylko bardziej mi chodziło o listę na zasadzie Range("a2:a4"). Niestety ten sposób nie działa, a też nie chce wpisywać 20 czy 30 wartości.
REKLAMA
#9 10535425 12 Lut 2012 18:06

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 658
Pomocny post? (0)

Post #9
10535425 12 Lut 2012 18:06

Spróbuj z tablicą. Przykład:
Kod: text
Zaloguj się, aby zobaczyć kod
#10 10536010 12 Lut 2012 19:29

Gamblee Gamblee

Poziom 9

Posty: 41

Ocena: 2
Autor tematu Pomocny post? (0)

Post #10
10536010 12 Lut 2012 19:29

Msg Box pokazuje dobrze, ale w momencie zastosowania filtru mam: "Run-time error '9': Subscript out of range.
#11 10537984 13 Lut 2012 00:09

walek33 walek33

Poziom 29

Posty: 1015

Pomógł: 132

Ocena: 81
Pomocny post? (0)

Post #11
10537984 13 Lut 2012 00:09

Co w wolnym tłumaczeniu znaczy, że jesteś poza zakresem.
Zarejestruj konto, Zaloguj się i bądź aktywny na forum, a wtedy reklamy nie będą się pojawiać. Dołącz do dyskusji i otrzymaj punkty za rejestrację oraz odpowiedzi.

Zainstaluj aplikację Elektroda

Odpowiedz | Nowy temat

Zgłoś naruszenie prawa

Podsumowanie tematu

✨ Użytkownik poszukuje sposobu na znalezienie wartości minimalnych i maksymalnych dla każdej grupy liter w kolumnie w Excelu. Przykład danych zawiera litery A i B z odpowiadającymi im wartościami liczbowymi. Użytkownik chce, aby wyniki były przenoszone do innego arkusza, a także rozważa użycie makra do automatyzacji tego procesu. W odpowiedziach zasugerowano użycie formuł tablicowych oraz modyfikację makra, aby umożliwić filtrowanie danych dla wielu liter jednocześnie. Pojawiły się również pytania dotyczące dynamicznego tworzenia listy liter na podstawie zakresu komórek.
Wygenerowane przez model językowy.

REKLAMA