V našem výukovém programu Datové typy VBA - Proměnné a konstanty jsme již přešli, jaké jsou proměnné a konstanty. Nyní se podíváme na objekt rozsahu ve VBA a na to, jak deklarovat proměnnou jako objekt rozsahu. Objekt range se používá k označení buněk nebo více buněk ve VBA. Je tedy velmi užitečné použít ve vašem kódu.
Kliknutím sem získáte další informace o rozsahech a buňkách VBA.
Objekt rozsahu VBA
Objekt range můžete použít k odkazu na jednu buňku. Pokud byste například chtěli odkazovat na buňku A1 v kódu VBA, můžete použít objekt rozsahu VBA, jak je uvedeno v níže uvedeném kódu:
1234 | Dílčí doporučeníToASingleCellUsingTheRangeObject ()Rozsah („A1“). Hodnota = 89Rozsah ("A1"). Font.Bold = TrueEnd Sub |
Když na klávesnici stisknete klávesu run nebo F5, ke spuštění kódu se vám v aktuálním listu zobrazí následující výsledek:
Objekt range můžete použít k odkazu na více buněk nebo rozsahů. Pokud byste například chtěli v kódu VBA odkazovat na rozsah buněk (A1: C1), můžete použít objekt rozsahu VBA, jak je uvedeno v níže uvedeném kódu:
123456 | Sub ReferringToMultipleCellsUsingTheRangeObject ()Rozsah ("A1: C1"). Hodnota = "ABC"Rozsah ("A1: C1"). Okraje (xlEdgeBottom). LineStyle = xlDoubleEnd Sub |
Když na klávesnici stisknete klávesu run nebo F5, ke spuštění kódu se vám v aktuálním listu zobrazí následující výsledek:
Deklarace proměnné jako rozsahu
Při deklarování proměnné jako rozsahu budete muset použít klíčová slova Dim a Set. Níže uvedený kód ukazuje, jak deklarovat proměnnou jako rozsah.
123456789101112 | Sub DeclaringAndSettingARange ()Dim rng As RangeNastavit rng = rozsah ("A10: B10")rng.Value = "AutomateExcel"rng.Font.Bold = Truerng. Vyberterng.Columns.AutoFitEnd Sub |
Výsledek je:
Výběr konkrétních řádků v objektu rozsahu
V objektu rozsahu můžete vybrat konkrétní řádky. Níže uvedený kód ukazuje, jak to provést:
12345678 | Dílčí výběrSpecificRowsInTheRangeObject ()Dim rng As RangeNastavit rng = rozsah ("A1: C3")rng. Řádky (3). VyberteEnd Sub |
Výsledek je:
Výběr konkrétních sloupců v objektu rozsahu
V objektu rozsahu můžete vybrat konkrétní sloupce. Níže uvedený kód ukazuje, jak to provést:
12345678 | Dílčí výběrSpecificColumnsInTheRangeObject ()Dim rng As RangeNastavit rng = rozsah ("A1: C3")rng. Sloupce (3). VyberteEnd Sub |