Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Skrócenie kodu w makrze

salvado · Exceloholic Wersja: Win Office 2019 Posty: 224

witajcie,
intuicja podpowiada mi, że taki działający kod:

Kod:

ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=1
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=4
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=5
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=6
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=7
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=8
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=9
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=10
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=11
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=12
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=13
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=14

można zastąpić jedną linią. Próbowałem z przecinkami, średnikami i innymi znakami, ale nie wychodzi.
Podpowiecie jak, jeśli w ogóle?

Maciej Gonet · Wysłany: 28-09-2024, 11:26

Można zrobić tak:

Kod:

ActiveSheet.Range("$B$2:$O$252").AutoFilter _ Field:=Array(1,4,5,6,7,8,9,10,11,12,13,14)

albo pętlą:

Kod:

Dim i As Long
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=1
For i = 4 To 14
ActiveSheet.Range("$B$2:$O$252").AutoFilter Field:=i
Next i

salvado · Exceloholic Wersja: Win Office 2019 Posty: 224

dzięki - pomógł pomysł nr 2. Pierwszy - nie wiem dlaczego - generuje Syntax Error.

Maciej Gonet · Wysłany: 28-09-2024, 12:36

Jakby był załącznik, to można by sprawdzić.
U mnie działało, ale sprawdzałem na mniejszej liczbie kolumn.
To jest jedna linia kodu podzielona podkreśleniem na dwie. Możesz to też uruchamiać w jednej linii.

Tajan · **Pomógł:** 5591 razy Posty: 12114

Jeżeli zadaniem makra jest reset wszystkich wyborów filtra to można użyć:

Kod:

ActiveSheet.Autofilter.ShowAllData

salvado · Exceloholic Wersja: Win Office 2019 Posty: 224

Tajan,
tak, chodzi o usunięcie filtrowania w całym arkuszu. Dziękuję za kod.