У овом чланку ћемо створити макро за вертикално разграничење текста у ћелији у колону. Можемо разграничити текст у ћелији на основу граничника. Раздвајач може бити или зарез, размак, коса црта итд.
Да бисмо објаснили рад макроа, узели смо УРЛ као огледни текст у ћелији А10. Макро се може извршити кликом на дугме „Пошаљи“.
Након извршавања макроа, он ће вратити излаз у следећој колони. Вредност текста у ћелији је одвојена на више подзнакова у више ћелија у другој колони.
Логичко објашњење
Направили смо макро „текстуалне колоне“ који извршава два задатка. Прво, он ограничава низ у А10 на више поднизова, на основу граничника. У овом примеру користили смо цртицу (-) као граничник. Друго, прелази генерисане поднизове из више колона у једну колону.
Објашњење кода
Рнг.текттоцолумнс Одредиште: = Рнг.Оффсет (0, 1), ДатаТипе: = клДелимитед, _
ТектКуалифиер: = клДоублеКуоте, ЦонсецутивеДелимитер: = Труе, Отхер: = Труе, ОтхерЦхар _
:="-"
Горњи код се користи за ограничавање низа у опсегу „Рнг“. Одредиште одређује распон локација на којима ће се појавити излаз. ДатаТипе одређује врсту разграничења које се користи. ТектКуалифиер одређује знак који се користи за текстуални квалификатор. ОтхерЦхар наводи карактер који се користи као граничник.
Молимо следите доле за код
Суб текттоцолумнс () 'Декларисање променљивих Дим СтартРов, и, ЛастЦол Ас Лонг Дим Рнг Ас Ранге' онемогућавање приказа упозорења Апплицатион.ДисплаиАлертс = Фалсе 'Иницијализација променљиве СтартРов = 10 Сет Рнг = Ранге ("А10")' Подела текста на основу на граничнику Рнг.текттоцолумнс Одредиште: = Рнг.Оффсет (0, 1), ДатаТипе: = клДелимитед, _ ТектКуалифиер: = клДоублеКуоте, ЦонсецутивеДелимитер: = Труе, Отхер: = Труе, ОтхерЦхар _: = "-" 'Проналажење колоне број ћелије која садржи последњи низ након разграничења ЛастЦол = Рнг.Енд (клТоРигхт). Колона 'распоређивање текста у колонама у редове За и = 2 У ћелије ЛастЦол (10, и). Изрезивање ћелија (СтартРов, 2) СтартРов = СтартРов + 1 Следеће и Енд Суб
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште