Pojmenovaný rozsah Excel VBA
Když pracujeme s velkým množstvím dat, abychom se vyhnuli odkazování na konkrétní buňku nebo rozsahy buněk, obvykle vytváříme pojmenované rozsahy a umožňuje nám odkazovat na požadovaný rozsah buněk prostřednictvím pojmenovaného rozsahu. Ve VBA k vytvoření rozsahu jmen máme funkci Přidat název.
Můžeme vybrat buňku nebo oblast buněk a pojmenovat ji. Po pojmenování buněk můžeme na tyto buňky odkazovat zadáním těchto definovaných názvů namísto obvyklých odkazů na řádky nebo sloupce.
Jak vytvořit pojmenované rozsahy?
Jedná se o procházku v parku k vytvoření pojmenovaných rozsahů. První věcí, kterou musíme udělat, je identifikovat buňky, které chceme v Excelu vytvořit.
Podívejte se například na obrázek níže.
Abych dospěl k zisku v buňce B4, použil jsem vzorec B2 - B3.
To je běžná věc, kterou každý dělá. Ale co takhle vytvořit Názvy a použít vzorec jako „Prodej“ - „Cena“.
Umístěte kurzor na buňku B2> Přejít na pole Název a zavolejte jej jako Prodej.
Umístěte kurzor na buňku B3 a nazvěte ji Cena.
Nyní ve sloupci zisk můžeme odkazovat na tyto názvy namísto odkazů na buňky.
Toto je základní věc o pojmenovaných rozsazích.
Jak vytvořit pojmenované rozsahy pomocí kódu VBA?
Příklad č. 1
Už jste někdy přemýšleli o vytvoření pojmenovaného rozsahu pomocí kódu VBA?
Podle níže uvedených kroků vytvořte pojmenovaný rozsah.
Krok 1: Definujte proměnnou jako „Rozsah“.
Kód:
Sub NamedRanges_Example () Dim Rng jako rozsah End Sub
Krok 2: Nyní nastavte proměnnou „Rng“ na konkrétní buňky, které chcete pojmenovat.
Kód:
Sub NamedRanges_Example () Dim Rng As Set Set Rng = Range ("A2: A7") End Sub
Krok 3: Pomocí objektu „ThisWorkbook“ získáte přístup k vlastnosti jmen.
Metodu Names.Add máme tolik parametrů . Níže jsou vysvětlení.
(Name): Name is nothing, but what is the name we would like to give to the range we specify.
Při pojmenování buňky by neměla obsahovat žádné speciální znaky kromě symbolu podtržítka (_) a neměla by také obsahovat mezery. Nemělo by to začínat číselnými hodnotami.
(Odkazuje na): Toto není nic jiného, než jaký je rozsah buněk, na které odkazujeme.
Myslím si, že tyto dva parametry jsou dost dobré na zahájení řízení.
Krok 4: V názvu zadá argument jméno, které chcete dát. Pojmenoval jsem „Prodejní čísla“.
Kód:
Sub NamedRanges_Example () Dim Rng As Range Set Rng = Range ("A2: A7") ThisWorkbook.Names.Add Name: = "SalesNumbers" End Sub
Krok 5: In odkazuje na argument, zadejte rozsah buněk, které chceme vytvořit. V názvu proměnné „Rng“ jsme již přiřadili rozsah buněk jako A2 až A7, proto zadejte argument jako „Rng“.
Kód:
Sub NamedRanges_Example () Dim Rng As Range Set Rng = Range ("A2: A7") ThisWorkbook.Names.Add Name: = "SalesNumbers", RefersTo: = Rng End Sub
Dobře, tento kód vytvoří pojmenovaný rozsah pro buňky od A2 do A7.
Nyní v listu jsem vytvořil několik čísel od A2 do A7.
In the A8 cell, I want to have the total of the above cell numbers. Using the named range, we will create a SUM of these numbers.
Code:
Sub NamedRanges_Example() Dim Rng As Range Set Rng = Range("A2:A7") ThisWorkbook.Names.Add Name:="SalesNumbers", RefersTo:=Rng Range("A8").Value = WorksheetFunction.Sum(Range("SalesNumbers")) End Sub
If you run this code manually or by pressing the f5 key then, we will get the total of a named range in cell A8.
This is the basic must-know facts about “Named Ranges.”
Example #2
In VBA using RANGE object, we can refer to the cells. Similarly, we can also refer to those cells by using named ranges as well.
For example, in the above example, we have named the cell B2 as “Sales” and B3 as “Cost.”
By using actual cell reference, we refer to those cells like this.
Code:
Sub NamedRanges() Range("B2").Select 'This will select the B2 cell Range("B3").Select 'This will select the B3 cell End Sub
Since we already created these cells, we can refer to using those names like below.
Code:
Sub NamedRanges() Range("Sales").Select 'This will select cell named as "Sales" i.e. B2 cell Range("Cost").Select 'This will select cell named as "Cost" i.e. B3 cell End Sub
Like this, using Named Ranges, we can make use of those cells. Using these names, we can calculate the profit amount in cell B4. For this first name, the cell B4 as Profit.
Now in the VBA editor, apply this code.
Code:
Sub NamedRanges_Example1() Range("Profit").Value = Range("Sales") - Range("Cost") End Sub
Tím se vypočítá částka zisku v buňce s názvem „Zisk“.
