Am parcurs deja o introducere a funcțiilor de șir în tutorialul nostru VBA Strings and Substrings Functions. Vom analiza acum cum să concatenăm șiruri de text.
Concatenează șiruri
Puteți utiliza operatorul & din VBA pentru a uni șiruri de text.
| 1 | MsgBox „Merge” & „Text” |
Concatenează celulele
De asemenea, puteți concatena celule împreună. Mai jos, avem șirurile de text în A1 și B1:
Următorul cod vă arată cum să uniți șiruri de text din celula A1 și B1 folosind operatorul &, în celula C1:
| 1 | Range ("C1"). Value = Range ("A1"). Value & Range ("B1"). Valoare |
Rezultatul este:
Concatenează variabile
Aceasta este procedura completă pentru concatenarea a două celule împreună folosind variabile șir.
| 1234567891011 | Sub ConcatenateStrings ()Dim StringOne ca ȘirDim String Două ca StringStringOne = Range ("A1"). ValoareStringTwo = Range ("B1"). ValoareGama („C1”). Valoare = StringOne & StringTwoSfârșitul Sub |
Utilizarea & Operator cu spații
Când doriți să includeți spații, utilizați & împreună cu „“. Următorul cod vă arată cum ați include spații:
| 123456789101112 | Sub ConcatenatingStringsWithSpaces ()Dim StringOne As StringDim StringTwo As StringDim StringTree as StringStringOne = "Acesta este"StringTwo = "textul"StringThree = StringOne & "" & StringTwoMsgBox StringThreeSfârșitul Sub |
Rezultatul MessageBox este:
Utilizarea operatorului & pentru a concatena un ghilimel
Să presupunem că șirul dvs. de text conține un ghilimel, următorul cod vă arată cum să includeți un ghilimel într-un șir de text:
| 12345678910111213 | Sub ConcatenatingAQuotationMark ()Dim StringOne As StringDim StringTwo As StringDim StringTree as StringStringOne = "Acesta este ghilimele"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeSfârșitul Sub |
Rezultatul este:
Punerea șirurilor pe o linie nouă
Să presupunem că aveți cinci șiruri de text, puteți pune fiecare șir de text pe o nouă linie sau paragraf, utilizând funcția vbNewLine, vbCrLf, vbCr sau Chr. Următorul cod vă arată cum să puneți fiecare șir de text pe o nouă linie:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()Dim StringOne As StringDim StringTwo As StringDim StringTree as StringDim StringFour As StringDim StringFive As StringStringOne = "Acesta este primul șir"StringTwo = "Acesta este al doilea șir"StringThree = "Acesta este al treilea șir"StringFour = "Acesta este al patrulea șir"StringFive = "Acesta este al cincilea șir"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringThree & vbCr & StringFour & Chr (13) & StringFiveSfârșitul Sub |
Rezultatul este:
