Ši pamoka parodys, kaip naudoti kairės VBA funkciją.
Kairioji funkcija
Funkcija VBA Left grąžina pirmuosius n simbolius iš eilutės.
VBA kairioji funkcija ir pirmieji simboliai
Funkcija VBA Left grąžina pirmuosius n simbolius iš eilutės:
123456 | Antras kairysisPavyzdys_1 ()„MsgBox Left“ („ABCDEFGHI“, 4) „Rezultatas:„ ABCD “„MsgBox Left“ („ABCDEFGHI“, 2) „Rezultatas:„ AB “„MsgBox Left“ („ABCDEFGHI“, 1) „Rezultatas:„ A “„MsgBox Left“ („ABCDEFGHI“, 100) „Rezultatas:„ ABCDEFGHI “Pabaiga Sub |
VBA kairioji funkcija n Pirmieji kintamojo simboliai
Kaip parodyta aukščiau, galite apibrėžti eilutę tiesiog įvesdami tekstą, išdėstytą kabutėse. Tačiau LEFT funkcija taip pat veiks su eilutės kintamaisiais. Šie pavyzdžiai išskiria pirmuosius n simbolius iš eilutės kintamojo.
1234567891011 | Antrasis kairysisPavyzdys_2 ()„Dim StrEx“ kaip eilutė „Apibrėžkite eilutės kintamąjįStrEx = "ABCDEFGHI"„MsgBox“ kairėn („StrEx“, 4) „Rezultatas:„ ABCD “„MsgBox Left“ („StrEx“, 2) rezultatas: „AB“„MsgBox Left“ („StrEx“, 1) rezultatas: „A“„MsgBox Left“ („StrEx“, 100) rezultatas: „ABCDEFGHI“Pabaiga Sub |
VBA kairioji funkcija n Pirmieji simboliai ląstelėje
Eilutės gali būti apibrėžtos VBA kodu, bet taip pat galite naudoti langelių reikšmes. Perskaitykite langelio vertę, laikykite jį eilutės kintamajame ir išgaukite n pirmuosius simbolius iš tos darbalapio langelio vertės.
12345678910111213 | Antrasis kairysisExample_3 ()„Dim StrEx“ kaip eilutė „Apibrėžkite eilutės kintamąjį„Perskaitykite A1 langelio reikšmę 1 darbalapio lapeStrEx = ThisWorkbook.Worksheets ("Sheet1"). Diapazonas ("A1"). Reikšmė„Šiame pavyzdyje ląstelės A1 vertė yra„ A bCDEFGHI “„MsgBox“ kairėn („StrEx“, 4) „Rezultatas:„ ABCD “„MsgBox Left“ („StrEx“, 2) rezultatas: „AB“„MsgBox Left“ („StrEx“, 1) rezultatas: „A“„MsgBox Left“ („StrEx“, 100) rezultatas: „ABCDEFGHI“Pabaiga Sub |
VBA kairioji funkcija Apkirpkite paskutinę raidę
Norėdami pašalinti raides iš eilutės pabaigos, naudokite funkciją LEFT kartu su LEN funkcija.
Funkcija VBA LEN skaičiuoja simbolių skaičių eilutėje:
1 | Lenas („StrEx“) |
Sujungdami funkcijas, galime pašalinti tam tikrą skaičių simbolių iš eilutės pabaigos:
123456789 | Kairysis antrasis pavyzdys_4 ()„Dim StrEx“ kaip eilutė „Apibrėžkite eilutės kintamąjįStrEx = "ABCDEF"„MsgBox Left“ („StrEx“, „Len“ („StrEx“)) rezultatas: „ABCDEF“„MsgBox“ kairėn („StrEx“, „Len“ („StrEx“) - 1) „Rezultatas:„ ABCDE “„MsgBox“ kairėn („StrEx“, „Len“ („StrEx“) - 2) „Rezultatas:„ ABCD “Pabaiga Sub |
VBA kairėn išgauti vardą
Norėdami išgauti vardą iš eilutės visu pavadinimu, naudokite funkciją Kairė kartu su funkcija Instr.
Funkcija „VBA Instr“ ieško eilutės eilutės ir grąžina antrinės eilutės pozicijos numerį.
1 | „InStr“ („StrEx“, „“) |
Sujungdami funkcijas, iš frazės galime išgauti pirmąjį žodį:
12345678910111213141516171819 | Kairysis antrasis pavyzdys_5 ()„Dim StrEx“ kaip eilutė „Apibrėžkite eilutės kintamąjį„StrEx“ = „Aleksandras Grahamas Bellas“„MsgBox“ kairėn („StrEx“, „InStr“ („StrEx“, „“))„Rezultatas:„ Aleksandras “(atkreipkite dėmesį į tarpą pabaigoje)„MsgBox“ kairėn („StrEx“, „InStr“ („StrEx“, „“) - 1)„Rezultatas:„ Aleksandras “(pabaigoje nėra tarpo)„StrEx“ = „Leonardo da Vinci“„MsgBox InStr“ („StrEx“, „“)„Rezultatas: 9, nes 9 padėtyje yra vietos„MsgBox“ kairėn („StrEx“, „InStr“ („StrEx“, „“) - 1)Rezultatas: „Leonardo“Pabaiga Sub |