Vahemike valimine rakenduste Visual Basic (algajate näited)

Näited lahtrite käsitsi valimiseks

Veeru kõigi andmete käsitsi valimiseks valige esimene lahter ja vajutage klahvikombinatsiooni CTRL+SHIFT+ALLANOOLEKLAHV.

Kui soovite rea ja kõik reaga seotud veerud käsitsi valida, vajutage klahvikombinatsiooni CTRL+SHIFT+ALLANOOLEKLAHV+PAREMNOOL. Kuid kõik andmed peavad olema üksteisega külgnevad (st tühjad read ega veerud ei tohi olla tühjad). Samuti saate valida praeguse andmepiirkonna (külgnevad andmed, ilma tühjade ridade või veergudeta), tehes järgmist.

1. Klõpsake menüü Redigeeri käsku Mine.

2. Klõpsake dialoogiboksis Minek nuppu Teisiti.

3. Klõpsake dialoogiboksis Mine eriväljale nuppu Praegune piirkond ja seejärel nuppuOK
   .

Selle vahemiku saate valida ka lihtsate Visual Basic rakenduste koodi abil.

Märkus. Kui proovite seda protseduuri makrosalvesti abil salvestada, ei saa te samu tulemusi.

Näited selle kohta, Visual Basic koodi abil lahtrivahemikus lahtrite valimiseks

Microsoft pakub programmeerimisnäiteid ainult illustratsiooniks, ilma et see oleks väljendatud ega kaudse garantiiga. See hõlmab kaudseid kaubastatavuse või teatud otstarbeks sobivuse garantiisid, kuid ei piirdu sellega. Selles artiklis eeldatakse, et olete tuttav programmeerimiskeelega, mida demonstreeritakse, ning tööriistadega, mida kasutatakse protseduuride loomiseks ja silumiseks. Microsofti tugitehnikud saavad aidata selgitada konkreetse protseduuri funktsionaalsust, kuid nad ei muuda neid näiteid, et pakkuda teie konkreetsetele nõuetele vastamiseks lisafunktsioone ega koostada toiminguid. Järgmised Visual Basic näitavad, kuidas valida erinevaid vahemikeid.

Kui teate alguslaht (selles näites on alguslaht lahter C1) ja soovite valida allapoole viimase lahtrini (samas veerus), mis sisaldab andmeid, kuid ei tea seda aadressi, kasutage järgmist koodi.

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

Märkus. Makro SelectRangeDown eeldab, et teie andmed on üksteisega seotud. Kui valitud andmeveerus on tühjad lahtrid, ei pruugi see makro valida kõiki veerus soovitud lahtreid.

Kui teie andmed algavad lahtris C1, kuid ei ole selles veerus külgnevad, kasutage Microsoft Office Excel 2003 ja varasemates versioonides Excel.

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

Kuna Microsoft Office Excel 2007 toetab 1048 576 rida, kasutage Excel 2007.

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

Kui soovite valida aktiivsest lahtrist allapoole ja kõik veerud paremale (eeldades, et kõik read ja veerud on külgnevad andmed), kasutage järgmist koodi.

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

Kui teate lähtelaht (selles näidiskoodis on lähtelaht D1) ja soovite valida veerust allapoole ja paremale, kasutage järgmist koodi.

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

Kõigi praeguse piirkonna andmete valimiseks kasutage järgmist koodi.

   Sub CurrentArea()
      Selection.CurrentRegion.Select
   End Sub

Selles artiklis toodud näited näitavad, kuidas valida praeguse töövihiku aktiivsel töölehel erinevaid vahemikke.

Lisateavet selle kohta, kuidas valida vahemike Visual Basic rakenduste jaoks (ja täpsemate näidete saamiseks) klõpsake Microsofti teabebaasi (Knowledge Base) artikli kuvamiseks järgmist artiklinumbrit.

291308 Lahtrite/vahemike valimine Visual Basic protseduuride Excel