Zemāk mēs apskatīsim programmu Excel VBA ka atdala stīgas.
Situācija:
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
1. Pirmkārt, mēs deklarējam mainīgo, ko sauc par String tipa pilnu nosaukumu, mainīgo, ko sauc par komatūru, kura veids ir Integer, un mainīgo, ko sauc par i.
Pilns uzvārds kā virkne, kompozīcija kā vesels skaitlis un i kā vesels skaitlis
Problēma, ar kuru mēs saskaramies, ir tā, ka mums ir jāpasaka Excel VBA, kur mēs vēlamies atdalīt virkni. Smita gadījumā Maiks komats atrodas 6. pozīcijā, bet Viljamsa gadījumā Dženeta - komats 9. pozīcijā.
2. Mēs izmantojam cilpu, lai izpildītu darbības ar katru Excel ievadīto nosaukumu. Pirmkārt, mēs inicializējam mainīgo pilnais nosaukums. Tālāk mēs izmantojam funkciju Instr, lai atrastu komatu.
Attiecībā uz i = 2 līdz 7
pilns nosaukums = šūnas (i, 1). Vērtība
komats = InStr (pilns vārds, ",")
3. Visbeidzot, mēs vēlamies ierakstīt daļu aiz komata B slejā un daļu pirms komata - C slejā. To var panākt, pievienojot rindas:
Šūnas (i, 2). Vērtība = vidēja (pilns vārds, komats + 2)
Šūnas (i, 3). Vērtība = pa kreisi (pilns nosaukums, komats - 1)
Vidus (pilns vārds, komats + 2) nozīmē, ka mēs vēlamies, lai pilna vārda daļa sāktos ar rakstzīmi 'komats + 2' (tas ir tieši vārds).
Pa kreisi (pilns vārds, komats - 1) nozīmē, ka mēs vēlamies, lai pilna vārda daļa sāktos no sākuma līdz rakstzīmei 'komats- 1' (tas ir tieši uzvārds).
4. Neaizmirstiet slēgt cilpu.
Tālāk i
5. Pievienojiet diapazonam sešus nosaukumus, kas atdalīti ar komatu un atstarpi ("A2: A7").
6. Pārbaudiet programmu.
Rezultāts:
