Tämä opetusohjelma näyttää kuinka käyttää vasenta VBA -toimintoa.
Vasen toiminto
VBA Left -toiminto palauttaa merkkijonon ensimmäiset n merkkiä.
VBA Vasen toiminto n ensimmäiset merkit
VBA Left -funktio palauttaa merkkijonon ensimmäiset n merkkiä:
123456 | AlavasenExample_1 ()MsgBox Left ("ABCDEFGHI", 4) 'Tulos: "ABCD"MsgBox Left ("ABCDEFGHI", 2) Tulos: "AB"MsgBox Left ("ABCDEFGHI", 1) 'Tulos: "A"MsgBox Left ("ABCDEFGHI", 100) 'Tulos: "ABCDEFGHI"End Sub |
VBA Vasen toiminto n Muuttujan ensimmäiset merkit
Kuten yllä on esitetty, voit määrittää merkkijonon yksinkertaisesti kirjoittamalla lainausmerkkien ympäröimän tekstin. Mutta LEFT -toiminto toimii myös merkkijonomuuttujien kanssa. Nämä esimerkit poimivat merkkijonomuuttujasta ensimmäiset n merkkiä.
1234567891011 | AlavasenEsimerkki_2 ()Dim StrEx merkkijonona 'Määritä merkkijonomuuttujaStrEx = "ABCDEFGHI"MsgBox Vasen (StrEx, 4) 'Tulos: "ABCD"MsgBox Left (StrEx, 2) 'Tulos: "AB"MsgBox Left (StrEx, 1) 'Tulos: "A"MsgBox Left (StrEx, 100) 'Tulos: "ABCDEFGHI"End Sub |
VBA Vasen toiminto n Ensimmäiset merkit solussa
Merkkijonot voidaan määrittää VBA -koodissa, mutta voit myös käyttää solujen arvoja. Lue solun arvo, säilytä se merkkijonomuuttujassa ja poimi n ensimmäistä merkkiä laskentataulukon solun arvosta.
12345678910111213 | AlavasenExample_3 ()Dim StrEx merkkijonona 'Määritä merkkijonomuuttuja'Lue solun A1 arvo laskentataulukon taulukosta 1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Alue ("A1"). Arvo'Tässä esimerkissä solun A1 arvo on "A bCDEFGHI"MsgBox Vasen (StrEx, 4) 'Tulos: "ABCD"MsgBox Left (StrEx, 2) 'Tulos: "AB"MsgBox Left (StrEx, 1) 'Tulos: "A"MsgBox Left (StrEx, 100) 'Tulos: "ABCDEFGHI"End Sub |
VBA Left Function Leikkaa viimeinen kirjain
Jos haluat poistaa kirjaimia merkkijonon lopusta, käytä LEFT -toimintoa yhdessä LEN -toiminnon kanssa.
VBA LEN -toiminto laskee merkkijonon merkkien määrän:
1 | Len (StrEx) |
Yhdistämällä toiminnot voimme poistaa tietyn määrän merkkejä merkkijonon lopusta:
123456789 | AlavasenExample_4 ()Dim StrEx merkkijonona 'Määritä merkkijonomuuttujaStrEx = "ABCDEF"MsgBox Left (StrEx, Len (StrEx)) 'Tulos: "ABCDEF"MsgBox Vasen (StrEx, Len (StrEx) - 1) 'Tulos: "ABCDE"MsgBox Vasen (StrEx, Len (StrEx) - 2) 'Tulos: "ABCD"End Sub |
VBA vasemmalle poimimaan etunimen
Jos haluat poimia etunimen koko nimen merkkijonosta, käytä vasenta funktiota yhdessä Instr -funktion kanssa.
VBA Instr -toiminto etsii merkkijonosta alimerkkijonoa ja palauttaa alimerkkijonon sijaintinumeron.
1 | InStr (StrEx, "") |
Yhdistämällä toiminnot voimme poimia ensimmäisen sanan lauseesta:
12345678910111213141516171819 | AlavasenExample_5 ()Dim StrEx merkkijonona 'Määritä merkkijonomuuttujaStrEx = "Alexander Graham Bell"MsgBox Vasen (StrEx, InStr (StrEx, ""))'Tulos: "Alexander" (huomaa väli lopussa)MsgBox vasen (StrEx, InStr (StrEx, "") - 1)'Tulos: "Alexander" (EI välilyöntiä lopussa)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")'Tulos: 9, koska tilaa löytyy paikasta 9MsgBox vasen (StrEx, InStr (StrEx, "") - 1)Tulos: "Leonardo"End Sub |