Amikor Excel-jelentéseit szétosztja ügyfelei között, gyakran hasznos néhány csengő és síp hozzáadása. Az egyik könnyebben alkalmazható fejlesztés a rendezés lehetősége, ha duplán kattintanak egy oszlopfejlécre. Bár ez bonyolultnak hangzik, ezzel a makróval viszonylag egyszerű.
Letöltheti ennek a duplakattintásos technikának működő példáját az Excelben .
Hogyan működik a makró
Ebben a makróban először az utolsó, nem üres sort találja meg. Ezután ezt a sorszámot használja a rendezendő sorok céltartományának meghatározásához. A Rendezés módszerrel a célsorokat az oszlop szerint rendezi, amelyre duplán kattintott.
Private Sub Worksheet_BeforeDoubleClick (ByVal cél tartományként, Mégse logikai érték)
'1. lépés: Deklarálja a változókat
Dim LastRow As Long
'2. lépés: Keresse meg az utolsó nem üres sort
UtolsóRow = Cells(Rows.Count, 1).End(xlUp).Sor
'3. lépés: Növekvő rendezés a duplán kattintott oszlopban
Sorok("6:" & LastRow).Rendezés _
Key1:=Cellák(6, ActiveCell.Oszlop), _
Sorrend1:=xlNövekvő
Vége Sub
Az 1. lépésben deklarál egy LastRow nevű Long Integer változót, amely az utolsó, nem üres sor sorszámát tartalmazza.
A 2. lépésben rögzítse az utolsó nemüres sort úgy, hogy a munkalap legutolsó sorától kezdi, és az End tulajdonság használatával felugrik az első nem üres cellára (ez egyenértékű az A1048576 cellával, és a Ctrl+Shift+felfelé mutató nyíl megnyomásával).
Vegye figyelembe, hogy ebben a cellában meg kell változtatnia az oszlopszámot az adatkészletének megfelelőre. Például, ha a táblázat a J oszlopon kezdődik, a 2. lépésben szereplő utasítást módosítania kell Cells(Rows.Count, 10).End(xlUp).Row-ra, mert a J oszlop a 10. oszlop a munkalapon.
A 3. lépésben meghatározza az adatok teljes sortartományát. Ne feledje, hogy a sorok tartományának az első adatsorral kell kezdődnie (a fejlécek kivételével), és az utolsó, nem üres sorral kell végződnie. Ebben az esetben az adatkészlet a 6. sorban kezdődik, tehát a Sorok rendezési módszerét használja ("6:" & LastRow).
A Kulcs argumentum megmondja az Excelnek, hogy melyik tartományba kell rendezni. Ismét meg kell győződnie arról, hogy a használt tartomány az első adatsorral kezdődik (a fejlécek kivételével).
Hogyan kell használni a makrót
A makró megvalósításához ki kell másolnia és be kell illesztenie a Worksheet_BeforeDoubleClick eseménykód ablakba. Ha ide helyezi a makrót, akkor minden alkalommal lefut, amikor duplán kattint a lapra:
Aktiválja a Visual Basic Editort az ALT+F11 megnyomásával.
A Projekt ablakban keresse meg a projekt/munkafüzet nevét, és kattintson a mellette lévő pluszjelre az összes lap megtekintéséhez.
Kattintson arra a lapra, amelyről a kódot aktiválni szeretné.
Az Esemény legördülő listában válassza ki a BeforeDoubleClick eseményt.
Írja be vagy illessze be a kódot.