Postup pri výbere rozsahov pomocou Visual Basic for Applications (začínajúce príklady)

Príklady manuálneho vybratia buniek

Ak chcete manuálne vybrať všetky údaje v stĺpci, vyberte prvú bunku a stlačte kombináciu klávesov CTRL + SHIFT + ŠÍPKA NADOL.

Podobne, ak chcete manuálne vybrať riadok a všetky stĺpce pripojené k riadku, stlačte kombináciu klávesov CTRL + SHIFT + ŠÍPKA NADOL + ŠÍPKA DOPRAVA. Všetky údaje však musia byť súvislé (znamená to, že nie je možné mať prázdne riadky alebo stĺpce). Týmto spôsobom tiež môžete vybrať aktuálnu oblasť údajov (súvislé údaje bez prázdnych riadkov alebo stĺpcov):

1. V ponuke Upraviť kliknite na položku Prejsť na.

2. V dialógovom okne Prejsť na kliknite na položku Špeciálne.

3. V dialógovom okne Prejsť na špeciálne kliknite na položku Aktuálna oblasť a potom kliknite na tlačidloOK
   .

Tento rozsah môžete vybrať aj pomocou jednoduchého Visual Basic for Applications.

Poznámka Ak sa pokúsite zaznamenať túto procedúru pomocou záznamu makra, rovnaké výsledky sa nebudú zobraziť.

Príklady použitia Visual Basic na výber buniek v rozsahu

Spoločnosť Microsoft poskytuje príklady programovania iba na ilustráciu, bez výslovnej alebo implicitnej záruky. Patria sem implicitné záruky obchodovateľnosti alebo vhodnosti na konkrétny účel, nie však obmedzené na ne. V tomto článku sa predpokladá, že viete o programovacom jazyku, ktorý ste už chceli vidieť, a o nástrojoch, ktoré sa používajú na vytvorenie a ladenie procedúr. Technici technickej podpory spoločnosti Microsoft vám môžu pomôcť vysvetliť funkčnosť konkrétneho postupu, ale neupravia tieto príklady s cieľom poskytnúť ďalšie funkcie alebo konštrukcie postupov podľa vašich konkrétnych požiadaviek. Nasledujúce Visual Basic kódov vám ukážu, ako vybrať rôzne rozsahy.

Ak poznáte začiatok bunky (v tomto príklade je začiatok bunky C1) a chcete vybrať až poslednú bunku (v tom istom stĺpci), ktorá obsahuje údaje, ale nepoznáte ju, použite nasledujúci kód:

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

Poznámka Makro SelectRangeDown predpokladá, že vaše údaje sú súvislé. V opačnom prípade, ak sa v stĺpci údajov, ktoré vyberáte, nachádza prázdne bunky, toto makro nemusí vybrať všetky bunky v stĺpci.

Ak vaše údaje začínajú v bunke C1, ale v tomto stĺpci nie sú súvislé, použite toto makro v Microsoft Office Excel 2003 a v starších verziách Excel:

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

Keďže Microsoft Office Excel 2007 podporuje 1 048 576 riadkov, použite v programe Excel 2007 toto makro:

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

Ak chcete vybrať aktívnu bunku nadol a všetky stĺpce napravo (za predpokladu, že susediace údaje vo všetkých riadkoch a stĺpcoch), použite nasledujúci kód:

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

Ak poznáte počiatočnú bunku (v tomto vzorového kódu je počiatočná bunka D1) a chcete ju vybrať v stĺpci nadol a napravo, použite nasledujúci kód:

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

Ak chcete vybrať všetky údaje v aktuálnej oblasti, použite nasledujúci kód:

   Sub CurrentArea()
      Selection.CurrentRegion.Select
   End Sub

Príklady uvedené v tomto článku vám ukážu, ako vybrať rôzne rozsahy v aktívnom hárku aktuálneho zošita.

Ďalšie informácie o tom, ako vybrať rozsahy s aplikáciou Visual Basic for Applications (a ďalšie rozšírené príklady), kliknutím na číslo nasledujúceho článku zobrazíte článok vedomostnej databázy Microsoft Knowledge Base:

291308 Postup pri výbere buniek alebo rozsahov pomocou Visual Basic v Excel