Mēs jau esam iepazinušies ar ievadu stīgu funkcijām mūsu VBA virkņu un apakšvirkņu funkciju apmācībā. Tagad mēs apskatīsim, kā savienot teksta virknes.
Apvienot virknes
Varat izmantot & operatoru VBA, lai savienotu teksta virknes.
| 1 | MsgBox "Apvienot" un "Teksts" |
Šūnu savienošana
Jūs varat arī savienot šūnas kopā. Tālāk mums ir teksta virknes A1 un B1:
Šis kods parāda, kā savienot teksta virknes no šūnas A1 un B1, izmantojot & operatoru šūnā C1:
| 1 | Diapazons ("C1"). Vērtība = diapazons ("A1"). Vērtība un diapazons ("B1"). Vērtība |
Rezultāts ir šāds:
Saistīt mainīgos
Šī ir pilna procedūra divu šūnu savienošanai kopā, izmantojot virkņu mainīgos.
| 1234567891011 | Sub ConcatenateStrings ()Dim StringOne kā virkneDim StringTwo kā virkneStringOne = Diapazons ("A1"). VērtībaStringTwo = Diapazons ("B1"). VērtībaDiapazons ("C1"). Vērtība = StringOne & StringTwoBeigu apakš |
& Operatora izmantošana ar atstarpēm
Ja vēlaties iekļaut atstarpes, ko lietojat kopā ar “”. Šis kods parāda, kā iekļaut atstarpes:
| 123456789101112 | Sub ConcatenatingStringsWithSpaces ()Dim StringOne kā virkneDim StringDwo As StringDim StringThree Kā StringStringOne = "Tas ir"StringTwo = "teksts"StringThree = StringOne & "" & StringTwoMsgBox StringThreeBeigu apakš |
MessageBox rezultāts ir šāds:
& Operatora izmantošana citāta savienošanai
Pieņemsim, ka jūsu teksta virknē ir pēdiņa, šāds kods parāda, kā teksta virknē iekļaut pēdiņu:
| 12345678910111213 | Sub ConcatenatingAQuotationMark ()Dim StringOne kā virkneDim StringDwo As StringDim StringThree Kā StringStringOne = "Šī ir pēdiņa"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeBeigu apakš |
Rezultāts ir šāds:
Stīgu ievietošana jaunā rindā
Pieņemsim, ka jums ir piecas teksta virknes, katru teksta virkni varat ievietot jaunā rindā vai rindkopā, izmantojot funkciju vbNewLine, vbCrLf, vbCr vai Chr. Šis kods parāda, kā katru teksta virkni ievietot jaunā rindā:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()Dim StringOne kā virkneDim StringDwo As StringDim StringThree Kā StringDim StringFour kā virkneDim StringPiecas kā virkneStringOne = "Šī ir pirmā virkne"StringTwo = "Šī ir otrā virkne"StringThree = "Šī ir trešā virkne"StringFour = "Šī ir ceturtā virkne"StringFive = "Šī ir piektā virkne"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringTree & vbCr & StringFour & Chr (13) & StringFiveBeigu apakš |
Rezultāts ir šāds:
