Šī apmācība parādīs, kā izmantot rekvizītu Range.End VBA.
Lielāko daļu manuāli Excel darbgrāmatā vai darblapā veikto lietu var automatizēt, izmantojot VBA kodu.
Ja programmā Excel ir virkne šūnu, kas nav tukšas, un nospiediet Ctrl+lejupvērstā bultiņa, kursors pārvietosies uz pēdējo šūnu, kas nav tukša, kolonnā, kurā atrodaties. Līdzīgi, ja nospiežat Ctl+augšupvērstā bultiņa, kursors pārvietosies uz pirmo šūnu, kas nav tukša. Tas pats attiecas uz rindu, izmantojot Ctrl+labā bultiņa vai Ctrl+kreisā bultiņa lai pārietu uz šīs rindas sākumu vai beigām. Visas šīs taustiņu kombinācijas var izmantot jūsu VBA kodā, izmantojot Beigu funkcija.
Diapazona beigu rekvizītu sintakse
Rekvizīts Range.End ļauj pāriet uz noteiktu šūnu pašreizējā reģionā, ar kuru strādājat.
izteiksme.Beigas (Virziens)
izteiksme ir šūnas adrese (diapazons), no kuras vēlaties sākt, piemēram: diapazons (“A1”)
END ir kontrolējamā diapazona objekta īpašums.
Virziens ir Excel konstante, kuru varat izmantot. Ir pieejamas 4 izvēles - xlDown, xlToLeft, xlToRight un xlUp.
Pāreja uz pēdējo šūnu
Tālāk norādītā procedūra pārvietos jūs uz pēdējo šūnu pašreizējā šūnu reģionā, kurā atrodaties.
| 1234 | Sub GoToLast ()"pāriet uz pēdējo šūnu, kas aizņemta pašreizējā šūnu reģionāDiapazons ("A1"). Beigas (xlDown). AtlasietBeigu apakš |
Rindu skaitīšana
Tālāk norādītā procedūra ļauj izmantot xlDown konstants, izmantojot rekvizītu Range End, lai saskaitītu, cik rindu ir jūsu pašreizējā reģionā.
| 12345678 | Sub GoToLastRowofRange ()Dim rw Kā vesels skaitlisDiapazons ("A1"). Atlasiet'iegūt pēdējo rindu pašreizējā reģionārw = Diapazons ("A1"). Beigas (xlDown). Rinda'parāda, cik rindu tiek izmantotasMsgBox "Pēdējā šajā diapazonā izmantotā rinda ir" & rwBeigu apakš |
Lai gan zemāk esošais skaitīs diapazona kolonnas, izmantojot xlToRight nemainīgs.
| 12345678 | Sub GoToLastCellofRange ()Dim col As Kā vesels skaitlisDiapazons ("A1"). Atlasietiegūt pēdējo kolonnu pašreizējā reģionācol = Diapazons ("A1"). Beigas (xlToRight). Kolonna'parāda, cik kolonnu tiek izmantotasMsgBox "Pēdējā šajā diapazonā izmantotā kolonna ir" un kolBeigu apakš |
Diapazona masīva izveide
Tālāk aprakstītā procedūra ļauj mums sākt ar pirmo šūnu diapazona šūnu un pēc tam izmantot beigu (xlDown) īpašību, lai atrastu pēdējo šūnu diapazona šūnu. Pēc tam mēs varam pārveidot mūsu masīvu ar kopējām rindām diapazonā, tādējādi ļaujot mums iziet cauri šūnu diapazonam.
| 123456789101112131415161718 | Sub PopulateArray ()'deklarējiet masīvuDim strSuppliers () kā virkne'deklarējiet veselu skaitli, lai saskaitītu rindasDim n Kā vesels skaitlis'saskaitiet rindasn = diapazons ("B1", diapazons ("B1"). beigas (xlDown)). Rindas. skaits'inicializēt un aizpildīt masīvuReDim strCustomers (n)'deklarējiet veselu skaitli cilpaiDim i As Integer'aizpildīt masīvuAttiecībā uz i = 0 līdz nstrCustomers (i) = Diapazons ("B1"). Nobīde (i, 0). VērtībaTālāk i"parādīt ziņojumu lodziņu ar masīva vērtībāmMsgBox Join (strCustomers, vbCrLf)Beigu apakš |
Kad mēs izpildām šo procedūru, tas atgriezīs šādu ziņojumu lodziņu.
