Ko svojim strankam razdelite poročila Excela, je pogosto lepo dodati nekaj zvončkov. Ena izmed lažjih izboljšav za uporabo je možnost razvrščanja, ko dvokliknete glavo stolpca. Čeprav se to morda sliši zapleteno, je s tem makrom razmeroma enostavno.
Delovni primer te tehnike dvojnega klika lahko prenesete v Excel .
Kako deluje makro
V tem makru najprej najdete zadnjo neprazno vrstico. Nato uporabite to številko vrstice, da določite ciljni obseg vrstic, ki jih morate razvrstiti. Z metodo Sort razvrstite ciljne vrstice po stolpcu, ki ste ga dvakrat kliknili.
Zasebni pod delovni list_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
1. korak: Navedite svoje spremenljivke
Dim LastRow As Long
2. korak: Poiščite zadnjo neprazno vrstico
Zadnja vrstica = Celice(vrstice.Število, 1).Konec(xlUp).Vrstica
'Korak 3: Razvrsti naraščajoče po dvokliknem stolpcu
Vrstice("6:" & Zadnja vrstica).Razvrsti _
Ključ1:=Celice(6, ActiveCell.Column), _
Vrstni red1:=xlNaraščajoče
Končni sub
V 1. koraku deklarirate spremenljivko Long Integer, imenovano LastRow, da vsebuje številko vrstice zadnje neprazne vrstice.
V 2. koraku zajamete zadnjo neprazno vrstico tako, da začnete pri zadnji vrstici na delovnem listu in uporabite lastnost End, da skočite navzgor do prve neprazne celice (ekvivalentno prehodu na celico A1048576 in pritisku Ctrl+Shift+puščica navzgor).
Upoštevajte, da morate spremeniti številko stolpca v tej celici v tisto, ki je primerna za vaš nabor podatkov. Na primer, če se vaša tabela začne v stolpcu J, morate stavek v 2. koraku spremeniti v Celice(Rows.Count, 10).End(xlUp).Row, ker je stolpec J 10. stolpec na delovnem listu.
V 3. koraku določite skupni obseg vrstic za svoje podatke. Upoštevajte, da se mora obseg vrstic začeti s prvo vrstico podatkov (razen glav) in končati z zadnjo neprazno vrstico. V tem primeru se vaš nabor podatkov začne v vrstici 6, zato uporabite metodo Sort za vrstice (“6:” & LastRow).
Argument Key pove Excelu, po katerem obsegu naj razvrsti. Ponovno boste želeli zagotoviti, da se obseg, ki ga uporabljate, začne s prvo vrstico podatkov (razen glav).
Kako uporabljati makro
Za implementacijo tega makra ga morate kopirati in prilepiti v okno kode dogodka Worksheet_BeforeDoubleClick. Če tukaj postavite makro, se lahko zažene vsakič, ko dvokliknete list:
Aktivirajte urejevalnik Visual Basic s pritiskom na ALT+F11.
V oknu Projekt poiščite ime svojega projekta/delovnega zvezka in kliknite znak plus poleg njega, da si ogledate vse liste.
Kliknite list, s katerega želite sprožiti kodo.
V spustnem polju Dogodek izberite dogodek BeforeDoubleClick.
Vnesite ali prilepite kodo.