seychellesartprojects.org

„Excel VBA MID“ funkcija

VBA MID funkcija ištraukia reikšmes iš pateikto sakinio ar žodžio vidurio. MID funkcija yra suskirstyta į eilutę ir teksto funkciją ir tai yra darbalapio funkcija, kuri reiškia naudoti šią funkciją VBA, turime naudoti metodą application.worksheet.

Yra situacijų, kai norime išgauti vardą, pavardę ar antrąjį vardą. Tokiose situacijose TEXT kategorijos formulės yra naudingos, kad atitiktų mūsų reikalavimus. Šios funkcijos naudojimas yra tas pats, kaip ir darbalapio nuorodos, o sintaksė taip pat yra ta pati.

Sintaksė

Kaip ir mūsų „Excel“ MID funkcija, taip ir VBA turi panašų sintaksės verčių rinkinį. Žemiau yra sintaksė.

• String to Search: Tai ne kas kitas, o koks yra eilutės sakinys, ty iš kurios eilutės ar žodžio norėtumėte išgauti reikšmes.
• Pradinė padėtis: iš kurios sakinio pozicijos norite ištraukti. Tai turėtų būti skaitinė vertė.
• Ištraukiamų simbolių skaičius: kiek simbolių norite išgauti iš pradinės padėties? Tai taip pat turėtų būti skaitinė vertė.

Kaip naudotis VBA MID funkcija?

Šį VBA MID funkcijos šabloną galite atsisiųsti čia - VBA MID funkcijos šabloną

1 pavyzdys

Tarkime, kad turite žodį „Labas rytas“ ir norite iš šio sakinio ištraukti „Geras“. Norėdami išgauti vertę, atlikite toliau nurodytus veiksmus.

1 veiksmas: pirmiausia sukurkite makrokomandos pavadinimą.

Kodas:

 Sub MID_VBA_Pavyzdys1 () Pabaiga Sub 

2 veiksmas: paskelbkite kintamąjį kaip „STRING“.

Kodas:

 Sub MID_VBA_Pavyzdys1 () „Dim MiddleValue“ kaip eilutės pabaiga Sub 

3 žingsnis: Dabar priskirkite šio kintamojo vertę naudodami MID funkciją.

Kodas:

 Sub MID_VBA_Pavyzdys1 () Dim MiddleValue As String MiddleValue = Mid (End Sub 

4 žingsnis: Pirmasis argumentas yra eilutė, ty iš kurios vertės norime išgauti. Taigi mūsų vertybė yra „Labas rytas“.

Kodas:

 Sub MID_VBA_Pavyzdys1 () Vidutinis vidurkis kaip eilutė Vidutinė vertė = Vidutinė ("Labas rytas", pabaiga Sub 

5 žingsnis: Toliau yra pradinė simbolio, kurį norite išgauti, padėtis. Šiuo atveju „Labas rytas“ prasideda nuo 7-ojo personažo.

Pastaba: tarpas taip pat yra simbolis.

Kodas:

 Sub MID_VBA_Example1 () Dim MiddleValue as String MiddleValue = Mid ("Labas rytas", 7 pabaigos pusė 

6 žingsnis: ilgis yra ne kas kitas, o kiek simbolių norite išgauti. Čia turime išgauti 4 simbolius, nes žodis „Geras“ yra 4 simboliai.

Kodas:

 Sub MID_VBA_Example1 () Vidutinis vidurkis kaip eilutė MiddleValue = Vidutinis ("Labas rytas", 7, 4) Pabaiga Sub 

7 žingsnis: Mes užpildėme formulę. Parodykime kintamojo rezultatą pranešimo laukelyje.

Kodas:

 Sub MID_VBA_Pavyzdys1 () Vidutinis vidurkis kaip eilutė Vidutinė vertė = Vidutinis ("Labas rytas", 7, 4) MsgBox MiddleValue Pabaiga Sub 

8 žingsnis: Dabar paleiskite šį kodą rankiniu būdu arba paspauskite klavišą F5, pranešimo laukelyje turėtų būti žodis „Geras“.

Išvestis:

2 pavyzdys

Tarkime, kad turite kartu vardą ir pavardę, o žodis yra „Ramesh, Tendulkar“. Tarp vardo ir pavardės atskyrimo simbolis yra kablelis (,). Dabar turime išgauti tik vardą.

1 veiksmas: sukurkite makrokomandą ir apibrėžkite kintamąjį.

Kodas:

 Sub MID_VBA_Example2 () Dim FirstName as String End Sub 

2 žingsnis: Dabar priskirkite šio kintamojo vertę naudodami MID funkciją.

Kodas:

 Sub MID_VBA_Example2 () Dim DimName as String FirstName = Mid (End Sub 

3 žingsnis: Mūsų eilutė yra „Ramesh.Tendulkar“, todėl įveskite šį žodį.

Kodas:

 Sub MID_VBA_Example2 () Dim FirstName as String FirstName = Mid („Ramesh, Tendulkar“, End Sub 

4 žingsnis: Kadangi mes išgauname vardą, pradinė pozicija yra 1.

Kodas:

 Sub MID_VBA_Example2 () Dim FirstName As String FirstName = Mid (Mid ("Ramesh, Tendulkar", 1, End Sub) 

5 žingsnis: Simbolio ilgis, kurį galite tiesiogiai įvesti kaip 6, bet tai nėra geriausias būdas. Norint nustatyti ilgį, reikia pritaikyti dar vieną formulę, vadinamą Instr.

Kodas:

 Sub MID_VBA_Example2 () Dim FirstName as String FirstName = Mid ("Ramesh, Tendulkar", 1, InStr (End Sub) 

6 žingsnis: Ši pradinė padėtis yra 1.

Kodas:

 Sub MID_VBA_Example2 () Dim FirstName as String FirstName = Mid ("Ramesh, Tendulkar", 1, InStr (1, End Sub) 

7 žingsnis: 1 eilutė yra mūsų vardas, ty „Ramesh, Tendulkar“.

Kodas:

 Sub MID_VBA_Example2 () Dim FirstName as String FirstName = Mid („Ramesh, Tendulkar“, 1, InStr (1, „Ramesh, Tendulkar“, End Sub) 

8 žingsnis: 2 eilutė, kas yra vardo ir pavardės skyriklis, ty kablelis (,).

Kodas:

 Sub MID_VBA_Example2 () Dim FirstName As String FirstName = Mid (Mid ("Ramesh, Tendulkar", 1, InStr (1, "Ramesh, Tendulkar", ",") End Sub) 

Pastaba: Instr funkcija grąžins, kiek simbolių yra žodyje „Ramesh, Tendulkar“ nuo eilutės 1 pozicijos iki 2 eilutės pozicijos, ty iki kablelio (,). Taigi Instr grąžins rezultatą 7 kaip kablelį (,).

9 žingsnis: Kadangi „Instr“ funkcija pateikia skaičių, simbolių, įskaitant kablelį (,), čia turime atimti 1 simbolį. Taigi po „Instr“ funkcijos uždarymo įveskite -1.

Kodas:

 Sub MID_VBA_Example2 () Dim FirstName as String FirstName = Mid ("Ramesh, Tendulkar", 1, InStr (1, "Ramesh, Tendulkar", ",") - 1) Pabaiga Sub 

10 žingsnis: Dabar pranešimo laukelyje parodykite kintamojo vertę.

Kodas:

 Sub MID_VBA_Example2 () Dim FirstName as String FirstName = Mid ("Ramesh, Tendulkar", 1, InStr (1, "Ramesh, Tendulkar", ",") - 1) MsgBox FirstName End Sub 

11 žingsnis: paleiskite šį kodą naudodami F5 klavišą arba galite paleisti šį kodą rankiniu būdu, vardą gausime pranešimo laukelyje.

Išvestis:

3 pavyzdys

Dabar duosiu jums vieną užduotį išspręsti. Turiu vardų ir pavardžių sąrašą.

Iš šio sąrašo noriu, kad išgautumėte tik vardą. Viskas kas geriausia!!!!.

Gerai, jei bandėte ir negalite gauti rezultato, tai jums padės žemiau pateiktas kodas.

Kodas:

 Sub MID_VBA_Pavyzdys3 () Dim i Long For i = nuo 2 iki 15 langelių (i, 2). Vertė = vidurinė (ląstelės (i, 1). Vertė, 1, InStr (1, ląstelės (i, 1). Vertė " , ") - 1) Kitas i End Sub 

Nukopijuokite ir įklijuokite aukščiau nurodytą kodą į savo modulį. Nukopijavę kodą, paleiskite šį kodą naudodami klavišą F5 arba galite paleisti rankiniu būdu.

Tai turėtų duoti tokį rezultatą kaip žemiau.

Ką reikia atsiminti

• MID funkcijos ilgio argumentas yra neprivalomas. Jei to nepaisysite, numatytoji reikšmė bus 1.
• Norėdami nustatyti ilgį arba pradinę padėtį, naudokite „Instr“ funkciją kartu su „MID“ funkcija.