Hoe maak je een array met strings via vba?

In VBA kunt u een array met strings maken, waarbij elk array-element een string opslaat die u verder kunt benaderen of zelfs kunt combineren tot één string. Daarnaast kunt u de hoofdreeks ook opsplitsen in meerdere subreeksen (met behulp van een scheidingsteken) en deze vervolgens opslaan in de array-elementen.

Zoals ik hierboven al zei, zijn er twee manieren om strings in een array te gebruiken, en in deze tutorial zullen we zien hoe je code voor beide kunt schrijven.

VBA-array met tekenreeksen

 Option Base 1 Sub vba_string_array() Dim myArray() As Variant myArray = Array("One", "Two", "Three") Debug.Print myArray(1) Debug.Print myArray(2) Debug.Print myArray(3) End Sub

1. Declareer eerst een array zonder het aantal elementen dat u erin wilt opslaan.
2. Vervolgens moet u de ARRAY-functie van VBA gebruiken om de waarde in te stellen die u wilt opgeven.
3. Geef daarna alle strings op met een komma in de functie.
4. Uiteindelijk heeft u via het artikelnummer toegang tot alle kanalen.

Op dezelfde manier kunt u ook een reeks cellen in de tabel opslaan.

VBA splitst de tekenreeks op en slaat deze op in een array

Als u een string wilt die meerdere substrings heeft, kunt u deze splitsen met behulp van de SPLIT-functie van VBA , die een scheidingsteken gebruikt.

 Option Base 1 Sub vba_string_array() Dim myArray() As String myArray = Split("Today is a good day", " ") For i = LBound(myArray) To UBound(myArray) Debug.Print myArray(i) Next i End Sub

In deze code heb je een string die bestaat uit een zin van vijf woorden. En wanneer u de split-functie gebruikt, wordt deze in vijf verschillende substrings gesplitst en vervolgens opgeslagen in de array-elementen.

Daarna heb je de for-lus die de boven- en ondergrenzen gebruikt om de tegenlus te maken en elk array-element naar het directe venster af te drukken.