Već smo prešli uvod u funkcije niza u našem VBA vodiču za nizove i podzvučne funkcije. Sada ćemo pogledati kako spojiti tekstualne nizove.
Spojite žice
Za spajanje tekstualnih nizova možete koristiti operator & u VBA -i.
| 1 | MsgBox "Spoji" i "Tekst" |
Spojite stanice
Također možete spojiti ćelije zajedno. U nastavku imamo nizove teksta u A1 i B1:
Sljedeći kôd prikazuje kako spojiti tekstualne nizove iz ćelija A1 i B1 pomoću operatora & u ćeliji C1:
| 1 | Raspon ("C1"). Vrijednost = Raspon ("A1"). Vrijednost i raspon ("B1"). Vrijednost |
Rezultat je:
Spojite varijable
Ovo je potpuni postupak za spajanje dvije ćelije zajedno pomoću varijabli niza.
| 1234567891011 | Sub ConcatenateStrings ()Dim StringOne kao StringDim StringDva kao StringStringOne = Raspon ("A1"). VrijednostStringTwo = Raspon ("B1"). VrijednostRaspon ("C1"). Vrijednost = StringOne & StringTwoKraj podm |
Korištenje & Operatora s Spaces
Kada želite uključiti razmake koje koristite & zajedno s "". Sljedeći kôd pokazuje kako biste uključili razmake:
| 123456789101112 | Sub ConcatenatingStringsWithSpaces ()Dim StringOne As StringDim StringDva kao nizDim StringThree As StringStringOne = "Ovo je"StringTwo = "tekst"StringThree = StringOne & "" & StringTwoMsgBox StringThreeKraj podm |
MessageBox rezultat je:
Korištenje & Operatora za povezivanje navodnika
Recimo da vaš tekstualni niz sadrži navodnike, a sljedeći kôd pokazuje kako uključiti navodnik u tekstualni niz:
| 12345678910111213 | Sub ConcatenatingAQuotationMark ()Dim StringOne As StringDim StringDva kao nizDim StringThree As StringStringOne = "Ovo je navodnik"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeKraj podm |
Rezultat je:
Stavljanje nizova u novi redak
Recimo da imate pet tekstualnih nizova, svaki tekstualni niz možete staviti u novi redak ili odlomak, koristeći funkciju vbNewLine, vbCrLf, vbCr ili Chr. Sljedeći kôd pokazuje kako staviti svaki tekstualni niz u novi redak:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()Dim StringOne As StringDim StringDva kao nizDim StringThree As StringDim String Četvero kao nizDim StringFive As StringStringOne = "Ovo je prvi niz"StringTwo = "Ovo je drugi niz"StringThree = "Ovo je treći niz"StringFour = "Ovo je četvrti niz"StringFive = "Ovo je peti niz"MsgBox StringOne & vbNovi redak i nizoviDva & vbCrLf & StringTri & vbCr & StringFour & Chr (13) & StringFiveKraj podm |
Rezultat je:
