Kā atlasīt diapazonus, izmantojot Visual Basic for Applications (iesācēju piemēri)

Piemēri, kā šūnas atlasīt manuāli

Lai manuāli atlasītu visus kolonnas datus, atlasiet pirmo šūnu un nospiediet taustiņu kombināciju CTRL+SHIFT+LEJUPVĒRSTĀ BULTIŅA.

Tāpat, lai manuāli atlasītu rindu un visas rindai pievienotās kolonnas, nospiediet taustiņu kombināciju CTRL+SHIFT+LEJUPVĒRSTĀ BULTIŅA+LABĀ BULTIŅA. Tomēr visiem datiem jābūt nepārtrauktiem (tas ir, nevar būt tukšas rindas vai kolonnas). Varat arī atlasīt pašreizējo datu apgabalu (blakus esošos datus bez tukšām rindām vai kolonnām), rīkojoties šādi:

1. Rediģēšanas izvēlnē noklikšķiniet uz Doties uz.

2. Dialoglodziņā Doties uz noklikšķiniet uz Īpašs.

3. Dialoglodziņā Doties uz īpašiem e-pasta īpašiem adresātiem noklikšķiniet uz Pašreizējais reģions un pēc tam uz
   Labi.

Varat arī atlasīt šo diapazonu, izmantojot vienkāršas Visual Basic for Applications kodu.

Piezīme Ja mēģināt ierakstīt šo procedūru, izmantojot makro ierakstītāju, jūs nesaņemat tos pašus rezultātus.

Examples of how to use Visual Basic code to select cells in a range

Microsoft nodrošina programmēšanas piemērus tikai ilustrācijai, bet nekādas garantijas nav izteiktas vai netiešas. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek demonstrēta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot konkrētas procedūras funkcionalitāti, bet tie nemodificēs šos piemērus, lai nodrošinātu papildu funkcionalitāti vai uzbūves procedūras, kas atbilst jūsu konkrētajām vajadzībām. Tālāk redzama Visual Basic paraugos parādīts, kā atlasīt dažādus diapazonus.

Ja zināt sākuma šūnu (šajā piemērā sākuma šūna ir šūna C1) un vēlaties atlasīt lejup līdz pēdējai šūnai (tajā pašā kolonnā), kurā ir dati, bet kura nezina šo adresi, izmantojiet šādu kodu:

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

Piezīme Makro SelectRangeDown pieņem, ka jūsu dati ir nepārtraukti. Pretējā gadījumā, ja datu kolonnā, kuru atlasāt, ir tukšas šūnas, šis makro, iespējams, neatlasa visas jūsu kolonnas šūnas.

Ja jūsu dati sākas šūnā C1, bet šajā kolonnā nav nepārtraukti, izmantojiet tālāk norādīto makro programmā Microsoft Office Excel 2003 un vecākās Excel:

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

Tā Microsoft Office Excel 2007 atbalsta 1 048 576 rindas, programmā Excel 2007 izmantojiet šādu makro:

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

Ja vēlaties atlasīt no aktīvās šūnas uz leju un visas kolonnas pa labi (pieņemot, ka blakus esošus datus visās rindās un kolonnās), lietojiet šādu kodu:

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

Ja zināt sākuma šūnu (šajā parauga kodā sākuma šūna ir D1) un vēlaties atlasīt kolonnu pa labi, lietojiet šādu kodu:

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

Lai atlasītu visus datus pašreizējā reģionā, izmantojiet šādu kodu:

   Sub CurrentArea()
      Selection.CurrentRegion.Select
   End Sub

Šajā rakstā iekļautie piemēri parāda, kā atlasīt dažādus diapazonus pašreizējās darbgrāmatas aktīvajā darblapā.

Lai iegūtu papildinformāciju par to, kā atlasīt diapazonus, izmantojot Visual Basic for Applications (un papildu piemērus), noklikšķiniet uz šī raksta numura, lai skatītu rakstu Microsoft zināšanu bāzē:

291308 Šūnu/diapazonu atlase, Visual Basic procedūras Excel