Hieronder zullen we kijken naar een programma in Excel VBA Dat scheidt tekenreeksen.
Situatie:
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
1. Eerst declareren we een variabele met de naam volledige naam van het type String, een variabele met de naam commapositie van het type Integer en een variabele met de naam i van het type Integer.
Dim volledige naam As String, kommapositie As Integer, i As Integer
Het probleem waar we mee te maken hebben, is dat we Excel VBA moeten vertellen waar we de string willen scheiden. In het geval van Smith staat Mike de komma op positie 6, terwijl in het geval van Williams, Janet de komma op positie 9 staat.
2. We gebruiken een lus om de bewerkingen uit te voeren op elke naam die in Excel is ingevoerd. Eerst initialiseren we de variabele fullname. Vervolgens gebruiken we de Instr-functie om de positie van de komma te vinden.
Voor i = 2 tot 7
volledige naam = Cellen (i, 1). Waarde
kommapositie = InStr(volledige naam, ",")
3. Ten slotte willen we het gedeelte na de komma in kolom B schrijven en het gedeelte vóór de komma in kolom C. U kunt dit bereiken door de regels toe te voegen:
Cellen (i, 2). Waarde = Mid (volledige naam, kommapositie + 2)
Cellen (i, 3). Waarde = Links (volledige naam, kommapositie - 1)
Mid(volledige naam, kommapositie + 2) betekent dat we het deel van de volledige naam willen dat begint bij het teken 'commapositie + 2' (dit is precies de voornaam).
Links (volledige naam, kommapositie - 1) betekent dat we het deel van de volledige naam willen beginnen bij het begin tot het teken 'commapositie-1' (dit is precies de achternaam).
4. Vergeet niet de lus te sluiten.
volgende i
5. Voeg zes namen toe, gescheiden door een komma en een spatie, aan Range ("A2:A7").
6. Test het programma.
Resultaat:
