photosdematures.com

Обично у Екцеловом радном листу имамо две различите методе за додавање или уметање колона, једна је пречица на тастатури, а друга коришћењем методе десним кликом и уметањем, али у ВБА морамо да користимо команду инсерт и целу изјаву колоне да бисмо додали било коју колону заједно трик у томе је да ако треба да убацимо једну колону дајемо референцу за једну колону, али за више колона дајемо више референци за колоне.

Уметните колоне у Екцел помоћу ВБА

Као део ВБА кода, можда ћемо морати да убацимо неколико ступаца у наш технички лист како би одговарао нашим потребама. Уметање колоне је једноставна пречица у радни лист притиском на Цтрл + али како би било да уметнете нову колону кроз ВБА код. У овом чланку о „ВБА Инсерт Цолумн“ приказаћемо вам поступак додавања колона у Екцелу и приказаће вам различите примере сценарија.

Како убацити колоне у Екцел радни лист помоћу ВБА?

У ВБА можемо уметнути колоне помоћу својства ЦОЛУМНС и објекта РАНГЕ. Морате зашто нам требају колоне и објекти опсега да бисмо уметнули нову колону.

Да бисмо убацили нову колону, морамо да идентификујемо након које колоне морамо да убацимо, а да не кажемо после које колоне треба да убацимо како ВБА може да разуме логику.

На пример, ако желите да уметнете колону иза колоне Б, можете да конструишете код овако.

Колоне („Ц“)

Напомена: Разлог зашто сам употребио Ц за уметање колоне након што ће изабрана ћелија бити померена на десну страну.

Након што се наведу колоне, морамо приступити својству „Цела колона“.

Колоне („Ц“). Цела колона

Тада треба да изаберемо методу „Убаци“.

Колоне („Ц“). ЕнтиреЦолумн.Инсерт

Ово ће уметнути колону иза колоне Ц, а постојећа колона Ц ће бити премештена у Д.

Пример # 1 - Уметните колоне помоћу објекта Ранге у ВБА

Сада погледајте начин уметања колоне помоћу објекта РАНГЕ. За ово узмите као пример податке у наставку.

Сада желим да ВБА уметне колону иза колоне А, следите кораке у наставку за конструкцију кода.

Корак 1: Почните са потпроцедуром.

Корак 2: Отвори Домет објект.

Шифра:

 ПодколонаИнсерт_Пример1 () Опсег (Крај под 

Корак 3: Сад помену колону у двоструким наводницима.

Шифра:

 Суб ЦолумнИнсерт_Екампле1 () Опсег ("Б: Б") Крај Суб 

Корак 4: Сад бирај Читава колона својство.

Шифра:

 Суб ЦолумнИнсерт_Екампле1 () Распон ("Б: Б"). Ент Крај Суб 

Корак 5: Након одабира својства Цела колона, изаберите „Уметни“ метода.

Шифра:

 ПодколонаИнсерт_Екампле1 () опсег ("Б: Б"). ЕнтиреЦолумн.инс Енд Суб 

Сада ваш код изгледа овако.

Шифра:

 ПодколонаИнсерт_Екампле1 () опсег ("Б: Б"). ЕнтиреЦолумн.Инсерт Енд Суб 

Покрените код који ће уметнути нову колону Б.

Пример # 2 - Уметните више колона

На пример, ако желите да уметнете две нове колоне после колоне А, онда морамо да наведемо две адресе колона.

Шифра:

 ПодколонаИнсерт_Екампле1 () опсег ("Б: Ц"). ЕнтиреЦолумн.Инсерт Енд Суб 

Горњи код ће уметнути две колоне иза колоне А.

Пример # 3 - Само методом „Убаци“

Можемо да уметнемо нову колону користећи једини начин „Убаци“ без приступа својству Ентире Цолумн. Да бисмо ово разумели, схватимо синтаксу методе „инсерт“.

Екпрессион.Инсерт ([Схифт], [Цопи Оригин])

[Смена]: Када убацимо нову колону да ли треба да се колоне померу на десну страну или да се помере на доњу страну у случају редова. Овде можемо користити две опције „клТоРигхт“ и „клДовнТо“

[Копирај порекло]: Ово ће одредити формат за ново уметнуту колону. Да ли вам је потребан формат са леве стране колоне или из горњих ћелија. Овде можемо користити две опције „клФорматФромЛефтОрАбове“ и „клФорматФромРигхтОрБелов“.

Испод је пример кода за вас.

 ПодколонаИнсерт_Екампле1 () опсег ("Б: Б"). Уметните Схифт: = клТоРигхт, Цопиоригин: = клФорматФромЛефтОрАбове Енд Суб 

Пример # 4 - Уметните колоне помоћу својства ЦОЛУМНС у ВБА

Видели смо како се ВБА убацује колоне помоћу објекта РАНГЕ, а сада ћемо показати да можемо уметнути колоне помоћу својства „ЦОЛУМНС“.

Отворите својство ЦОЛУМНС.

Шифра:

 Суб ЦолумнИнсерт_Екампле2 () Колоне (Крај Суб 

Овде колону можемо одредити на два начина. Једна користи уобичајене абецедне референце, а друга бројеве ступаца.

Ако желите да уметнете колону иза колоне А, тада ће код бити СТОЛПЦИ („Б“). Ако користите нумеричку референцу, тада ће код бити СТОЛПЦИ (2).

Шифра:

 ПодколонаИнсерт_Екампле2 () Колоне ("Б"). Енд Суб 

Сада се појављује проблем за вас, јер када користимо својство ЦОЛУМНС, не приступамо листи ИнтеллиСенсе.

Шифра:

 ПотколонаИнсерт_Екампле2 () Колоне ("Б"). Унеси крај под 

Овде морамо бити сигурни у оно што радимо. Дакле, ово је разлог што сам вам прво показао РАНГЕ објекат.

Шифра:

 Суб ЦолумнИнсерт_Екампле2 () Колоне ("Б: Б"). ЕнтиреЦолумн.Инсерт Енд Суб 

Пример # 5 - Уметните алтернативне колоне

Претпоставимо да имате податке попут доње слике.

Ако желите да уметнете нове колоне након сваког алтернативног реда, онда треба да користимо ВБА петље. Испод кода је прилагођени код за вас.

Шифра:

 Суб ЦолумнИнсерт_Екампле3 () Дим к Ас Интегер Цолумнс (2) .Селецт фор к = 2 То 8 АцтивеЦелл.ЕнтиреЦолумн.Инсерт АцтивеЦелл.Оффсет (0, 2). Селецт Нект к Енд Суб 

Ово ће уметнути овакву колону.

Пример # 6 - Уметните колону на основу вредности ћелије

Такође можемо уметнути колону и на основу вредности ћелије. На пример, погледајте податке у наставку.

Овде желим да убацим колону ако је вредност ћелије првог реда „Година“ и моји подаци би ово требало да воле након уметања нових колона.

За извршавање овог задатка користите доњи код.

Шифра:

 Суб ЦолумнИнсерт_Екампле4 () Дим к Ас Интегер Дим к Ас Интегер к = 2 Фор к = 2 То 12 Иф Целлс (1, к) .Валуе = "Иеар" тхен Целлс (1, к) .ЕнтиреЦолумн.Инсерт к = к + 1 Крај Ако је к = к + 1 Следећи к Крај Суб 

Овде можете преузети овај ВБА Инсерт Цолумнс Екцел. ВБА уметање колона у Екцел шаблон