Acest tutorial va arăta cum să utilizați funcția VBA stânga.
Funcția din stânga
Funcția VBA Stânga returnează primele n caractere dintr-un șir.
Funcția VBA Stânga n Primele caractere
Funcția VBA Stânga returnează primele n caractere dintr-un șir:
123456 | Sub StângaExemplu_1 ()MsgBox Left („ABCDEFGHI”, 4) „Rezultatul este:„ ABCD ”MsgBox Left („ABCDEFGHI”, 2) „Rezultatul este:„ AB ”MsgBox Left („ABCDEFGHI”, 1) 'Rezultatul este: „A”MsgBox Left („ABCDEFGHI”, 100) „Rezultatul este:„ ABCDEFGHI ”Sfârșitul Sub |
Funcția VBA stânga n Primele 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 STÂNGA va funcționa și cu variabile șir. Aceste exemple vor extrage primele n caractere dintr-o variabilă șir.
1234567891011 | Sub StângaExemplu_2 ()Dim StrEx As String 'Definiți o variabilă de șirStrEx = "ABCDEFGHI"MsgBox Left (StrEx, 4) 'Rezultatul este: "ABCD"MsgBox Left (StrEx, 2) 'Rezultatul este: "AB"MsgBox Left (StrEx, 1) 'Rezultatul este: "A"MsgBox Left (StrEx, 100) 'Rezultatul este: "ABCDEFGHI"Sfârșitul Sub |
Funcția VBA stânga n Primele 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 n primele caractere din acea valoare Foaie de lucru.
12345678910111213 | Sub StângaExemplu_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„ A bCDEFGHI ”MsgBox Left (StrEx, 4) 'Rezultatul este: "ABCD"MsgBox Left (StrEx, 2) 'Rezultatul este: "AB"MsgBox Left (StrEx, 1) 'Rezultatul este: "A"MsgBox Left (StrEx, 100) 'Rezultatul este: "ABCDEFGHI"Sfârșitul Sub |
Funcția stânga VBA Decupați ultima scrisoare
Pentru a elimina literele de la capătul unui șir, utilizați funcția STÂNGA î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 sfârșitul șirului:
123456789 | Sub StângaExemplu_4 ()Dim StrEx As String 'Definiți o variabilă de șirStrEx = "ABCDEF"MsgBox Left (StrEx, Len (StrEx)) 'Rezultatul este: "ABCDEF"MsgBox Left (StrEx, Len (StrEx) - 1) 'Rezultatul este: "ABCDE"MsgBox Left (StrEx, Len (StrEx) - 2) 'Rezultatul este: "ABCD"Sfârșitul Sub |
VBA a rămas pentru a extrage prenumele
Pentru a extrage prenumele dintr-un șir cu un nume complet, utilizați funcția din stânga împreună cu funcția Instr.
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 primul cuvânt dintr-o frază:
12345678910111213141516171819 | Sub StângaExemplu_5 ()Dim StrEx As String 'Definiți o variabilă de șirStrEx = "Alexander Graham Bell"MsgBox Left (StrEx, InStr (StrEx, ""))„Rezultatul este:„ Alexandru ”(observați spațiul la sfârșit)MsgBox Left (StrEx, InStr (StrEx, "") - 1)„Rezultatul este:„ Alexandru ”(FĂRĂ spațiu la final)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")'Rezultatul este: 9 deoarece spațiul se găsește în poziția 9MsgBox Left (StrEx, InStr (StrEx, "") - 1)„Rezultatul este:„ Leonardo ”Sfârșitul Sub |