Alla tarkastelemme ohjelmaa Excel VBA että erottaa merkkijonot.
Tilanne:
Aseta komentopainike laskentataulukkoosi ja lisää seuraavat koodirivit:
1. Ensin julistamme muuttujan nimeltä String koko nimi, muuttujan nimeltä Commaposition, tyyppi Integer, ja muuttujan nimeltä i, jonka tyyppi on Integer.
Himmennä koko nimi merkkijonona, pilkku kokonaislukuna ja i kokonaislukuna
Ongelmana on, että meidän on kerrottava Excel VBA: lle, missä haluamme erottaa merkkijonon. Smithin tapauksessa Mike -pilkku on paikassa 6, Williamsin tapauksessa Janet, pilkku on kohdassa 9.
2. Käytämme silmukkaa toimintojen suorittamiseen jokaiselle Exceliin syötetylle nimelle. Aluksi alustamme muuttujan fullname. Seuraavaksi käytämme Instr -funktiota löytääksesi pilkun sijainnin.
I = 2 - 7
fullname = Solut (i, 1). Arvo
pilkku = InStr (koko nimi, ",")
3. Lopuksi haluamme kirjoittaa pilkun jälkeisen osan sarakkeeseen B ja pilkun edessä olevan osan sarakkeeseen C. Voit tehdä tämän lisäämällä rivit:
Solut (i, 2). Arvo = Keskitaso (koko nimi, pilkku + 2)
Solut (i, 3). Arvo = Vasen (koko nimi, pilkku - 1)
Keskimmäinen (koko nimi, pilkku + 2) tarkoittaa, että haluamme koko nimen osan, joka alkaa merkistä 'commaposition + 2' (tämä on täsmälleen etunimi).
Vasen (koko nimi, pilkku - 1) tarkoittaa, että haluamme koko nimen osan, joka alkaa alusta merkkiin "commaposition -1" (tämä on juuri sukunimi).
4. Älä unohda sulkea silmukkaa.
Seuraavaksi minä
5. Lisää alueeseen kuusi nimeä, jotka on erotettu pilkulla ja välilyönnillä ("A2: A7").
6. Testaa ohjelma.
Tulos: