Þegar þú dreifir Excel skýrslum þínum til viðskiptavina þinna er oft gaman að bæta við nokkrum bjöllum og flautum. Ein auðveldara að beita er möguleikinn á að flokka þegar tvísmellt er á dálkahaus. Þó að þetta hljómi kannski flókið þá er það tiltölulega auðvelt með þetta macro.
Þú getur halað niður virku dæmi um þessa tvísmella tækni í Excel .
Hvernig macro virkar
Í þessu fjölvi finnurðu fyrst síðustu ótómu línuna. Þú notar síðan það línunúmer til að skilgreina marksvið lína sem þú þarft að raða. Með því að nota flokkunaraðferðina raðar þú marklínunum eftir dálknum sem þú tvísmellaðir.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Skref 1: Lýstu breytunum þínum
Dimma Last Row As Long
'Skref 2: Finndu síðustu línu sem ekki er tóm
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
'Skref 3: Raða hækkandi á tvísmelltum dálki
Rows("6:" & LastRow). Raða _
Key1:=Cells(6, ActiveCell.Column), _
Röðun1:=xlhækkandi
End Sub
Í skrefi 1 lýsir þú yfir langa heiltölu breytu sem kallast LastRow til að halda línunúmeri síðustu ótómu línunnar.
Í skrefi 2 fangar þú síðustu ótómu línuna með því að byrja á allra síðustu línunni í vinnublaðinu og nota End eignina til að hoppa upp í fyrsta ótóma reitinn (jafngildir því að fara í reit A1048576 og ýta á Ctrl+Shift+ör upp).
Athugaðu að þú þarft að breyta dálknúmerinu í þessum reit í þann sem er viðeigandi fyrir gagnasettið þitt. Til dæmis, ef taflan þín byrjar á dálki J, þarftu að breyta setningunni í skrefi 2 í Cells(Rows.Count, 10).End(xlUp).Row vegna þess að dálkur J er 10. dálkur vinnublaðsins.
Í skrefi 3 skilgreinir þú heildarlínusviðið fyrir gögnin þín. Hafðu í huga að röð lína verður að byrja á fyrstu línu af gögnum (að undanskildum hausum) og endar á síðustu línu sem ekki er tóm. Í þessu tilviki byrjar gagnasettið þitt á röð 6, svo þú notar raðaðferðina á línum(“6:” & LastRow).
Lykillarrökin segja Excel hvaða svið á að raða á. Aftur, þú vilt tryggja að sviðið sem þú notar byrjar á fyrstu röð gagna (að undanskildum hausunum).
Hvernig á að nota macro
Til að útfæra þetta fjölvi þarftu að afrita og líma það í Worksheet_BeforeDoubleClick atburðakóðagluggann. Með því að setja makróið hér gerir það kleift að keyra í hvert skipti sem þú tvísmellir á blaðið:
Virkjaðu Visual Basic Editor með því að ýta á ALT+F11.
Í Verkefnaglugganum, finndu nafn verkefnisins/vinnubókarinnar og smelltu á plúsmerkið við hliðina á því til að sjá öll blöðin.
Smelltu á blaðið sem þú vilt kveikja á kóðanum.
Í fellilistanum Atburður skaltu velja BeforeDoubleClick viðburðinn.
Sláðu inn eða límdu kóðann.
