Acest tutorial va arăta cum să utilizați funcția VBA dreaptă pentru a extrage text din dreapta.
Funcția corectă
Funcția VBA dreapta Ultimele n caractere
Funcția VBA Right returnează ultimele n caractere dintr-un șir:
| 123456 | SubDrept Exemplu_1 ()MsgBox Right („ABCDEFGHI”, 4) „Rezultatul este:„ FGHI ”MsgBox Right („ABCDEFGHI”, 2) 'Rezultatul este: „HI”MsgBox Right („ABCDEFGHI”, 1) 'Rezultatul este: „I”MsgBox Right ("ABCDEFGHI", 100) 'Rezultatul este: "ABCDEFGHI"Sfârșitul Sub |
Funcția VBA dreapta Ultimele n caractere dintr-o variabilă
După cum se arată mai sus, puteți defini un șir pur și simplu introducând text înconjurat de ghilimele. Dar funcția DREAPTA va funcționa și cu variabile șir. Aceste exemple vor extrage ultimele n caractere dintr-o variabilă șir.
| 123456789 | SubDrept Exemplu_2 ()Dim StrEx As String 'Definiți o variabilă de șirStrEx = "ABCDEFGHI"MsgBox Right (StrEx, 4) 'Rezultatul este: "FGHI"MsgBox Right (StrEx, 2) 'Rezultatul este: "HI"MsgBox Right (StrEx, 1) 'Rezultatul este: „Eu”MsgBox Right (StrEx, 100) 'Rezultatul este: "ABCDEFGHI"Sfârșitul Sub |
Programare VBA | Generatorul de coduri funcționează pentru dvs.!
Funcția VBA dreapta Ultimele n caractere dintr-o celulă
Șirurile pot fi definite în codul VBA, dar puteți utiliza și valorile din celule. Citiți valoarea unei celule, păstrați-o într-o variabilă șir și extrageți ultimele n caractere din acea valoare de celulă a foii de lucru.
| 123456789101112 | SubDrept Exemplu_3 ()Dim StrEx As String 'Definiți o variabilă de șir„Citiți valoarea celulei A1 din foaia de lucru Sheet1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Value„Pentru acest exemplu, valoarea celulei A1 este„ ABCDEFG hI ”MsgBox Right (StrEx, 4) 'Rezultatul este: "G hI"MsgBox Right (StrEx, 2) 'Rezultatul este: "hI"MsgBox Right (StrEx, 1) 'Rezultatul este: „Eu”MsgBox Right (StrEx, 100) 'Rezultatul este: "ABCDEFG hI"Sfârșitul Sub |
Funcția VBA dreaptă Decupați prima literă
Pentru a elimina literele de la începutul unui șir, utilizați funcția DREAPTA împreună cu funcția LEN.
Funcția VBA LEN numără numărul de caractere dintr-un șir:
| 1 | Len (StrEx) |
Combinând funcțiile, putem elimina un anumit număr de caractere de la începutul șirului:
| 12345678 | SubDrept Exemplu_4 ()Dim StrEx As String 'Definiți o variabilă de șirStrEx = "ABCDEF"MsgBox Right (StrEx, Len (StrEx)) 'Rezultatul este: "ABCDEF"MsgBox Right (StrEx, Len (StrEx) - 1) 'Rezultatul este: "BCDEF"MsgBox Right (StrEx, Len (StrEx) - 2) 'Rezultatul este: "CDEF"Sfârșitul Sub |
VBA Dreptul de a extrage text după spațiu
Pentru a extrage numele de familie dintr-un șir cu un nume complet, utilizați funcția dreaptă împreună cu funcția Len și Instr.
Funcția VBA LEN numără numărul de caractere dintr-un șir:
| 1 | Len (StrEx) |
Funcția VBA InStr caută un subșir în interiorul unui șir și returnează numărul poziției subșirului.
| 1 | InStr (StrEx, "") |
Combinând funcțiile, putem extrage partea după primul spațiu dintr-o frază:
| 123456789101112131415 | SubDrept Exemplu_5 ()Dim StrEx As String 'Definiți o variabilă de șirStrEx = "Luke Skywalker"MsgBox Right (StrEx, Len (StrEx) - InStr (StrEx, ""))„Rezultatul este:„ Skywalker ”StrEx = "Leonardo da Vinci"MsgBox Right (StrEx, Len (StrEx) - InStr (StrEx, ""))'Rezultatul este: "da Vinci"StrEx = "Forța să fie cu tine"MsgBox Right (StrEx, Len (StrEx) - InStr (StrEx, ""))„Rezultatul este:„ Forța să fie cu tine ”Sfârșitul Sub |
V-ați săturat să căutați exemple de cod VBA? Încercați AutoMacro!
VBA Dreptul de a extrage ultimul cuvânt
Pentru a extrage ultimul cuvânt dintr-un șir cu o frază, utilizați funcția dreaptă împreună cu funcția Len și InstrRev.
După cum am văzut mai sus, funcția VBA LEN contează numărul de caractere dintr-un șir:
| 1 | Len (StrEx) |
Funcția VBA InStrRev caută un subșir în interiorul unui șir și returnează numărul poziției subșirului. Începe căutarea de la sfârșitul frazei (de la dreapta la stânga), dar returnează poziția de la începutul șirului (de la stânga la dreapta).
| 1 | InStrRev (StrEx, "") |
Combinând funcțiile, putem extrage partea după ultimul spațiu dintr-o frază:
| 123456789101112131415 | SubDrept Exemplu_6 ()Dim StrEx As String 'Definiți o variabilă de șirStrEx = "Luke Skywalker"MsgBox Right (StrEx, Len (StrEx) - InStrRev (StrEx, ""))„Rezultatul este:„ Skywalker ”StrEx = "Leonardo da Vinci"MsgBox Right (StrEx, Len (StrEx) - InStrRev (StrEx, ""))'Rezultatul este: "da Vinci"StrEx = "Forța să fie cu tine"MsgBox Right (StrEx, Len (StrEx) - InStrRev (StrEx, ""))„Rezultatul este:„ tu ”Sfârșitul Sub |
