Kui levitate oma Exceli aruandeid klientidele, on sageli tore lisada mõned kellad ja viled. Üks lihtsamini rakendatavaid täiustusi on sortimise võimalus, kui veerupäisel topeltklõpsatakse. Kuigi see võib tunduda keeruline, on see selle makroga suhteliselt lihtne.
Selle topeltklõpsu tehnika toimiva näite saate alla laadida Excelis .
Kuidas makro töötab
Sellest makrost leiate esmalt viimase tühja rea. Seejärel saate seda reanumbrit kasutada sortitavate ridade sihtvahemiku määratlemiseks. Sorteerimismeetodit kasutades sorteerite sihtread veeru järgi, mida topeltklõpsasite.
Privaatne alamtööleht_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
1. samm: deklareerige oma muutujad
Dim LastRow As Long
2. samm: otsige viimane mittetühi rida
LastRow = Lahtrid(Ridad.Arv, 1).Lõpp(xlUp).Rida
3. samm: sortige topeltklõpsatud veerus kasvavas järjekorras
Ridad("6:" & LastRow).Sordi _
Key1:=Cells(6, ActiveCell.Column), _
Järjestus1:=xlKasvav
Lõpeta alam
1. sammus deklareerite pika täisarvulise muutuja nimega LastRow, mis hoiab viimase tühja rea reanumbrit.
2. sammus jäädvustate viimase mittetühja rea, alustades töölehe kõige viimasest reast ja kasutades atribuuti End, et hüpata esimese tühja lahtrini (võrdne lahtrisse A1048576 liikumisega ja klahvikombinatsiooni Ctrl+Shift+ülesnool vajutamisega).
Pange tähele, et peate muutma selles lahtris oleva veeru numbri selliseks, mis sobib teie andmestiku jaoks. Näiteks kui teie tabel algab veerus J, peate muutma 2. toimingus oleva lause väärtuseks Cells(Rows.Count, 10).End(xlUp).Row, kuna veerg J on töölehe 10. veerg.
3. sammus määrate oma andmete kogu reavahemiku. Pidage meeles, et ridade vahemik peab algama esimese andmereaga (välja arvatud päised) ja lõppema viimase tühja reaga. Sel juhul algab teie andmekogum 6. reast, seega kasutate ridadel sortimise meetodit ("6:" & LastRow).
Võtmeargument annab Excelile teada, millise vahemiku järgi sortida. Jällegi soovite tagada, et teie kasutatav vahemik algaks esimese andmereaga (välja arvatud päised).
Kuidas makrot kasutada
Selle makro rakendamiseks peate selle kopeerima ja kleepima sündmuse koodi aknasse Worksheet_BeforeDoubleClick. Makro siia paigutamine võimaldab seda käivitada iga kord, kui topeltklõpsate lehel:
Aktiveerige Visual Basic Editor, vajutades ALT+F11.
Otsige projekti aknast üles oma projekti/töövihiku nimi ja klõpsake kõigi lehtede nägemiseks selle kõrval olevat plussmärki.
Klõpsake lehel, millelt soovite koodi käivitada.
Valige rippmenüüst Sündmus sündmus BeforeDoubleClick.
Tippige või kleepige kood.