VBA Union
Zoals het woord zelf suggereert, betekent vereniging één of meer dingen samenvoegen. In VBA betekent Union het samenvoegen van twee of meer reeksen. Deze functie is vergelijkbaar met de bereikfunctie in excel. Dit is de meest voorkomende situatie in ons werk wanneer we een of meer bereiken met elkaar moeten combineren. De uniefunctie komt erg handig in die situaties.
VBA Union-functies worden gebruikt om een of meer bereiken te combineren, zoals hierboven uitgelegd. We kunnen deze functie gebruiken om bereiken te combineren die een soort algemene criteria hebben. Als onze gegevens bijvoorbeeld een waarde hebben die lager is dan een specifieke waarde, kunnen we deze functie gebruiken om die bereiken te combineren en te markeren.
Syntaxis van VBA Union in Excel
De syntaxis voor de Union-functie is als volgt:
Dus als we bijvoorbeeld een bereik A1: A5 en B1: B5 willen combineren, gebruiken we de volgende formule,
Union (bereik ("A1: A5"), bereik ("B1: B5")
We kunnen veel meer doen met deze functie en we zullen verschillende voorbeelden doornemen om deze functie in VBA te gebruiken.
Laten we eerst ervoor zorgen dat we een ontwikkelaars-tabblad hebben ingeschakeld vanaf het tabblad bestanden in het gedeelte Opties, zodat we VBA in Excel kunnen gaan gebruiken.
Hoe de VBA Union-functie in Excel te gebruiken?
We zullen leren hoe een VBA Union-functie te gebruiken met enkele voorbeelden in Excel.
U kunt deze VBA Union Excel-sjabloon hier downloaden - VBA Union Excel-sjabloonVoorbeeld # 1 - VBA Union
Laten we in het eerste voorbeeld proberen twee bereiken samen te selecteren. Laten we in dit voorbeeld het bereik A1: A5 en B1: B5 samen selecteren.
Volg de onderstaande stappen om de VBA Union-functie in Excel te gebruiken:
Stap 1: Natuurlijk moeten we de VB-editor openen vanuit Visual Basic op het tabblad van de ontwikkelaar.
Stap 2: Nu we eenmaal in VB Editor zijn, ga je gang en voeg een nieuwe module in vanuit het invoeggedeelte. De module die we hebben ingevoegd dubbelklikt erop zodat we kunnen beginnen met het schrijven van code.
Stap 3: Zodra we in het codevenster zijn, geef je de macro de volgende naam,
Code:
Sub-monster () Einde Sub
Stap 4: Omdat we met blad 1 gaan werken, moeten we deze eerst activeren om de eigenschappen ervan te kunnen gebruiken.
Code:
Subvoorbeeld () Werkbladen ("Blad1"). Activeer Sub-einde
Stap 5: Nu zullen we de uniefunctie gebruiken om de twee reeksen die we hierboven hebben besproken te combineren met de volgende code.
Code:
Subvoorbeeld () Werkbladen ("Blad1"). Toepassing activeren. Unie (bereik ("A1: A5"), bereik ("B1: B5")). Selecteer einde sub
Stap 6: Zodra we de bovenstaande code hebben uitgevoerd, kunnen we in blad 1 zien dat die twee bereiken in onze selectie zijn. Druk op F5 of doe het handmatig vanaf de knop Uitvoeren om het volgende resultaat te zien.
In het bovenstaande voorbeeld hebben we alleen de twee bereiken geselecteerd, maar we kunnen veel meer doen, wat we in de volgende voorbeelden zullen leren.
Voorbeeld # 2 - VBA Union
Laten we nu in dit voorbeeld twee bereiken selecteren zoals hierboven samen en hun interieurkleur wijzigen. We kunnen het formaat wijzigen of waarden wijzigen zodra we de bereiken samen combineren en selecteren.
Stap 1: Ga naar Menu invoegen en klik op de module
Stap 2: Geef een naam op voor de subfunctie voor het tweede voorbeeld,
Code:
Sub Sample1 () Einde Sub
Stap 3: Laten we nu eerst blad 2 activeren, omdat we in dit voorbeeld de eigenschappen van blad 2 gaan gebruiken.
Code:
Sub Sample1 () Werkbladen ("Sheet2"). Activeer End Sub
Stap 4: Combineer twee bereiken A1: B5 en C1: D5 met bereikfunctie en verander de interieurkleur in donkerrood met de volgende code.
Code:
Sub Sample1 () Werkbladen ("Sheet2"). Activeer Application.Union (Bereik ("A1: B5"), Bereik ("C1: D5")). Interior.Color = 255 End Sub
Stap 5: Voer het bovenstaande uit en bekijk het resultaat in blad 2 als volgt,
We hebben de kleur van de bereiken gewijzigd nadat we ze hebben gecombineerd, omdat we kunnen zien dat ze nog steeds in selectie zijn.
Voorbeeld # 3 - VBA Union
Laat nu de uniefunctie gebruiken om het adres weer te geven na het combineren van bereiken. We zullen bereik A1: C4 en E1: F4 combineren en het adres weergeven in het venster Direct. Een direct venster bevindt zich net onder ons codevenster of we kunnen op CTRL + G drukken om het te openen.
Stap 1: Ga naar Menu invoegen en klik op de module,
Stap 2: Geef de macronaam een naam voor dit derde voorbeeld.
Code:
Sub Sample2 () Einde Sub
Stap 3: Declareer twee variabelen als bereik in de volgende stap als volgt.
Code:
Sub Sample2 () Dim rng1 As Range Dim item As Range End Sub
Stap 4: Stel nu een variabele rng1 in als de unie van het bereik A1: C4 en E1: F4 als volgt,
Code:
Sub Sample2 () Dim rng1 As Range Dim item As Range Set rng1 = Union (Range ("A1: C4"), Range ("E1: F4")) End Sub
Stap 5: Gebruik nu voor lus om het adres van deze cellen uit de gecombineerde bereiken met de volgende code te brengen,
Code:
Sub Sample2 () Dim rng1 als bereik Dim item als bereik ingesteld rng1 = Union (bereik ("A1: C4"), bereik ("E1: F4")) voor elk item in rng1 Debug.Print item.Adres Volgend item End Sub
Stap 6: Zodra we de bovenstaande code hebben uitgevoerd, kunnen we het resultaat als volgt in het directe venster zien,
Toepassing van VBA Union
VBA-unie wordt gebruikt door de volgende syntaxis:
Expression.Union (bereik1, bereik2, … ..)
Hier kunnen we zoveel bereiken gebruiken als we nodig hebben.
Dingen om te onthouden
Er zijn een paar dingen die we moeten onthouden over de vakbond in VBA:
- De unie wordt gebruikt om twee of meer bereiken samen te combineren.
- De bereiken die we aan de functie geven, moeten bestaan om fouten te voorkomen.
- In plaats van toepassing. Unie we kunnen de unie gewoon gebruiken terwijl we aan het excelleren zijn.
Aanbevolen artikelen
Dit is een handleiding voor VBA Union. Hier bespreken we hoe u Excel VBA Union Function kunt gebruiken, samen met praktische voorbeelden en een downloadbare Excel-sjabloon. U kunt ook onze andere voorgestelde artikelen doornemen -
- Kopieer en plak functie in VBA
- Substring Excel-functie
- VBA-subscript buiten bereik
- Excel ISNUMBER Formula