Tento tutoriál předvede, jak používat levou funkci VBA.
Levá funkce
Funkce VBA Left vrací prvních n znaků z řetězce.
Funkce VBA vlevo, první znaky
Funkce VBA Left vrací prvních n znaků z řetězce:
| 123456 | Sub LeftExample_1 ()MsgBox Left ("ABCDEFGHI", 4) 'Výsledek je: "ABCD"MsgBox Left ("ABCDEFGHI", 2) 'Výsledek je: "AB"MsgBox Left ("ABCDEFGHI", 1) 'Výsledek je: "A"MsgBox Left („ABCDEFGHI“, 100) 'Výsledek je: „ABCDEFGHI“End Sub |
Levá funkce VBA n První znaky v proměnné
Jak je uvedeno výše, řetězec můžete definovat jednoduše zadáním textu obklopeného uvozovkami. Funkce LEFT ale bude fungovat i s řetězcovými proměnnými. Tyto příklady extrahují prvních n znaků z proměnné řetězce.
| 1234567891011 | Sub LeftExample_2 ()Dim StrEx As String 'Definujte proměnnou řetězceStrEx = "ABCDEFGHI"MsgBox Left (StrEx, 4) 'Výsledek je: "ABCD"MsgBox Left (StrEx, 2) 'Výsledek je: "AB"MsgBox Left (StrEx, 1) 'Výsledek je: "A"MsgBox Left (StrEx, 100) 'Výsledek je: "ABCDEFGHI"End Sub |
Levá funkce VBA n První znaky v buňce
Řetězce lze definovat v kódu VBA, ale také můžete použít hodnoty z buněk. Přečtěte si hodnotu buňky, ponechte ji v řetězcové proměnné a extrahujte n prvních znaků z této hodnoty buňky listu.
| 12345678910111213 | Sub LeftExample_3 ()Dim StrEx As String 'Definujte proměnnou řetězce'Přečtěte si hodnotu buňky A1 v listu List1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Value"V tomto případě je hodnota buňky A1" A bCDEFGHI "MsgBox Left (StrEx, 4) 'Výsledek je: "ABCD"MsgBox Left (StrEx, 2) 'Výsledek je: "AB"MsgBox Left (StrEx, 1) 'Výsledek je: "A"MsgBox Left (StrEx, 100) 'Výsledek je: "ABCDEFGHI"End Sub |
Funkce VBA Left Ořízne poslední písmeno
Chcete -li odstranit písmena z konce řetězce, použijte funkci VLEVO spolu s funkcí LEN.
Funkce VBA LEN počítá počet znaků v řetězci:
| 1 | Len (StrEx) |
Kombinací funkcí můžeme z konce řetězce odstranit určitý počet znaků:
| 123456789 | Sub LeftExample_4 ()Dim StrEx As String 'Definujte proměnnou řetězceStrEx = "ABCDEF"MsgBox Left (StrEx, Len (StrEx)) 'Výsledek je: "ABCDEF"MsgBox Left (StrEx, Len (StrEx) - 1) 'Výsledek je: "ABCDE"MsgBox Left (StrEx, Len (StrEx) - 2) 'Výsledek je: "ABCD"End Sub |
VBA nechal extrahovat křestní jméno
Chcete -li extrahovat křestní jméno z řetězce s celým jménem, použijte levou funkci společně s funkcí Instr.
Funkce VBA Instr vyhledá podřetězec uvnitř řetězce a vrátí číslo pozice podřetězce.
| 1 | InStr (StrEx, "") |
Kombinací funkcí můžeme extrahovat první slovo z fráze:
| 12345678910111213141516171819 | Sub LeftExample_5 ()Dim StrEx As String 'Definujte proměnnou řetězceStrEx = "Alexander Graham Bell"MsgBox vlevo (StrEx, InStr (StrEx, ""))Výsledkem je „Alexander“ (všimněte si mezery na konci)MsgBox Left (StrEx, InStr (StrEx, "") - 1)Výsledkem je „Alexander“ (na konci ŽÁDNÝ prostor)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")„Výsledek je: 9, protože v poloze 9 je prostorMsgBox Left (StrEx, InStr (StrEx, "") - 1)Výsledkem je „Leonardo“End Sub |
