Šī apmācība parādīs, kā izmantot pareizo VBA funkciju, lai izvilktu tekstu no labās puses.
Labā funkcija
VBA Labā funkcija Pēdējās n rakstzīmes
Funkcija VBA Right atgriež pēdējās n rakstzīmes no virknes:
| 123456 | Apakšpa labiPiemērs_1 ()MsgBox Right ("ABCDEFGHI", 4). Rezultāts: "FGHI"MsgBox Right ("ABCDEFGHI", 2). Rezultāts: "HI"MsgBox Right ("ABCDEFGHI", 1). Rezultāts: "Es"MsgBox Right ("ABCDEFGHI", 100). Rezultāts: "ABCDEFGHI"Beigu apakš |
VBA labā funkcija Pēdējās n 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 RIGHT darbosies arī ar virkņu mainīgajiem. Šie piemēri no virknes mainīgā iegūs pēdējās n rakstzīmes.
| 123456789 | Apakšpa labiPiemērs_2 ()Dim StrEx kā virkne 'Definējiet virknes mainīgoStrEx = "ABCDEFGHI"MsgBox Right (StrEx, 4) Rezultāts: "FGHI"MsgBox Right (StrEx, 2) Rezultāts: "HI"MsgBox Right (StrEx, 1) Rezultāts: "Es"MsgBox Right (StrEx, 100) Rezultāts: "ABCDEFGHI"Beigu apakš |
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
VBA labā funkcija Pēdējās n rakstzīmes no šūnas
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 iegūstiet pēdējās n rakstzīmes no šīs darblapas šūnas vērtības.
| 123456789101112 | Apakšpa labiPiemē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 "ABCDEFG hI"MsgBox Right (StrEx, 4). Rezultāts: "G hI"MsgBox Right (StrEx, 2) 'Rezultāts: "hI"MsgBox Right (StrEx, 1) Rezultāts: "Es"MsgBox Right (StrEx, 100) Rezultāts: "ABCDEFG hI"Beigu apakš |
VBA labās funkcijas apgriešana no pirmā burta
Lai noņemtu burtus no virknes sākuma, izmantojiet funkciju RIGHT 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 sākuma:
| 12345678 | Apakšpa labiPiemērs_4 ()Dim StrEx kā virkne 'Definējiet virknes mainīgoStrEx = "ABCDEF"MsgBox Right (StrEx, Len (StrEx)) 'Rezultāts: "ABCDEF"MsgBox pa labi (StrEx, Len (StrEx) - 1) 'Rezultāts: "BCDEF"MsgBox Right (StrEx, Len (StrEx) - 2) Rezultāts: "CDEF"Beigu apakš |
VBA Tiesības iegūt tekstu pēc atstarpes
Lai izvilktu uzvārdu no virknes ar pilnu nosaukumu, izmantojiet labo funkciju kopā ar funkciju Len un Instr.
Funkcija VBA LEN saskaita rakstzīmju skaitu virknē:
| 1 | Len (StrEx) |
Funkcija VBA InStr virknē meklē apakšvirkni un atgriež apakšvirknes pozīcijas numuru.
| 1 | InStr (StrEx, "") |
Apvienojot funkcijas, mēs no frāzes varam iegūt daļu pēc pirmās atstarpes:
| 123456789101112131415 | Apakšpa labiPiemērs_5 ()Dim StrEx kā virkne 'Definējiet virknes mainīgoStrEx = "Lūks Skywalker"MsgBox pa labi (StrEx, Len (StrEx) - InStr (StrEx, ""))Rezultāts: "Skywalker"StrEx = "Leonardo da Vinči"MsgBox pa labi (StrEx, Len (StrEx) - InStr (StrEx, ""))Rezultāts: "da Vinči"StrEx = "Lai spēks ir ar jums"MsgBox pa labi (StrEx, Len (StrEx) - InStr (StrEx, ""))Rezultāts: "Spēks ir ar jums"Beigu apakš |
Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!
VBA tiesības izvilkt pēdējo vārdu
Lai izvilktu pēdējo vārdu no virknes ar frāzi, izmantojiet labo funkciju kopā ar funkciju Len un InstrRev.
Kā redzējām iepriekš, funkcija VBA LEN saskaita rakstzīmju skaitu virknē:
| 1 | Len (StrEx) |
Funkcija VBA InStrRev virknē meklē apakšvirkni un atgriež apakšvirknes pozīcijas numuru. Tas sāk meklēšanu no frāzes beigām (no labās uz kreiso), bet atgriež pozīciju no virknes sākuma (no kreisās uz labo).
| 1 | InStrRev (StrEx, "") |
Apvienojot funkcijas, mēs no frāzes varam iegūt daļu pēc pēdējās atstarpes:
| 123456789101112131415 | Apakšpa labiPiemērs_6 ()Dim StrEx kā virkne 'Definējiet virknes mainīgoStrEx = "Lūks Skywalker"MsgBox pa labi (StrEx, Len (StrEx) - InStrRev (StrEx, ""))Rezultāts: "Skywalker"StrEx = "Leonardo da Vinči"MsgBox pa labi (StrEx, Len (StrEx) - InStrRev (StrEx, ""))Rezultāts: "da Vinči"StrEx = "Lai spēks ir ar jums"MsgBox pa labi (StrEx, Len (StrEx) - InStrRev (StrEx, ""))Rezultāts: "tu"Beigu apakš |
