Kai platinate „Excel“ ataskaitas savo klientams, dažnai malonu pridėti keletą skambučių ir švilpukų. Vienas iš paprasčiau taikomų patobulinimų yra galimybė rūšiuoti, kai du kartus spustelėjama stulpelio antraštė. Nors tai gali atrodyti sudėtinga, naudojant šią makrokomandą tai padaryti gana paprasta.
Galite atsisiųsti veiksmingą šios dvigubo paspaudimo technikos pavyzdį programoje „Excel“ .
Kaip veikia makrokomandas
Šioje makrokomandoje pirmiausia rasite paskutinę netuščią eilutę. Tada naudokite tą eilutės numerį, kad nustatytumėte tikslinį eilučių, kurias turite rūšiuoti, diapazoną. Naudodami rūšiavimo metodą tikslines eilutes rūšiuojate pagal stulpelį, kurį spustelėjote du kartus.
Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
1 veiksmas: deklaruokite savo kintamuosius
Pritemdyti Paskutinę eilutę tol, kol
„2 veiksmas: suraskite paskutinę netuščią eilutę
Paskutinė eilutė = Langeliai (Eilutės.Skaičius, 1).Pabaiga (xlUp).Eilutė
„3 veiksmas: rūšiuokite didėjančia tvarka dukart spustelėjus stulpelį
Eilutės("6:" & Paskutinė eilutė). Rūšiuoti _
Key1:=Ląstelės(6, ActiveCell.Stulpelis), _
Order1:=xlDidėjimo tvarka
Pabaigos sub
1 veiksme deklaruojate Long Integer kintamąjį, vadinamą LastRow, kad būtų įrašytas paskutinės netuščios eilutės numeris.
2 veiksme užfiksuojate paskutinę netuščią eilutę, pradėdami nuo pačios paskutinės darbalapio eilutės ir naudodami ypatybę End, kad pereitumėte į pirmą netuščią langelį (tai atitinka langelį A1048576 ir paspaudus Ctrl + Shift + rodyklė aukštyn).
Atminkite, kad šiame langelyje turite pakeisti stulpelio numerį į tą, kuris tinka jūsų duomenų rinkiniui. Pavyzdžiui, jei lentelė prasideda J stulpelyje, 2 veiksmo sakinį turite pakeisti į Cells(Rows.Count, 10).End(xlUp).Row, nes J stulpelis yra 10 darbalapio stulpelis.
3 veiksme apibrėžiate bendrą duomenų eilučių diapazoną. Atminkite, kad eilučių diapazonas turi prasidėti pirmąja duomenų eilute (išskyrus antraštes) ir baigtis paskutine netuščia eilute. Šiuo atveju duomenų rinkinys prasideda 6 eilutėje, todėl eilėse naudojate metodą Rūšiuoti („6:“ ir paskutinė eilutė).
Argumentas Raktas nurodo „Excel“, kuriame diapazone rūšiuoti. Vėlgi, norėsite užtikrinti, kad jūsų naudojamas diapazonas prasidėtų pirmąja duomenų eilute (išskyrus antraštes).
Kaip naudoti makrokomandą
Norėdami įdiegti šią makrokomandą, turite nukopijuoti ir įklijuoti ją į Worksheet_BeforeDoubleClick įvykio kodo langą. Įdėjus makrokomandą, ji bus paleista kiekvieną kartą, kai dukart spustelėsite lapą:
Suaktyvinkite „Visual Basic“ rengyklę paspausdami ALT+F11.
Projekto lange raskite savo projekto / darbaknygės pavadinimą ir spustelėkite šalia jo esantį pliuso ženklą, kad pamatytumėte visus lapus.
Spustelėkite lapą, iš kurio norite suaktyvinti kodą.
Išskleidžiamajame lauke Įvykis pasirinkite įvykį BeforeDoubleClick.
Įveskite arba įklijuokite kodą.