Nedenfor ser vi på et program i Excel VBA at adskiller strenge.
Situation:
Placer en kommandoknap på dit regneark, og tilføj følgende kodelinjer:
1. For det første erklærer vi en variabel kaldet fuldnavn af typen String, en variabel kaldet kommaposition af typen Heltal og en variabel kaldet i af typen Heltal.
Dim fuldnavn As String, commaposition As Integer, i As Integer
Problemet, vi har at gøre med, er, at vi skal fortælle Excel VBA, hvor vi vil adskille strengen. I tilfælde af Smith er Mike kommaet på position 6, mens i tilfælde af Williams Janet er kommaet i position 9.
2. Vi bruger en loop til at udføre operationerne på hvert navn, der er indtastet i Excel. Først initialiserer vi variablen fuldnavn. Dernæst bruger vi Instr -funktionen til at finde kommaens position.
For i = 2 til 7
fuldnavn = Celler (i, 1) .Værdi
commaposition = InStr (fuldnavn, ",")
3. Endelig vil vi skrive delen efter kommaet til kolonne B og delen foran kommaet til kolonne C. Du kan opnå dette ved at tilføje linjerne:
Celler (i, 2) .Værdi = Midt (fuldnavn, kommaposition + 2)
Celler (i, 3). Værdi = Venstre (fuldnavn, kommaposition - 1)
Midt (fuldnavn, kommaposition + 2) betyder, at vi vil have den del af fuldnavn, der starter med tegnet 'kommaposition + 2' (dette er præcis fornavnet).
Venstre (fuldnavn, kommaposition - 1) betyder, at vi vil have den del af fuldnavn, der starter i begyndelsen, indtil tegnet 'kommaposition- 1' (dette er præcis efternavnet).
4. Glem ikke at lukke sløjfen.
Næste i
5. Tilføj seks navne adskilt med et komma og mellemrum til område ("A2: A7").
6. Test programmet.
Resultat:
