Jak vybrat oblasti pomocí jazyk Visual Basic for Application (příklady začátečníků)

Příklady ručního výběru buněk

Pokud chcete ručně vybrat všechna data ve sloupci, vyberte první buňku a stiskněte kombinaci kláves CTRL+SHIFT+ŠIPKA DOLŮ.

Pokud chcete ručně vybrat řádek a všechny sloupce připojené k řádku, stiskněte kombinaci kláves CTRL+SHIFT+ŠIPKA DOLŮ+ŠIPKA VPRAVO. Všechna data ale musí být souvislé (to znamená, že nemůžete mít prázdné řádky nebo sloupce). Můžete také vybrat aktuální oblast dat (souvislé údaje bez prázdných řádků nebo sloupců) takto:

1. V nabídce Úpravy klikněte na Přejít na.

2. V dialogovém okně Přejít na klikněte na Speciální.

3. V dialogovém okně Přejít na speciální klikněte na Aktuální oblast a potom klikněte na
   OK.

Tuto oblast můžete také vybrat pomocí jednoduchého jazyk Visual Basic for Application kódu.

Poznámka: Pokud se pokusíte zaznamenat tento postup pomocí záznamu makra, neobdržíte stejné výsledky.

Příklady použití kódu Visual Basic k výběru buněk v oblasti

Microsoft nabízí příklady programování jenom pro ilustraci bez výslovné nebo předpokládané záruky. To zahrnuje mimo jiné předpokládané záruky prodejnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že znáte předvedený programovací jazyk a nástroje, které se používají k vytváření a ladění postupů. Technici podpory Microsoftu vám můžou pomoct vysvětlit funkčnost určitého postupu, ale tyto příklady neupraví tak, aby poskytovali další funkce nebo sestavují postupy, které splňují vaše konkrétní požadavky. Následující Visual Basic kódu ukazují, jak vybrat různé oblasti.

Pokud znáte počáteční buňku (v tomto příkladu je počáteční buňka buňka C1) a chcete vybrat poslední buňku (ve stejném sloupci), která obsahuje data, ale tuto adresu neznáme, použijte následující kód:

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

Poznámka: Makro SelectRangeDown předpokládá, že data jsou souvislé. V opačném případě, pokud jsou ve sloupci dat, který vyberete, prázdné buňky, nemusí toto makro vybrat všechny buňky ve sloupci.

Pokud data začínají v buňce C1, ale nejsou v tomto sloupci souvislé, použijte následující makro v aplikaci Microsoft Office Excel 2003 a v dřívějších verzích Excel:

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

Protože Microsoft Office Excel 2007 podporuje 1 048 576 řádků, použijte v aplikaci Excel 2007 následující makro:

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

Pokud chcete vybrat z aktivní buňky dolů a všech sloupců vpravo (za předpokladu, že jsou souvislé údaje ve všech řádcích a sloupcích), použijte následující kód:

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

Pokud znáte počáteční buňku (v tomto ukázkovém kódu je počáteční buňka D1) a chcete vybrat sloupec dolů a doprava, použijte následující kód:

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

Pokud chcete vybrat všechna data v aktuální oblasti, použijte následující kód:

   Sub CurrentArea()
      Selection.CurrentRegion.Select
   End Sub

Příklady, které jsou součástí tohoto článku, ukazují, jak vybrat různé oblasti na aktivním listu aktuálního sešitu.

Další informace o tom, jak vybrat oblasti s jazyk Visual Basic for Application (a pokročilejší příklady), najdete v následujícím článku znalostní báze Microsoft Knowledge Base:

291308 Jak vybrat buňky nebo oblasti pomocí Visual Basic v Excel