See õpetus näitab, kuidas kasutada vasakpoolse VBA funktsiooni.
Vasak funktsioon
Funktsioon VBA Left tagastab stringi esimesed n tähemärki.
VBA vasak funktsioon ja esimesed märgid
Funktsioon VBA Left tagastab stringi esimesed n tähemärki:
123456 | AlamvasakNäide_1 ()MsgBox Left ("ABCDEFGHI", 4) 'Tulemus on: "ABCD"MsgBox Left ("ABCDEFGHI", 2) 'Tulemus on: "AB"MsgBox Left ("ABCDEFGHI", 1) 'Tulemus on: "A"MsgBox Left ("ABCDEFGHI", 100) 'Tulemus on: "ABCDEFGHI"End Sub |
VBA vasakpoolne funktsioon n Muutuja esimesed märgid
Nagu ülalpool näidatud, saate stringi määratleda lihtsalt jutumärkidega ümbritsetud teksti sisestamisega. Kuid funktsioon LEFT töötab ka stringimuutujatega. Need näited eraldavad stringimuutujast esimese n märgi.
1234567891011 | AlamvasakNäide_2 ()Dim StrEx stringina 'Määrake stringimuutujaStrEx = "ABCDEFGHI"MsgBox vasakule (StrEx, 4) 'Tulemus: "ABCD"MsgBox vasakule (StrEx, 2) 'Tulemus: "AB"MsgBox Left (StrEx, 1) 'Tulemus: "A"MsgBox vasakule (StrEx, 100) Tulemuseks on: "ABCDEFGHI"End Sub |
VBA vasak funktsioon F lahtris esimesed märgid
Stringid saab määratleda VBA -koodis, kuid saate kasutada ka lahtrite väärtusi. Lugege lahtri väärtust, hoidke seda stringimuutjas ja eraldage sellest töölehe lahtri väärtusest n esimest märki.
12345678910111213 | Alam vasakuleExample_3 ()Dim StrEx stringina 'Määrake stringimuutuja"Lugege töölehe lehe 1 lahtri A1 väärtustStrEx = ThisWorkbook.Worksheets ("Sheet1"). Vahemik ("A1"). VäärtusSelle näite puhul on lahtri A1 väärtus "A bCDEFGHI"MsgBox vasakule (StrEx, 4) 'Tulemus: "ABCD"MsgBox vasakule (StrEx, 2) 'Tulemus: "AB"MsgBox Left (StrEx, 1) 'Tulemus: "A"MsgBox vasakule (StrEx, 100) Tulemuseks on: "ABCDEFGHI"End Sub |
VBA vasakpoolne funktsioon Lõika ära viimane kiri
Tähe eemaldamiseks stringi lõpust kasutage funktsiooni LEFT koos LEN -funktsiooniga.
Funktsioon VBA LEN loeb stringi tähemärkide arvu:
1 | Len (StrEx) |
Funktsioone kombineerides saame stringi lõpust eemaldada teatud arvu märke:
123456789 | AlamvasakNäide_4 ()Dim StrEx stringina 'Määrake stringimuutujaStrEx = "ABCDEF"MsgBox Left (StrEx, Len (StrEx)) 'Tulemus: "ABCDEF"MsgBox vasakule (StrEx, Len (StrEx) - 1) 'Tulemus on: "ABCDE"MsgBox vasakule (StrEx, Len (StrEx) - 2) 'Tulemus on: "ABCD"End Sub |
VBA vasakule eesnime väljavõtmiseks
Eesnime eraldamiseks täisnimega stringist kasutage funktsiooni Vasak koos funktsiooni Funktsioon.
Funktsioon VBA Instr otsib stringist alamstringi ja tagastab alamstringi positsiooni numbri.
1 | InStr (StrEx, "") |
Funktsioone kombineerides saame fraasist esimese sõna välja võtta:
12345678910111213141516171819 | Vasak alamnäide_5 ()Dim StrEx stringina 'Määrake stringimuutujaStrEx = "Alexander Graham Bell"MsgBox vasakule (StrEx, InStr (StrEx, ""))"Tulemus on:" Aleksander "(märkige tühik lõpus)MsgBox vasakule (StrEx, InStr (StrEx, "") - 1)'Tulemus: "Aleksander" (lõpus tühikut pole)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")"Tulemus on: 9, kuna positsioonil 9 on ruumiMsgBox vasakule (StrEx, InStr (StrEx, "") - 1)Tulemus: "Leonardo"End Sub |