Odabir raspona pomoću aplikacije Visual Basic aplikacije (primjeri početnika)

Primjeri ručnog odabira ćelija

Da biste ručno odabrali sve podatke u stupcu, odaberite prvu ćeliju, a zatim pritisnite CTRL + SHIFT + STRELICA DOLJE.

Isto tako, da biste ručno odabrali redak i sve stupce priložene retku, pritisnite CTRL + SHIFT + STRELICA DOLJE + STRELICA DESNO. No svi podaci moraju biti nesusmisleni (odnosno ne možete imati prazne retke ili stupce). Možete i odabrati trenutno područje podataka (susjedne podatke bez praznih redaka ili stupaca) na sljedeći način:

1. Na izborniku Uređivanje kliknite Idi na.

2. U dijaloškom okviru Idi na kliknite Posebno.

3. U dijaloškom okviru Idi na posebno kliknite Trenutno područje, a zatimOK
   .

Taj raspon možete odabrati i pomoću jednostavnog koda Visual Basic za aplikacije.

Napomena Ako taj postupak pokušate snimiti pomoću snimača makronaredbi, ne dobivate iste rezultate.

Primjeri korištenja koda Visual Basic odabir ćelija u rasponu

Microsoft nudi primjere programiranja samo za ilustraciju, bez jamstva izraženog ili impliciranog. To obuhvaća, ali nije ograničeno na, implicirana jamstva o prikladnosti za prodaju ili prikladnosti za određenu svrhu. U ovom se članku pretpostavlja da ste upoznati s programskim jezikom koji se pokazuje i alatima koji se koriste za stvaranje i ispravljanje pogrešaka. Inženjeri Microsoftove podrške mogu objasniti funkcionalnost određenog postupka, ali neće izmijeniti te primjere da bi pružili dodatne funkcije ni konstruirali postupke da bi zadovoljili vaše specifične zahtjeve. U sljedećim Visual Basic kodova prikazuje se kako odabrati različite raspone.

Ako znate polaznu ćeliju (u ovom primjeru, polazna je ćelija ćelija C1) i želite odabrati do posljednje ćelije (u istom stupcu) koja sadrži podatke, ali ne znaju tu adresu, koristite sljedeći kod:

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

Napomena Makronaredba SelectRangeDown pretpostavlja da su podaci nesusmisleni. U suprotnom, ako u stupcu podataka koje odaberete postoje prazne ćelije, ta makronaredba možda neće odabrati sve ćelije u stupcu.

Ako podaci počinju u ćeliji C1, ali u tom stupcu nisu susjedni, koristite sljedeću makronaredbu u programu Microsoft Office Excel 2003 i u starijim verzijama Excel:

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

Budući Microsoft Office Excel 2007 podržava 1048 576 redaka, koristite sljedeću makronaredbu u programu Excel 2007:

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

Ako želite odabrati jednu od aktivnih ćelija prema dolje i sve stupce desno (pod pretpostavkom susjednih podataka u svim recima i stupcima), koristite sljedeći kod:

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

Ako znate početnu ćeliju (u ovom oglednu kodu, početna ćelija je D1), a želite odabrati niz stupac i desno, koristite sljedeći kod:

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

Da biste odabrali sve podatke u trenutnoj regiji, koristite sljedeći kod:

   Sub CurrentArea()
      Selection.CurrentRegion.Select
   End Sub

Primjeri koji su uvršteni u ovaj članak pokazuju kako odabrati različite raspone na aktivnom radnom listu trenutne radne knjige.

Dodatne informacije o odabiru raspona pomoću aplikacije Visual Basic za aplikacije (i za naprednije primjere) kliknite sljedeći broj članka u Microsoftovoj bazi znanja:

291308 Odabir ćelija/raspona pomoću postupaka Visual Basic u Excel