Вече преминахме въведение в низовите функции в нашия урок за VBA низове и поднизови функции. Сега ще разгледаме как да свържем текстови низове.
Свържете струните
Можете да използвате оператора & във VBA, за да се присъедините към текстови низове.
| 1 | MsgBox "Обединяване" & "Текст" |
Свържете клетките
Можете също така да комбинирате клетки заедно. По -долу имаме текстови низове в A1 и B1:
Следният код ви показва как да присъедините текстови низове от клетка A1 и B1 с помощта на оператора & в клетка C1:
| 1 | Диапазон ("C1"). Стойност = Обхват ("A1"). Стойност и диапазон ("B1") стойност |
Резултатът е:
Свържете променливите
Това е пълната процедура за обединяване на две клетки заедно с помощта на променливи от низ.
| 1234567891011 | Sub ConcatenateStrings ()Dim StringOne като StringDim StringTwo като StringStringOne = Диапазон ("A1"). СтойностStringTwo = Диапазон ("B1"). СтойностДиапазон ("C1"). Стойност = StringOne & StringTwoEnd Sub |
Използване на & Оператора с Spaces
Когато искате да включите интервали, които използвате & заедно с „“. Следният код ви показва как бихте включили интервали:
| 123456789101112 | Sub ConcatenatingStringsWithSpaces ()Dim StringOne As StringDim StringTwo As StringDim String Три като низStringOne = "Това е"StringTwo = "текстът"StringThree = StringOne & "" & StringTwoMsgBox StringThreeEnd Sub |
Резултатът от MessageBox е:
Използване на оператора & за свързване на кавичка
Да предположим, че вашият текстов низ съдържа кавички, следният код ви показва как да включите кавички в текстов низ:
| 12345678910111213 | Sub ConcatenatingAQuotationMark ()Dim StringOne As StringDim StringTwo As StringDim String Три като низStringOne = "Това е кавичка"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeEnd Sub |
Резултатът е:
Поставяне на низове на нов ред
Да предположим, че имате пет текстови низа, можете да поставите всеки текстов низ на нов ред или параграф, като използвате функцията vbNewLine, vbCrLf, vbCr или Chr. Следният код ви показва как да поставите всеки текстов низ на нов ред:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()Dim StringOne As StringDim StringTwo As StringDim String Три като низDim String Четири като низаDim StringFive As StringStringOne = "Това е първият низ"StringTwo = "Това е вторият низ"StringThree = "Това е третият низ"StringFour = "Това е четвъртият низ"StringFive = "Това е петият низ"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringTree & vbCr & StringFour & Chr (13) & StringFiveEnd Sub |
Резултатът е:
