Kako izbrati obsege s VBA (primeri začetnikov)

Primeri ročnega izbora celic

Če želite ročno izbrati vse podatke v stolpcu, izberite prvo celico in pritisnite CTRL+SHIFT+PUŠČICA DOL.

Če želite vrstico in vse stolpce, priložene vrstici, ročno izbrati, pritisnite CTRL+SHIFT+PUŠČICA DOL+PUŠČICA DESNO. Kljub temu morajo biti vsi podatki neprekinjeni (torej ne sme biti praznih vrstic ali stolpcev). Izberete lahko tudi trenutno območje podatkov (neprekinjene podatke brez praznih vrstic ali stolpcev), in sicer tako:

1. V meniju Uredi kliknite Pojdi na.

2. V pogovornem oknu Pojdi na kliknite Posebno.

3. V pogovornem oknu Pojdi na posebno kliknite Trenutno območje in nato kliknite
   V redu.

Ta obseg lahko izberete tudi tako, da VBA kodo.

Opomba Če boste ta postopek poskušali posneti s snemalnikom makrov, ne boste prejeli istih rezultatov.

Primeri uporabe kode Visual Basic izbora celic v obsegu

Microsoft ponuja primere programiranja le za ilustracije, brez garancije, izražene ali naznačene. To vključuje, vendar ni omejeno na naznačena jamstva glede primernosti za prodajo ali telesno pripravljenost za določen namen. V tem članku je predvidevamo, da poznate programski jezik, ki je prikazan, in orodja, ki se uporabljajo za ustvarjanje in odpravljanje napak v postopkih. Microsoftovi inženirji za podporo lahko razložijo funkcionalnost določenega postopka, ne bodo pa spremenili teh primerov, da bi zagotovili dodatne funkcije ali sestavi postopke, ki izpolnjujejo vaše določene zahteve. Naslednji primeri Visual Basic kode prikazujejo, kako izberete različne obsege.

Če poznate začetek celice (v tem primeru je začetek celice C1) in želite izbrati navzdol do zadnje celice (v istem stolpcu), v katere so podatki, vendar tega naslova ne poznate, uporabite to kodo:

   Sub SelectRangeDown()
      Range("c1", Range("c1").End(xlDown)).Select
   End Sub

Opomba Makro SelectRangeDown predvideva, da so podatki neprekinjeni. Če pa so v stolpcu s podatki prazne celice, ki jih izbirate, ta makro morda ne bo izbiral vseh celic v stolpcu.

Če se podatki začnejo v celici C1, vendar v tem stolpcu niso neprekinjeni, uporabite ta makro v programu Microsoft Office Excel 2003 in starejših različicah Excel:

   Sub SelectRangeDown_Discontiguous()
      Range("c1", Range("c65536").End(xlUp)).Select
   End Sub

Ker Microsoft Office Excel 2007 podpira 1.048.576 vrstic, uporabite ta makro v programu Excel 2007:

 Sub SelectRangeDown_Discontiguous()
      Range("c1", Range("c1048576").End(xlUp)).Select
   End Sub

Če želite izbrati od aktivne celice navzdol in vse stolpce v desno (ob predvidevanju neprekinjenih podatkov v vseh vrsticah in stolpcih), uporabite to kodo:

   Sub myrangearea()
      Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Select
   End Sub

Če poznate začetno celico (v tej vzorčni kodi je začetna celica D1) in želite izbrati stolpec na desni strani, uporabite to kodo:

   Sub RangeFromStart()
      Range("d1", Range("d1").End(xlDown).End(xlToRight)).Select
   End Sub

Če želite izbrati vse podatke v trenutnem območju, uporabite to kodo:

   Sub CurrentArea()
      Selection.CurrentRegion.Select
   End Sub

Primeri, vključeni v ta članek, prikazujejo, kako izberete različne obsege na aktivnem delovnem listu trenutnega delovnega zvezka.

Če želite več informacij o tem, kako izbrati obsege s VBA (in če želite naprednejše primere), kliknite to številko članka, da si ogledate članek v Microsoftovi zbirki znanja:

291308 Kako izbrati celice/obsege s Visual Basic postopki v Excel