Tämä opetusohjelma näyttää, kuinka voit käyttää Range.End -ominaisuutta VBA: ssa.
Useimmat Excel -työkirjassa tai laskentataulukossa manuaalisesti tekemäsi asiat voidaan automatisoida VBA -koodilla.
Jos Excelissä on joukko ei-tyhjiä soluja, ja painat Ctrl+alanuoli, kohdistin siirtyy viimeiseen ei-tyhjään soluun sarakkeessa, jossa olet. Samoin jos painat Ctl+ylänuoli, kohdistin siirtyy ensimmäiseen ei-tyhjään soluun. Sama koskee riviä, joka käyttää Ctrl+oikea nuoli tai Ctrl+vasen nuoli siirtyäksesi rivin alkuun tai loppuun. Kaikkia näitä näppäinyhdistelmiä voidaan käyttää VBA -koodissasi käyttämällä Lopeta toiminto.
Alueen lopun ominaisuuden syntaksi
Range.End -ominaisuuden avulla voit siirtyä tiettyyn soluun nykyisellä alueella, jonka kanssa työskentelet.
ilmaisu.Loppu (Suunta)
lauseke on sen solun soluosoite (alue), josta haluat aloittaa, esim .: Alue ("A1")
END on ohjattavan Range -objektin ominaisuus.
Suunta on Excel -vakio, jota voit käyttää. Valittavana on 4 vaihtoehtoa - xlDown, xlToLeft, xlToRight ja xlUp.
Siirtyminen viimeiseen soluun
Alla oleva toimenpide siirtää sinut viimeiseen soluun nykyisellä solualueella, jossa olet.
1234 | Sub GoToLast ()'siirtyä viimeiseen soluun nykyisellä solualueellaAlue ("A1"). Loppu (xlDown) .ValitseEnd Sub |
Rivien laskeminen
Seuraavan menettelyn avulla voit käyttää xlAlas vakio Range End -ominaisuuden avulla voit laskea, kuinka monta riviä nykyisellä alueella on.
12345678 | Sub GoToLastRowofRange ()Dim rw kokonaislukunaAlue ("A1"). Valitse'hae nykyisen alueen viimeisen rivinrw = Alue ("A1"). Loppu (xlDown) .Rivi'näyttää kuinka monta riviä käytetäänMsgBox "Tämän alueen viimeinen rivi on" & rwEnd Sub |
Alla oleva laskee alueen sarakkeet käyttämällä xlToRight vakio.
12345678 | Sub GoToLastCellofRange ()Dim col Kuten kokonaislukuAlue ("A1"). Valitse'Hae nykyisen alueen viimeinen sarakecol = Alue ("A1"). Loppu (xlToRight). Sarake'näyttää kuinka monta saraketta käytetäänMsgBox "Tämän alueen viimeinen sarake on" & colEnd Sub |
Aluejoukon luominen
Alla olevan menettelyn avulla voimme aloittaa solualueen ensimmäisestä solusta ja käyttää lopetusominaisuutta (xlDown) löytääksesi viimeisen solualueen solun. Voimme sitten ReDim -matriisin koko alueen rivien kanssa, jolloin voimme kiertää solualueen läpi.
123456789101112131415161718 | AliväestöArray ()'julistaa taulukonDim strSuppliers () merkkijonona'ilmoita kokonaisluku rivien laskemiseksiDim n kokonaislukuna'laske rivitn = Alue ("B1", Alue ("B1"). Loppu (xlDown)). Rivit.Luku'Alusta ja täytä taulukkoReDim strCustomers (n)'ilmoita kokonaisluku silmukointia vartenDim i Kuten kokonaisluku'täytä taulukkoSillä i = 0 - nstrCustomers (i) = Alue ("B1"). Siirtymä (i, 0). ArvoSeuraavaksi minäNäytä viestiruutu, jossa on taulukon arvotMsgBox Join (strCustomers, vbCrLf)End Sub |
Kun suoritamme tämän menettelyn, se palauttaa seuraavan viestiruudun.