Tento tutoriál vám ukáže, ako používať ľavú funkciu VBA.
Ľavá funkcia
Funkcia VBA vľavo vracia prvých n znakov z reťazca.
Ľavá funkcia VBA n Prvé znaky
Funkcia VBA vľavo vracia prvých n znakov z reťazca:
123456 | Sub LeftExample_1 ()MsgBox Left ("ABCDEFGHI", 4) 'Výsledok je:' ABCD 'MsgBox Left ("ABCDEFGHI", 2) 'Výsledok je: "AB"MsgBox Left ("ABCDEFGHI", 1) 'Výsledok je: "A"MsgBox Left („ABCDEFGHI“, 100) 'Výsledok je: „ABCDEFGHI“Koniec pod |
Ľavá funkcia VBA n Prvé znaky v premennej
Ako je uvedené vyššie, reťazec môžete definovať jednoducho zadaním textu do úvodzoviek. Funkcia LEFT však bude fungovať aj s reťazcovými premennými. Tieto príklady extrahujú prvých n znakov z reťazcovej premennej.
1234567891011 | Sub LeftExample_2 ()Dim StrEx As String 'Definujte premennú reťazcaStrEx = "ABCDEFGHI"MsgBox Left (StrEx, 4) 'Výsledok je: "ABCD"MsgBox Left (StrEx, 2) 'Výsledok je: "AB"MsgBox Left (StrEx, 1) 'Výsledok je: "A"MsgBox Left (StrEx, 100) 'Výsledok je: "ABCDEFGHI"Koniec pod |
Ľavá funkcia VBA n Prvé znaky v bunke
Reťazce je možné definovať v kóde VBA, ale môžete použiť aj hodnoty z buniek. Prečítajte si hodnotu bunky, uložte ju do reťazcovej premennej a extrahujte n prvých znakov z hodnoty bunky pracovného hárka.
12345678910111213 | Sub LeftExample_3 ()Dim StrEx As String 'Definujte premennú reťazca„Prečítajte si hodnotu bunky A1 v pracovnom hárku List1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Value„V tomto prípade je hodnota bunky A1„ A bCDEFGHI “MsgBox Left (StrEx, 4) 'Výsledok je: "ABCD"MsgBox Left (StrEx, 2) 'Výsledok je: "AB"MsgBox Left (StrEx, 1) 'Výsledok je: "A"MsgBox Left (StrEx, 100) 'Výsledok je: "ABCDEFGHI"Koniec pod |
Ľavá funkcia VBA orezá posledné písmeno
Ak chcete odstrániť písmená z konca reťazca, použite funkciu VĽAVO spolu s funkciou LEN.
Funkcia VBA LEN počíta počet znakov v reťazci:
1 | Len (StrEx) |
Kombináciou funkcií môžeme z konca reťazca odstrániť určitý počet znakov:
123456789 | Sub LeftExample_4 ()Dim StrEx As String 'Definujte premennú reťazcaStrEx = "ABCDEF"MsgBox Left (StrEx, Len (StrEx)) 'Výsledok je: "ABCDEF"MsgBox Left (StrEx, Len (StrEx) - 1) 'Výsledok je: "ABCDE"MsgBox Left (StrEx, Len (StrEx) - 2) 'Výsledok je: "ABCD"Koniec pod |
VBA ponechal extrahovať krstné meno
Ak chcete extrahovať krstné meno z reťazca s celým menom, použite ľavú funkciu spolu s funkciou Instr.
Funkcia VBA Instr vyhľadá podreťazec vo vnútri reťazca a vráti číslo pozície podreťazca.
1 | InStr (StrEx, "") |
Kombináciou funkcií môžeme z frázy extrahovať prvé slovo:
12345678910111213141516171819 | Sub LeftExample_5 ()Dim StrEx As String 'Definujte premennú reťazcaStrEx = "Alexander Graham Bell"MsgBox vľavo (StrEx, InStr (StrEx, ""))Výsledok je: „Alexander“ (všimnite si medzeru na konci)MsgBox vľavo (StrEx, InStr (StrEx, "") - 1)Výsledok je: „Alexander“ (na konci ŽIADNA medzera)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")„Výsledok je: 9, pretože priestor je na pozícii 9MsgBox vľavo (StrEx, InStr (StrEx, "") - 1)Výsledok je: „Leonardo“Koniec pod |