Nedan kommer vi att titta på ett program i Excel VBA det där separerar strängar.
Situation:
Placera en kommandoknapp på ditt kalkylblad och lägg till följande kodrader:
1. Först deklarerar vi en variabel som heter fullnamn för typ String, en variabel som kallas sammansättning av typ heltal och en variabel som heter i av typ heltal.
Dim fullständigt namn som sträng, sammansättning som heltal, i som heltal
Problemet vi har att göra med är att vi måste berätta för Excel VBA var vi vill separera strängen. I fallet med Smith är Mike kommat på position 6 medan i fallet med Williams, Janet komma på position 9.
2. Vi använder en loop för att utföra operationerna på varje namn som anges i Excel. Först initierar vi variabeln fullnamn. Därefter använder vi Instr -funktionen för att hitta kommas position.
För i = 2 till 7
fullnamn = Celler (i, 1) .Värde
commaposition = InStr (fullständigt namn, ",")
3. Slutligen vill vi skriva delen efter komma till kolumn B och delen framför komma till kolumn C. Du kan uppnå detta genom att lägga till raderna:
Celler (i, 2) .Värde = Mitt (fullständigt namn, sammansättning + 2)
Celler (i, 3) .Värde = Vänster (fullständigt namn, sammansättning - 1)
Mid (fullnamn, kommaposition + 2) betyder att vi vill att delen av fullständigt namn börjar med tecknet "kommaposition + 2" (detta är exakt förnamnet).
Vänster (fullnamn, kommaposition - 1) betyder att vi vill att delen av fullständigt namn börjar i början tills tecknet "kommaposition -1" (detta är exakt efternamnet).
4. Glöm inte att stänga slingan.
Nästa i
5. Lägg till sex namn åtskilda med ett kommatecken och mellanslag till intervallet ("A2: A7").
6. Testa programmet.
Resultat: