Izplatot Excel pārskatus klientiem, bieži vien ir patīkami pievienot dažus zvaniņus un svilpes. Viens no vienkāršāk lietojamiem uzlabojumiem ir iespēja kārtot, kad tiek veikts dubultklikšķis uz kolonnas galvenes. Lai gan tas var izklausīties sarežģīti, ar šo makro tas ir salīdzinoši vienkārši.
Programmā Excel varat lejupielādēt šīs dubultklikšķa metodes darba piemēru .
Kā darbojas makro
Šajā makro vispirms atrodiet pēdējo tukšo rindu. Pēc tam izmantojiet šo rindas numuru, lai definētu kārtojamo rindu mērķa diapazonu. Izmantojot kārtošanas metodi, mērķa rindas tiek kārtotas pēc kolonnas, uz kuras veicāt dubultklikšķi.
Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
1. darbība: deklarējiet savus mainīgos
Dim LastRow As Long
2. darbība. Atrodiet pēdējo rindu, kas nav tukša
LastRow = Šūnas(Rindas.Skaits, 1).Beigas(xlUp).Rinda
3. darbība: kārtojiet augošā secībā kolonnā, kurā veikta dubultklikšķi
Rindas("6:" & LastRow).Kārtot _
Key1:=Šūnas(6, ActiveCell.Column), _
Order1:=xlaugošā secībā
Beigt apakš
1. darbībā jūs deklarējat Long Integer mainīgo ar nosaukumu LastRow, lai saglabātu pēdējās tukšās rindas rindas numuru.
2. darbībā jūs tverat pēdējo tukšo rindu, sākot no pašas pēdējās darblapas rindas un izmantojot rekvizītu End, lai pārietu uz pirmo tukšo šūnu (līdzvērtīgi pāriešanai uz šūnu A1048576 un nospiežot taustiņu kombināciju Ctrl+Shift+augšupbultiņa).
Ņemiet vērā, ka šajā šūnā ir jāmaina kolonnas numurs uz tādu, kas atbilst jūsu datu kopai. Piemēram, ja jūsu tabula sākas kolonnā J, jums 2. darbībā jāmaina priekšraksts uz Cells(Rows.Count, 10).End(xlUp).Row, jo kolonna J ir darblapas 10. kolonna.
3. darbībā jūs definējat savu datu kopējo rindu diapazonu. Ņemiet vērā, ka rindu diapazonam jāsākas ar pirmo datu rindu (izņemot galvenes) un jābeidzas ar pēdējo netukšo rindu. Šajā gadījumā datu kopa sākas ar 6. rindu, tāpēc izmantojat kārtošanas metodi rindās (“6:” un pēdējā rinda).
Arguments Key norāda programmai Excel, kurā diapazonā kārtot. Vēlreiz vēlēsities nodrošināt, lai jūsu izmantotais diapazons sāktos ar pirmo datu rindu (izņemot galvenes).
Kā lietot makro
Lai ieviestu šo makro, tas ir jākopē un jāielīmē notikuma koda logā Worksheet_BeforeDoubleClick. Ievietojot makro šeit, tas tiks palaists katru reizi, kad veicat dubultklikšķi uz lapas:
Aktivizējiet Visual Basic redaktoru, nospiežot ALT+F11.
Projekta logā atrodiet sava projekta/darbgrāmatas nosaukumu un noklikšķiniet uz pluszīmes blakus tam, lai redzētu visas lapas.
Noklikšķiniet uz lapas, no kuras vēlaties aktivizēt kodu.
Nolaižamajā lodziņā Notikums atlasiet notikumu BeforeDoubleClick.
Ierakstiet vai ielīmējiet kodu.