Funkce VBA vlevo - extrahovat text zleva

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
wave wave wave wave wave