Обично у Екцеловом радном листу имамо две различите методе за додавање или уметање колона, једна је пречица на тастатури, а друга коришћењем методе десним кликом и уметањем, али у ВБА морамо да користимо команду инсерт и целу изјаву колоне да бисмо додали било коју колону заједно, трик у томе је да ако треба да убацимо једну колону дајемо референцу за једну колону, али за више колона дајемо више референци за колоне.
Уметните колоне у Екцел помоћу ВБА
Као део ВБА кода, можда ћемо морати да убацимо неколико ступаца у наш технички лист како би одговарао нашим потребама. Уметање колоне је једноставна пречица на радном листу притиском на Цтрл +, али како би било да уметнете нову колону кроз ВБА код. У овом чланку о „ВБА Инсерт Цолумн“ приказаћемо вам поступак додавања колона у Екцелу и приказаће вам различите примере сценарија.
Како убацити колоне у Екцел радни лист помоћу ВБА?
У ВБА можемо уметнути колоне помоћу својства ЦОЛУМНС и РАНГЕ објекта. Морате зашто нам требају колоне и објекти опсега да бисмо уметнули нову колону.
Да бисмо убацили нову колону, морамо да идентификујемо након које колоне морамо да убацимо, без навођења, након које колоне треба да убацимо како ВБА може да разуме логику.
На пример, ако желите да уметнете колону иза колоне Б, тада можете конструисати код овако.
Колоне („Ц“)
Напомена: Разлог зашто сам употребио Ц за уметање колоне након што ће изабрана ћелија бити померена на десну страну.
Након што се наведу колоне, треба да приступимо својству „Цела колона“.
Колоне („Ц“). Цела колона
Тада треба да изаберемо методу „Убаци“.
Колоне („Ц“). ЕнтиреЦолумн.Инсерт
Ово ће уметнути колону иза колоне Ц, а постојећа колона Ц ће бити премештена у Д.
Пример # 1 - Уметните колоне помоћу објекта Ранге у ВБА
Сада погледајте начин уметања колоне помоћу објекта РАНГЕ. За ово, узмите у обзир податке у наставку за пример.
Сада желим да ВБА уметне колону иза колоне А, следите кораке у наставку за конструкцију кода.
Корак 1: Почните са потпроцедуром.
Корак 2: Отворите опсег објекта.
Шифра:
ПодколонаИнсерт_Пример1 () Опсег (Крај под
Корак 3: Сад спомените колону под двоструким наводницима .
Шифра:
Суб ЦолумнИнсерт_Екампле1 () Опсег ("Б: Б") Крај Суб
Корак 4: Сада одаберите својство Цела колона .
Шифра:
Суб ЦолумнИнсерт_Екампле1 () Распон ("Б: Б"). Ент Крај Суб
Корак 5: Након избора својства Ентире Цолумн, изаберите методу „Инсерт“ .
Шифра:
ПодколонаИнсерт_Екампле1 () опсег ("Б: Б"). ЕнтиреЦолумн.инс Енд Суб
Сада ваш код изгледа овако.
Шифра:
ПодколонаИнсерт_Екампле1 () опсег ("Б: Б"). ЕнтиреЦолумн.Инсерт Енд Суб
Покрените код. Убациће нову колону Б.
Пример # 2 - Уметните више колона
На пример, ако желите да уметнете две нове колоне након колоне А, онда морамо да наведемо две адресе колона.
Шифра:
ПодколонаИнсерт_Екампле1 () опсег ("Б: Ц"). ЕнтиреЦолумн.Инсерт Енд Суб
Горњи код ће уметнути две колоне иза колоне А.
Пример # 3 - Само методом „Убаци“
У нову колону можемо да убацимо коришћењем једине методе „Убаци“ без приступа својству Цела колона. За ово, хајде да разумемо синтаксу методе „инсерт“.
Екпрессион.Инсерт ((Схифт), (Цопи Оригин))
(Схифт): Када уметнемо нову колону, да ли треба да се колоне померају на десну страну или да се померају на доњу страну у случају редова. Овде можемо користити две опције, „клТоРигхт“ и „клТоРигхт“
(Копирај порекло): Ово ће одредити формат за ново уметнуту колону. Да ли вам је потребан формат са леве стране колоне или из горњих ћелија. Овде можемо користити две опције „клФорматФромЛефтОрАбове“ и „клФорматФромРигхтОрБелов“.
Испод је пример кода за вас.
ПодколонаИнсерт_Екампле1 () опсег ("Б: Б"). Уметните Схифт: = клТоРигхт, Цопиоригин: = клФорматФромЛефтОрАбове Енд Суб
Пример # 4 - Уметните колоне помоћу својства ЦОЛУМНС у ВБА
Видели смо како да ВБА убаци колоне помоћу објекта РАНГЕ; сада ћемо показати да можемо уметнути колоне помоћу својства „ЦОЛУМНС“.
Отворите својство ЦОЛУМНС.
Шифра:
Суб ЦолумнИнсерт_Екампле2 () Колоне (Крај Суб
Овде колону можемо одредити на два начина. Једна користи уобичајене абецедне референце, а друга бројеве ступаца.
If you want to insert the column after column A, then the code will be COLUMNS(“B”). If you are using numerical reference, then the code will be COLUMNS(2).
Code:
Sub ColumnInsert_Example2() Columns("B"). End Sub
Now the problem for you arises because when we use COLUMNS property, we don’t get to access the IntelliSense list.
Code:
Sub ColumnInsert_Example2() Columns("B").Entir End Sub
Here we need to sure of what we are doing. So this is the reason I have showed you the RANGE object first.
Code:
Sub ColumnInsert_Example2() Columns("B:B").EntireColumn.Insert End Sub
Example #5 - Insert Alternative Columns
Assume you have the data like the below image.
If you want to insert new columns after every alternate row, then we need to use VBA loops. The below code it tailor-made the code for you.
Code:
Суб ЦолумнИнсерт_Екампле3 () Дим к Ас Интегер Цолумнс (2) .Селецт фор к = 2 То 8 АцтивеЦелл.ЕнтиреЦолумн.Инсерт АцтивеЦелл.Оффсет (0, 2). Селецт Нект к Енд Суб
Ово ће уметнути овакву колону.
Пример # 6 - Уметните колону на основу вредности ћелије
Такође можемо уметнути колону и на основу вредности ћелије. На пример, погледајте податке у наставку.
Овде желим да убацим колону ако је вредност ћелије првог реда „Година“, а моји подаци би ово требало да воле након уметања нових колона.
За извршавање овог задатка користите доњи код.
Шифра:
Суб ЦолумнИнсерт_Екампле4 () Дим к Ас Интегер Дим к Ас Интегер к = 2 Фор к = 2 То 12 Иф Целлс (1, к) .Валуе = "Иеар" тхен Целлс (1, к) .ЕнтиреЦолумн.Инсерт к = к + 1 Крај Ако је к = к + 1 Следећи к Крај Суб
Овде можете преузети овај ВБА Инсерт Цолумнс Екцел. ВБА уметање колона у Екцел шаблон
