VBA unie - Připojte se k více rozsahům pomocí unie Excel VBA

Obsah

Excel VBA Union

Excel VBA Union

Sjednocení ve VBA je podobné sjednocení v jiných programovacích jazycích, ve VBA používáme sjednocení ke kombinování dvou nebo více než dvou rozsahů, abychom na nich mohli provádět různé sady operací, příkaz použitý pro toto je sám sjednocení a nazývá se jako metoda sjednocení , například union (Range (B2: C7), Range (D2: E7)). select a tato metoda vybere buňky.

Metoda sjednocení provede úkol vytvoření spojení dvou nebo více rozsahů a vrátí výsledek jako objekt RANGE. To funguje přesně stejně jako v níže uvedeném příkladu s objektem VBA RANGE.

Syntax

Nyní se podívejme na syntaxi metody UNION.

Musíme dodat minimálně 2 rozsahy.

Arg 1: Toto je první řada buněk, kterou musíme vytvořit.
Arg 2: Toto je druhá řada buněk, kterou musíme vytvořit.

První dva parametry jsou povinné, po uvedení dvou rozsahů buněk se všechny ostatní argumenty stanou volitelnými.

Když jsou data v buňkách rozptýlena po částech, musíme provést společný úkol dohromady celý rozsah dat do jednoho. Můžeme vytvořit sjednocení rozptýleného rozsahu k jednomu a provést podobný úkol pro všechny sjednocující rozsahy.

K výběru více rozsahů buněk můžeme obvykle použít RANGE objekt. Například pokud chceme vybrat rozsah buněk od A1 do B5 a od B3 do D5, můžeme napsat kód VBA jako níže.

Kód:

Sub Union_Example1 () Union (Range ("A1: B5"), Range ("B3: D5")). Select End Sub

Tím by se vybral rozsah buněk, jako je obrázek níže.

Jak vidíme na obrázku výše, první rozsah je vybrán od A1 do B5 a druhý rozsah je vybrán od B3 do D5.

Toto je běžná technika, kterou jsme všichni používali při kódování. To však není jediná metoda, kterou máme při kódování ve VBA; můžeme také použít jednu další metodu nazvanou „union“ k vytvoření spojení dvou nebo více rozsahů.

Jak používat metodu VBA Union k připojení více rozsahů?

Příklad č. 1

Pojďme provést stejný zátah jako v předchozím příkladu, ale tentokrát pomocí metody UNION.

Krok 1 - Otevřete v podprocesu funkci UNION.

Kód:

Sub Union_Example1 () Union (End Sub

Krok 2 - Uveďte první rozsah buněk pomocí objektu RANGE. V tomto případě zmiňuji první řadu buněk jako A1 až B5 .

Kód:

Sub Union_Example1 () Union (Range ("A1: A5"), End Sub

Krok 3 - Nyní uveďte druhý rozsah buněk pomocí objektu RANGE, v tomto případě zmiňuji rozsah buněk jako B3 až D5 .

Kód:

Sub Union_Example1 () Union (Range ("A1: A5"), Range ("B3: B5")) End Sub

Krok 4 - Po vytvoření spojení těchto oblastí buněk se musíme rozhodnout, co musíme udělat s touto oblastí spojení buněk. Vložením tečky (.) Zobrazíte seznam IntelliSense.

Kód:

Sub Union_Example1 () Union (Range ("A1: A5"), Range ("B3: B5")). End Sub

Krok 5 - Můžeme vidět všechny dostupné vlastnosti a metody těchto rozsahů.

V tomto příkladu změním barvu interiéru spojovacích buněk. K tomu nejprve musím vybrat vlastnost Interiér.

Kód:

Sub Union_Example1 () Union (Range ("A1: A5"), Range ("B3: B5")).

Krok 6 - S vlastnostmi interiéru můžeme dělat mnoho věcí, ale protože potřebujeme změnit barvu sjednocovacích buněk, vyberu vlastnost Barva.

Kód:

Sub Union_Example1 () Union (Range ("A1: A5"), Range ("B3: B5")). Interior.Color End Sub

Krok 7 - Nyní musíme nastavit vlastnost color. Budu používat vestavěnou vlastnost indexu barev jako vbGreen.

Kód:

Sub Union_Example1 () Union (Range ("A1: A5"), Range ("B3: B5")). Interior.Color = vbGreen End Sub

Step 8 - Now if I run the code colours of the union cells will be changed to Green colour.

Like this using Union method, we can create unison of two or more range of cells.

Example #2 - Use Variables to Store Range of Cells

All most all the coders use variables to store the reference of the range of cells. For example, look at the below code.

Code:

Sub Union_Example2() Dim Rng1 As Range Dim Rng2 As Range Set Rng1 = Range("A1:B5") Set Rng2 = Range("B3:D5") Union(Rng1, Rng2).Interior.Color = vbGreen End Sub

First, I have declared two variables as Range.

Dim Rng1 As Range

Dim Rng2 As Range

Then I have set the reference for these two variables.

Set Rng1 = Range(“A1:B5”)

Set Rng2 = Range(“B3:D5”)

Now variable rng1 holds the reference of Range(“A1:B5”) and the second variable rng2 holds the reference of Range(“B3:D5”).

Then I have applied UNION function to change the interior colour of these range of cells.

This also works exactly the same as the previous one, but using variable makes the code very flexible to use.

Error with Union Function

As I told all the references should be mandatory for the UNION method. For example, look at the below code.

Code:

Sub Union_Example3() Dim Rng1 As Range Dim Rng2 As Range Dim Rng3 As Range Set Rng1 = Range("A1:B5") Set Rng2 = Range("B3:D5") Union(Rng1, Rng2, Rng3).Interior.Color = vbGreen End Sub

This is similar to the previous, but here I have declared one more variable as Range.

Dim Rng3 As Range

But I have not set the reference to this variable. Rather I just supplied the variable to the UNION function.

Union(Rng1, Rng2, Rng3).Interior.Color = vbGreen

If I run this code, we will get the error like the below.