U nastavku ćemo pogledati program u Excel VBA da razdvaja nizove.
Situacija:
Postavite naredbeni gumb na radni list i dodajte sljedeće retke koda:
1. Prvo deklariramo varijablu koja se zove puno ime tipa String, varijablu koja se naziva naredba tipa Integer i varijablu koja se naziva i tipa Integer.
Dim fullname As String, naredba As Integer, i As Integer
Problem s kojim se bavimo je taj što moramo reći Excelu VBA gdje želimo odvojiti niz. U slučaju Smitha, Mike zarez je na poziciji 6, dok je u slučaju Williamsa, Janet zarez na mjestu 9.
2. Koristimo petlju za izvršavanje operacija nad svakim imenom unesenim u Excel. Prvo, inicijaliziramo varijablu fullname. Zatim koristimo funkciju Instr za pronalaženje položaja zareza.
Za i = 2 do 7
puno ime = Ćelije (i, 1) .Vrijednost
naredba = InStr (puno ime, ",")
3. Na kraju, želimo unijeti dio iza zareza u stupac B i dio ispred zareza u stupac C. To možete postići dodavanjem redaka:
Ćelije (i, 2). Vrijednost = srednja (puno ime, naredba + 2)
Ćelije (i, 3). Vrijednost = Lijevo (puno ime, naredba - 1)
Srednje (puno ime, naredba + 2) znači da želimo dio punog imena koji počinje znakom 'naredba + 2' (to je upravo prvo ime).
Lijevo (puno ime, naredba - 1) znači da želimo dio punog imena koji počinje od početka do znaka 'naredba -1' (to je upravo prezime).
4. Ne zaboravite zatvoriti petlju.
Sljedeći i
5. Dodajte šest naziva odvojenih zarezom i razmakom u raspon ("A2: A7").
6. Testirajte program.
Proizlaziti: