Ez az oktatóanyag megmutatja, hogyan kell használni a Range.End tulajdonságot a VBA -ban.
Az Excel munkafüzetben vagy munkalapon manuálisan végzett legtöbb dolog automatizálható VBA kódban.
Ha az Excelben számos nem üres cella van, és nyomja meg a gombot Ctrl+lefelé mutató nyíl, a kurzor az oszlop utolsó nem üres cellájára lép, amelyben tartózkodik. Hasonlóképpen, ha megnyomja a gombot Ctl+felfelé mutató nyíl, a kurzor az első nem üres cellába kerül. Ugyanez vonatkozik a sorra a használatával Ctrl+jobbra mutató nyíl vagy Ctrl+balra mutató nyíl hogy a sor elejére vagy végére ugorjon. Mindezek a billentyűkombinációk használhatók a VBA kódon belül a Vége funkció.
Tartományvég tulajdonság szintaxisa
A Range.End tulajdonság lehetővé teszi, hogy az aktuális régióban egy adott cellába lépjen, amellyel dolgozik.
kifejezés.Vége (Irány)
a kifejezés annak a cellanak a cellacíme (tartománya), ahonnan ki akar kezdeni, pl .: Tartomány („A1”)
Az END az irányított Range objektum tulajdonsága.
Az Irány az Excel konstans, amelyet használni tud. 4 lehetőség közül választhat - xlLefelé, xlToLeft, xlToRight és xlUp.
Ugrás az utolsó cellába
Az alábbi eljárás a cellák jelenlegi régiójának utolsó cellájába mozgatja Önt.
1234 | Sub GoToLast ()'lépjen a sejtek jelenlegi régiójában elfoglalt utolsó celláraTartomány ("A1"). Vége (xlDown). Válassza kiEnd Sub |
Sorok számlálása
Az alábbi eljárás lehetővé teszi a xlLefelé konstans a Tartományvég tulajdonsággal, hogy megszámolja, hány sor van az Ön régiójában.
12345678 | Sub GoToLastRowofRange ()Dim rw Mint egészTartomány ("A1"). Válassza ki'az utolsó sor az aktuális régióbanrw = Tartomány ("A1"). Vége (xlDown). Sor'mutassa meg, hány sort használMsgBox "Ebben a tartományban az utolsó sor a" & rwEnd Sub |
Míg az alábbi számolja a tartomány oszlopait a xlToRight állandó.
12345678 | Sub GoToLastCellofRange ()Dim col As IntegerTartomány ("A1"). Válassza ki'az utolsó régió utolsó oszlopát kapja megcol = Tartomány ("A1"). Vége (xlToRight). Oszlop'mutassa meg, hány oszlopot használMsgBox "A tartomány utolsó oszlopa" & colEnd Sub |
Hatótávolság létrehozása
Az alábbi eljárás lehetővé teszi, hogy a cellatartomány első cellájából induljunk, majd az End (xlDown) tulajdonság használatával megkeressük a cellatartomány utolsó celláját. Ezt követően újratervezhetjük tömbünket a tartomány összes sorával, ezáltal lehetővé téve számunkra, hogy végigjárjuk a cellatartományt.
123456789101112131415161718 | Sub PopulateArray ()'deklarálja a tömbötDim strSuppliers () karakterláncként'deklarálja az egész számot, hogy megszámolja a sorokatDim n Mint egész'számold a sorokatn = tartomány ("B1", tartomány ("B1"). vége (xlDown)). Sorok száma'inicializálja és töltse ki a tömbötReDim strCustomers (n)'deklarálja az egész számot a hurkoláshozDim i As Integer'töltse ki a tömbötI = 0 -tól n -igstrCustomers (i) = Tartomány ("B1"). Eltolás (i, 0). ÉrtékKövetkező i'üzenetüzenet megjelenítése tömb értékeivelMsgBox Join (strCustomers, vbCrLf)End Sub |
Amikor ezt az eljárást futtatjuk, a következő üzenetdobozt adja vissza.