Az alábbiakban megnézzük a programot Excel VBA hogy szétválasztja a húrokat.
Helyzet:
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
1. Először deklarálunk egy String típusú fullname nevű változót, az Integer típusú commaposition nevű változót és az Integer típusú i nevű változót.
Teljes név halvány, mint karakterlánc, vessző mint egész, i mint egész
A problémánk az, hogy meg kell mondanunk az Excel VBA -t, hogy hol szeretnénk elválasztani a karakterláncot. Smith esetében Mike, a vessző a 6., míg Williams, Janet, a vessző a 9. pozícióban van.
2. Egy ciklus segítségével hajtjuk végre a műveleteket minden Excelben megadott névvel. Először inicializáljuk a teljes név változót. Ezután az Instr függvény segítségével keressük meg a vessző pozícióját.
I = 2 és 7 között
teljes név = cellák (i, 1). Érték
vessző = InStr (teljes név, ",")
3. Végül a vessző utáni részt a B oszlopba, a vessző előtti részt pedig a C oszlopba szeretnénk írni. Ezt a sorok hozzáadásával érheti el:
Cella (i, 2). Érték = Közép (teljes név, vessző + 2)
Cella (i, 3). Érték = Bal (teljes név, vessző - 1)
A középső (teljes név, vessző + 2) azt jelenti, hogy a teljes név részét a 'vessző + 2' karakterrel kell kezdeni (pontosan ez a keresztnév).
A bal (teljes név, vessző - 1) azt jelenti, hogy a teljes név elejétől kezdve a „commaposition -1” karakterig (pontosan ez a vezetéknév) szeretnénk.
4. Ne felejtse el lezárni a hurkot.
Következő i
5. Adjon hat nevet vesszővel és szóközzel elválasztva a tartományhoz ("A2: A7").
6. Tesztelje a programot.
Eredmény:
