VBA SubString

Excel VBA SubString

Az Excel VBA SubString egy nagyon hasznos függvénytípus a VBA-ban, amelyet az adatok string formájában történő feldarabolására használunk. De a munkalap függvényekben három alsztring függvényünk van, amelyek a bal-jobb és a középső függvény, míg a VBA-ban a bal-jobb középső és az osztott függvények alsztring függvények. Ahogy a neve is sugallja, a VBA-ban a substring függvény egy karakterláncot több SubStringre oszt. Szintén a fentiek szerint a VBA-ban több VBA Substring függvény létezik. Ebben a cikkben megtanuljuk, hogyan használjuk ezeket a részláncfüggvényeket külön-külön példákkal. Mielőtt továbblépnénk a példákkal, először tanuljuk meg ezeknek a függvényeknek a szintaxisát és azt, hogy milyen argumentumot vesznek ezek a függvények bemenetként.

Az Excel VBA SubString

A következők a különböző szintaxisok:

A Left SubString függvény szintaxisa:

Text string az a string, amit bemenetként megadunk, míg a length az a karakterek száma, amit a bemeneti stringből szeretnénk.

Példa:

Left (“ANAND”,2)

A Right SubString funkció szintaxisa:

Text string az a string, amelyet bemenetként megadunk, míg a hossz a bemeneti stringből kért karakterek száma.

Példa: Ha egy karakterlánc ANAND, és AN-t szeretnénk részláncnak, akkor a kód a következő lesz:

Left (“ANAND”,2)

Syntax of Right SubString Function:

Text string az a string, amelyet bemenetként megadunk, míg a hossz az a karakterek száma, amelyet a bemeneti stringből szeretnénk:

Right (“ANAND”,2)

Az eredmény a következő lesz:

Ez ND-t ad eredményként.

A Mid SubString függvény szintaxisa a VBA-ban:

Text string az a string, amit bemenetként megadunk, a Start position az a pozíció, ahol a karaktert szeretnénk kezdeni a kivonáshoz, míg a length az a karakterek száma, amit a bemeneti stringből szeretnénk.

Példa: Akkor a kód a következő lesz:

MID (“COMPUTER”,4,3)

A Split SubString funkció szintaxisa:

• Expression As String: Ez egy kötelező argumentum a SPLIT függvényben. Alapvetően ez az általunk megadott bemeneti karakterlánc.
• Elhatároló: Ez egy opcionális argumentum. Ez az a konkrét elválasztójel, amely a karakterláncot elválasztja, de alapértelmezés szerint a szóközt tekintjük alapértelmezett elválasztójelnek.
• Limit: Ez is egy opcionális argumentum. A limit azt jelenti, hogy maximum hány részből állhat egy karakterlánc. De ismét, ha nem adunk meg határt a függvénynek, a VBA alapértelmezett -1-nek tekinti. Ebből az következik, hogy a karakterlánc minden egyes alkalommal, amikor a karakterláncban van egy elválasztójel, szét lesz bontva.
• Összehasonlítás: Ez az utolsó argumentum szintén opcionális argumentum. A Compare egy összehasonlítási módszer, amely az alábbi kettő közül az egyik:

1. Vagy 0, ami azt jelenti, hogy az SPLIT bináris összehasonlítást végez, ami azt jelenti, hogy minden karakternek meg kell egyeznie önmagával.
2. Vagy lehet 1, ami azt jelenti, hogy az SPLIT függvény szöveges összehasonlítást végez.

A SPLIT függvény a legtrükkösebb és leghasznosabb a fenti részláncfüggvények közül. A másik három részláncfüggvény mindegyike egy sztringet használ bemenetként, míg a Split függvény egy sztringtömböt használ.

Ha például azt írom, hogy Split(“I AM A GOOD BOY”) a sztringet külön-külön (minden szót külön-külön) fogja felosztani. Most használjuk ezeket a szubsztring függvényeket példákban.

Hogyan használjuk a SubString függvényeket a VBA-ban?

Megtanuljuk, hogyan használjuk a SubString függvényt az Excelben a VBA kód segítségével.

Példa #1

Left Substring funkció a VBA-ban. Használjuk az első szubsztring függvényt a VBA-ban. Ehhez kövessük az alábbi lépéseket:

1. lépés: Menjünk a fejlesztő lapra, és a Visual Basic-re kattintva nyissuk meg a VB szerkesztőt.

2. lépés: Szúrjunk be egy új modult a Visual Basic szerkesztőn (VBE) belül. Kattintson a Beszúrás fülre > válassza a Modul lehetőséget.

3. lépés: Deklaráljon egy alfunkciót a kód írásának megkezdéséhez.

Kód:

Sub Sample()End Sub

4. lépés: Deklaráljunk két stringet, az egyiket a felhasználó bemenetének fogadására, a másikat az eredmény értékének tárolására.

Kód:

Sub Sample()Dim A, B As StringEnd Sub

5. lépés: Vegyük fel a felhasználótól a bemeneti stringhez a bemeneti doboz funkció segítségével.

Kód:

Sub Sample()Dim A, B As StringA = InputBox("Enter a String", "Single String")End Sub

6. lépés: A B változóban tároljuk a bal oldali függvényből származó értéket a harmadik helyig.

Kód:

Sub Sample()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Left(A, 3)End Sub

7. lépés: A végeredmény megjelenítéséhez használjuk az Msgbox függvényt.

Kód:

Sub Sample()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Left(A, 3)MsgBox BEnd Sub

8. lépés: Most futtassa a fenti kódot az F5 billentyű lenyomásával. és írja ki a bemeneti karakterláncot ANAND-ként.

9. lépés: Ha megnyomjuk az OK gombot, láthatjuk a bal oldali részlánc függvény eredményét.

ANA a karakterlánc bal oldali három karaktere.

Példa #2

RIGHT Substring funkció a VBA-ban. Ehhez kövesse az alábbi lépéseket:

1. lépés: Ugyanabban a modulban deklaráljon egy másik alfüggvényt, hogy elkezdhesse írni a jobb oldali részlánc függvény kódját.

Kód:

Sub Rightsub()End Sub

2. lépés: Deklaráljon két A és B változót stringként.

Kód:

Sub Rightsub()Dim A, B As StringEnd Sub

3. lépés: Vegyük át a felhasználó bemenetét, és tároljuk az értéket az A változóban.

Kód:

Sub Rightsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")End Sub

4. lépés: Használjuk a Jobb függvényt a string harmadik helyére, és tároljuk az értéket a B változóban.

Kód:

Sub Rightsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Right(A, 3)End Sub

5. lépés: Használja az Msgbox függvényt a B értékének megjelenítéséhez.

Kód:

Sub Rightsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Right(A, 3)MsgBox BEnd Sub

6. lépés: Futtassa a kódot és adja meg a bemeneti karakterláncot “ANYA” néven.

7. lépés: Nyomja meg az OK gombot az eredmény megtekintéséhez.

HER a karakterlánc jobb oldalától számított három karakter.

Példa #3

MID Substring funkció a VBA-ban. Ehhez kövesse az alábbi lépéseket:

1. lépés: Ugyanabban a modulban deklaráljon egy másik alfüggvényt, hogy elkezdhesse írni a Mid függvény kódját.

Kód:

Sub MIDsub()End Sub

2. lépés: Deklaráljon két változót A és B stringként.

Kód:

Sub MIDsub()Dim A, B As StringEnd Sub

3. lépés: Vegyük át a felhasználó bemenetét, és tároljuk az értéket az A változóban.

Kód:

Sub MIDsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")End Sub

4. lépés: A Mid függvény használatával, amelynek kezdőpozíciója 4 és hossza 3, tárolja az értéket a B változóban, és jelenítse meg az Msgbox függvény segítségével.

Kód:

Sub MIDsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Mid(A, 4, 3)MsgBox BEnd Sub

5. lépés: Futtassa a fenti kódot és adja meg bemenetként a COMPUTER-t.

6. lépés: Nyomja meg az OK gombot a végeredmény megjelenítéséhez.

A PUT részlánc a 4. pozíciótól kezdődik, és sikeresen kivontunk három karaktert.

Példa #4

VBA Split SubString Function. Ehhez kövessük az alábbi lépéseket:

1. lépés: Ugyanabban a modulban deklaráljunk egy alfüggvényt, hogy elkezdjük írni az alfüggvény kódját.

Kód:

Sub SplitSub()End Sub

2. lépés: Deklaráljunk két A változót, mint string és B változót, mint String tömböt, és vegyük át a felhasználó bemeneti stringjét és tároljuk az A változóban.

Kód:

Sub SplitSub()Dim A As StringDim B() As StringA = InputBox("Enter a String", "Separate with Commas")End Sub

3. lépés: Használjuk a Split SubString függvényt, és tároljuk az értékét a B változóban.

Kód:

Sub SplitSub()Dim A As StringDim B() As StringA = InputBox("Enter a String", "Separate with Commas")B = Split(A, ",")End Sub

4. lépés: A For ciklus használatával minden SubStringet egyetlen sorban jelenítünk meg.

Kód:

Sub SplitSub()Dim A As StringDim B() As StringA = InputBox("Enter a String", "Separate with Commas")B = Split(A, ",")For i = LBound(B) To UBound(B)strg = strg & vbNewLine & "String Number " & i & " - " & B(i)Next iMsgBox strgEnd Sub

5. lépés Futtassa a fenti kódot, és adja meg bemenetként az I,AM,GOOD,BOY értékeket.

6. lépés: Nyomja meg az OK gombot az eredmény megtekintéséhez.

A fenti példában “,”-t használtunk elválasztóként.

Következtetés

A munkalap szubsztring függvényekhez hasonlóan a VBA is rendelkezik szubsztring függvényekkel. Ezek a Left Right Mid és a Split funkciók. Alapvetően a Substring függvények egy sztringet vagy egy sztringtömböt több részsztringre osztanak. Ha a karakterlánc bal oldali részláncát szeretnénk, akkor a Left függvényt használjuk, vagy ellenkező esetben a jobb oldali függvényt. Ha egy adott karakterlánc középső karakterét szeretnénk, akkor a MID függvényeket használjuk. Szintén ha stringekből álló tömbünk van, akkor a split függvényeket használjuk.

Megjegyzendő dolgok

Van néhány dolog, amit a VBA Substring függvényekről meg kell jegyeznünk:

• Hasonlít a munkalapok substring függvényeihez.
• A Substring függvények egy adott karakterláncot részláncokra osztanak.
• Ha egy tömbnyi karakterláncunk van, akkor használjuk a split függvényeket.
• A split függvényben csak a bemeneti karakterlánc kötelező, míg a többi opcionális.

Javasolt cikkek

Ez egy útmutató a VBA SubString. Itt tárgyaljuk a SubString függvény használatát az Excel VBA-ban gyakorlati példákkal és letölthető excel sablonnal együtt. Átnézheti más ajánlott cikkeinket is –

1. VBA SendKeys
2. VBA On Error Goto
3. VBA Input
4. VBA LBound