Žemiau apžvelgsime programą Excel VBA kad atskiria stygas.
Situacija:
Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:
1. Pirma, mes deklaruojame kintamąjį, pavadintą „String“ tipo pilnas pavadinimas, kintamąjį, vadinamą „Comger“, ir „Integer“ tipo kintamąjį, ir kintamąjį, pavadintą „i“.
Pilnas vardas kaip eilutė, kablelis kaip sveikasis skaičius, o kaip sveikasis skaičius
Problema, su kuria susiduriame, yra ta, kad turime pasakyti „Excel VBA“, kur norime atskirti eilutę. Smitho atveju Mike'o kablelis yra 6 pozicijoje, o Williams - Janet kablelis yra 9 pozicijoje.
2. Mes naudojame kilpą, kad atliktume kiekvieno „Excel“ įvesto pavadinimo operacijas. Pirmiausia inicijuojame kintamąjį „fullname“. Toliau mes naudojame funkciją „Instr“, kad surastume kablelio padėtį.
Jei i = nuo 2 iki 7
pilnas pavadinimas = ląstelės (i, 1). Vertė
kablelis = InStr (visas vardas, ",")
3. Galiausiai norime parašyti dalį po kablelio į B stulpelį, o prieš kablelį - į C stulpelį. Tai galite pasiekti pridėję eilutes:
Ląstelės (i, 2). Vertė = vidutinė (visas vardas, kablelis + 2)
Ląstelės (i, 3). Vertė = kairė (visas vardas, kablelis - 1)
Vidurys (pilnas vardas, kablelis + 2) reiškia, kad norime, kad vardo dalis prasidėtų simboliu „kablelis + 2“ (būtent toks yra vardas).
Kairė (pilnas vardas, kablelis - 1) reiškia, kad norime, kad vardo dalis prasidėtų nuo pradžios iki simbolio „kablelis -1“ (tai yra būtent pavardė).
4. Nepamirškite uždaryti kilpos.
Kitas I.
5. Prie diapazono pridėkite šešis vardus, atskirtus kableliu ir tarpais („A2: A7“).
6. Išbandykite programą.
Rezultatas: