Šī apmācība parādīs, kā izmantot kreisās VBA funkciju.
Kreisā funkcija
Funkcija VBA Left atgriež pirmās n rakstzīmes no virknes.
VBA kreisā funkcija un pirmās rakstzīmes
Funkcija VBA Left atgriež pirmās n rakstzīmes no virknes:
123456 | Apakšējais kreisaisPiemērs_1 ()MsgBox Left ("ABCDEFGHI", 4) Rezultāts: "ABCD"MsgBox Left ("ABCDEFGHI", 2). Rezultāts: "AB"MsgBox Left ("ABCDEFGHI", 1). Rezultāts: "A"MsgBox Left ("ABCDEFGHI", 100). Rezultāts: "ABCDEFGHI"Beigu apakš |
VBA kreisā funkcija n Pirmās rakstzīmes mainīgajā
Kā parādīts iepriekš, jūs varat definēt virkni, vienkārši ievadot tekstu, ko ieskauj pēdiņas. Bet funkcija LEFT darbosies arī ar virkņu mainīgajiem. Šie piemēri no virknes mainīgā iegūs pirmās n rakstzīmes.
1234567891011 | Apakšējais kreisaisPiemērs_2 ()Dim StrEx kā virkne 'Definējiet virknes mainīgoStrEx = "ABCDEFGHI"MsgBox pa kreisi (StrEx, 4). Rezultāts: "ABCD"MsgBox pa kreisi (StrEx, 2). Rezultāts: "AB"MsgBox pa kreisi (StrEx, 1). Rezultāts: "A"MsgBox pa kreisi (StrEx, 100) Rezultāts: "ABCDEFGHI"Beigu apakš |
VBA kreisā funkcija n Šūnas pirmās rakstzīmes
Virknes var definēt VBA kodā, bet jūs varat arī izmantot vērtības no šūnām. Izlasiet šūnas vērtību, saglabājiet to virknes mainīgajā un izvelciet n pirmās rakstzīmes no šīs darblapas šūnas vērtības.
12345678910111213 | Apakšējais kreisaisPiemērs_3 ()Dim StrEx kā virkne 'Definējiet virknes mainīgo“Izlasiet šūnas A1 vērtību 1. darblapāStrEx = ThisWorkbook.Worksheets ("Sheet1"). Diapazons ("A1"). Vērtība'Šajā piemērā šūnas A1 vērtība ir "A bCDEFGHI"MsgBox pa kreisi (StrEx, 4). Rezultāts: "ABCD"MsgBox pa kreisi (StrEx, 2). Rezultāts: "AB"MsgBox pa kreisi (StrEx, 1). Rezultāts: "A"MsgBox pa kreisi (StrEx, 100) Rezultāts: "ABCDEFGHI"Beigu apakš |
VBA kreisās funkcijas apgriešana no pēdējās vēstules
Lai noņemtu burtus no virknes beigām, izmantojiet funkciju LEFT kopā ar funkciju LEN.
Funkcija VBA LEN saskaita rakstzīmju skaitu virknē:
1 | Len (StrEx) |
Apvienojot funkcijas, mēs varam noņemt noteiktu rakstzīmju skaitu no virknes beigām:
123456789 | Apakšējais kreisaisPiemērs_4 ()Dim StrEx kā virkne 'Definējiet virknes mainīgoStrEx = "ABCDEF"MsgBox Left (StrEx, Len (StrEx)) 'Rezultāts: "ABCDEF"MsgBox pa kreisi (StrEx, Len (StrEx) - 1) 'Rezultāts: "ABCDE"MsgBox pa kreisi (StrEx, Len (StrEx) - 2) 'Rezultāts: "ABCD"Beigu apakš |
VBA pa kreisi, lai iegūtu vārdu
Lai izvilktu vārdu no virknes ar pilnu nosaukumu, izmantojiet funkciju Kreisais kopā ar funkciju Instr.
Funkcija VBA Instr virknē meklē apakšvirkni un atgriež apakšvirknes pozīcijas numuru.
1 | InStr (StrEx, "") |
Apvienojot funkcijas, mēs varam izvilkt pirmo vārdu no frāzes:
12345678910111213141516171819 | Apakšējais kreisaisPiemērs_5 ()Dim StrEx kā virkne 'Definējiet virknes mainīgoStrEx = "Aleksandrs Greiems Bells"MsgBox pa kreisi (StrEx, InStr (StrEx, ""))Rezultāts: "Aleksandrs" (atzīmējiet atstarpi beigās)MsgBox pa kreisi (StrEx, InStr (StrEx, "") - 1)Rezultāts: "Aleksandrs" (beigās nav atstarpes)StrEx = "Leonardo da Vinči"MsgBox InStr (StrEx, "")'Rezultāts: 9, jo vieta ir atrasta 9. pozīcijāMsgBox pa kreisi (StrEx, InStr (StrEx, "") - 1)Rezultāts: "Leonardo"Beigu apakš |