Већ смо прешли увод у функције низа у нашем ВБА водичу о стринговима и поднизовима. Сада ћемо погледати како спојити текстуалне низове.
Спојите жице
Можете да користите оператор & у ВБА да бисте се придружили текстуалним низовима.
| 1 | МсгБок "Споји" и "Текст" |
Спојите ћелије
Такође можете спојити ћелије заједно. Испод имамо низове текста у А1 и Б1:
Следећи код приказује како да придружите текстуалне низове из ћелије А1 и Б1 помоћу оператора & у ћелији Ц1:
| 1 | Опсег ("Ц1"). Вредност = Опсег ("А1"). Вредност и опсег ("Б1") вредност |
Резултат је:
Повежите променљиве
Ово је потпуна процедура за спајање две ћелије заједно помоћу стринг променљивих.
| 1234567891011 | Суб ЦонцатенатеСтрингс ()Дим СтрингОне као СтрингДим СтрингТво као СтрингСтрингОне = Опсег ("А1"). ВредностСтрингТво = Опсег ("Б1"). ВредностОпсег ("Ц1"). Вредност = СтрингОне & СтрингТвоЕнд Суб |
Коришћење & Оператора са Спацес
Када желите да укључите размаке које користите & заједно са „“. Следећи код вам показује како бисте укључили размаке:
| 123456789101112 | Суб ЦонцатенатингСтрингсВитхСпацес ()Дим СтрингОне Ас СтрингДим СтрингТво Ас СтрингДим СтрингТхрее Ас СтрингСтрингОне = "Ово је"СтрингТво = "текст"СтрингТхрее = СтрингОне & "" & СтрингТвоМсгБок СтрингТхрееЕнд Суб |
МессагеБок резултат је:
Коришћење & Оператора за повезивање наводника
Рецимо да ваш текстуални низ садржи наводнике, следећи код вам показује како да у текстуални низ уврстите наводник:
| 12345678910111213 | Суб ЦонцатенатингАКуотатионМарк ()Дим СтрингОне Ас СтрингДим СтрингТво Ас СтрингДим СтрингТхрее Ас СтрингСтрингОне = "Ово је наводник"СтрингТво = "" ""СтрингТхрее = СтрингОне & "" & СтрингТвоМсгБок СтрингТхрееЕнд Суб |
Резултат је:
Стављање стрингова у нову линију
Рецимо да имате пет текстуалних низова, сваки текстуални низ можете ставити у нови ред или пасус, користећи функцију вбНевЛине, вбЦрЛф, вбЦр или Цхр. Следећи код вам показује како сваки текстуални низ ставити у нови ред:
| 123456789101112131415161718 | Суб ПуттингЕацхТектСтрингОнАНевЛине ()Дим СтрингОне Ас СтрингДим СтрингТво Ас СтрингДим СтрингТхрее Ас СтрингДим СтрингФоур Ас СтрингДим СтрингФиве Ас СтрингСтрингОне = "Ово је први низ"СтрингТво = "Ово је други низ"СтрингТхрее = "Ово је трећи низ"СтрингФоур = "Ово је четврти низ"СтрингФиве = "Ово је пети низ"МсгБок СтрингОне & вбНовина линија & СтрингТво & вбЦрЛф & СтрингТхрее & вбЦр & СтрингФоур & Цхр (13) & СтрингФивеЕнд Суб |
Резултат је:
