У овом водичу ћемо погледати различите начине на које можете спојити ћелије помоћу ВБА.
Споји ћелије помоћу ВБА
Можете спојити ћелије у ВБА методом Ранге.Мерге. Следећи код ће спојити ћелије А1: Ц1:
12345 | Суб МергингЦеллс ()Опсег ("А1: Ц1"). СпајањеЕнд Суб |
Резултат је:
Одвојите ћелије помоћу ВБА
Спојени опсег ћелија можете уклонити помоћу методе Ранге.УнМерге. Рецимо да сте спојили опсег ћелија А1: Д1. Можете да користите једну од референци ћелија у опсегу да бисте уклонили ћелије. Следећи код показује како да уклоните ћелије А1: Д1, у овом случају користимо ћелију Б1:
12345 | Суб УнмергеЦеллс ()Опсег ("Б1"). Уклони спајањеЕнд Суб |
Још примера спајања
Споји редове користећи ВБА
Можете спојити редове користећи ВБА тако што ћете навести бројеве редова које желите да спојите. Имамо текст у ћелији А1 приказан испод:
Следећи код ће спојити редове 1-4:
12345 | Суб МергеРовс ()Опсег ("1: 4"). СпојиЕнд Суб |
Резултат је:
Споји колоне помоћу ВБА
Можете спојити колоне користећи ВБА и слова колона. Следећи код ће спојити колоне А: Ц.
12345 | Суб МергеЦолумнс ()Опсег ("А: Ц"). СпајањеЕнд Суб |
Резултат је:
Споји и центрирај садржај ћелије хоризонтално
Садржај ћелије можете спојити и центрирати хоризонтално у целом опсегу ћелија. Морате спојити ћелије које вас занимају и такође поставити својство хоризонталног поравнања објекта опсега у центар. Имамо текст у ћелији А1 као што је приказано испод:
Следећи код ће спојити опсег ћелија А1: Д1 и центрирати садржај ћелије А1 хоризонтално по целом опсегу ћелија:
123456 | Суб МергеандЦентерЦонтентсХоризонталли ()Опсег ("А1: Д1"). СпајањеОпсег ("А1: Д1"). ХоризонталАлигнмент = клЦентерЕнд Суб |
Резултат је:
Споји и центрирај садржај ћелије вертикално
Можете да спојите и центрирате садржај ћелије вертикално у целом опсегу ћелија. Морате спојити ћелије од интереса и такође поставити својство вертикалног поравнања објекта опсега у центар. Имамо текст у ћелији А1 као што је приказано испод:
Следећи код ће спојити опсег ћелија А1: А4 и центрирати садржај ћелије А1 вертикално по целом опсегу ћелија:
123456 | Суб МергеандЦентерЦонтентсВертицал ()Опсег („А1: А4“). СпојиОпсег ("А1: Д1"). ВертицалАлигнмент = клЦентерЕнд Суб |
Резултат је:
Споји ћелије у целом опсегу
Можете да обједините ћелије у целом опсегу ћелија. Морате поставити опционални параметар Ацросс методе Мерге на Труе. Имамо текст у ћелији А1 као што је приказано испод:
Следећи код ће спојити опсег ћелија А1: Д1:
12345 | Суб МергеЦеллсАцросс ()Опсег ("А1: Д1"). Спајање преко: = ТачноЕнд Суб |
Резултат је: