photosdematures.com

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

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

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

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

Испод су разни начини коришћења ВБА за уметање реда у екцел.

1. метод - Коришћење методе уметања

Да бисмо у ВБА уметнули ред, морамо да користимо сличну технику коју смо користили у радном листу Екцел. У ВБА морамо да користимо објект ранге да бисмо уметнули ред.

На пример, погледајте доњи код.

Шифра:

 Суб ИнсертРов_Екампле1 () Опсег ("А1"). Убаци крај Суб 

Овај код ће се померити низ ћелију А1 до Б1 и убацити једину ћелију.

То ће проузроковати толико проблема у погледу руковања подацима. Ово ће померити поменуту ћелију надоле, а сви остали придружени ступци остају исти.

2. метод - Коришћење целокупног својства реда

Горњи ред за уметање заправо можемо користити неколико метода. Метод у наставку убациће цео ред изнад изабране ћелије.

Корак 1: Спомените адреса ћелије први.

Шифра:

 Суб ИнсертРов_Екампле2 () Опсег ("А1"). Енд Суб 

Корак 2: Уместо да само користите, одаберите „Цео ред" својство.

Шифра:

 Суб ИнсертРов_Екампле2 () опсег ("А1"). ЕнтиреРов. Енд Суб 

Корак 3: Након приступа својству целог реда, користите метода уметања.

Шифра:

 Суб ИнсертРов_Екампле2 () опсег ("А1"). ЕнтиреРов.Инсерт Енд Суб 

Ово ће уметнути ред изнад ћелије А1. Пошто је А1 први ред, померит ће се низ А1 ћелију на Б1.

Као што можете на горњој слици, она мора уметнути читав ред, а не једну ћелију.

3. метод - Коришћење бројева редова

У горњем примеру, управо смо користили адресу једне ћелије и убацили ред. Међутим, можемо их уметнути и помоћу бројева редова.

Претпоставимо да желите да уметнете ред испод 5. реда, прво морамо да поменемо бројеве редова помоћу објекта РАНГЕ.

Шифра:

 Суб ИнсертРов_Екампле3 () Опсег ("6: 6"). Енд Суб 

Будући да смо читав ред споменули као 6: 6, овде морамо користити својство Ентире Ров, можемо директно да користимо методу „ИНСЕРТ“.

Шифра:

 Суб ИнсертРов_Екампле3 () Распон ("6: 6"). Убаци крај Суб 

Ово ће такође уметнути читав ред, а не једну ћелију.

У случају да желите да уметнете два реда испод 5. реда, прво треба да одаберемо 2 реда, а затим користимо ИНСЕРТ методу.

 Суб ИнсертРов_Екампле3 () Распон ("6: 7"). Уметни крај Суб 

Ово ће уметнути два реда испод 5. реда.

Овако, у радни лист можемо уметнути што више редова.

Метод # 4 - Коришћење својства активне ћелије

За уметање редова можемо користити својство Ацтиве Целл ВБА. Активна ћелија није ништа друго до тренутно изабрана ћелија.

Претпоставимо да сте у ћелији Б5 и желите да уметнете ред изнад, можете да користите активно својство ћелије.

 Суб ИнсертРов_Екампле4 () АцтивеЦелл.ЕнтиреРов.Инсерт Енд Суб 

Ово ће уметнути ред изнад активне ћелије.

5. метод - Коришћење својства активне ћелије са функцијом померања

Претпоставимо да желите да уметнете ред након 2 реда активне ћелије, морамо да користимо функцију Оффсет да бисмо померили број редова.

Претпоставимо да сте у ћелији Б5.

Ако желите да уметнете ред након 2. реда из активне ћелије, можемо користити доњи код.

Шифра:

 Суб ИнсертРов_Екампле5 () АцтивеЦелл.Оффсет (2, 0) .ЕнтиреРов.Инсерт Енд Суб 

Ово ће уметнути ред након 6. реда.

Уметните алтернативне редове

Често сам наилазио на уметање алтернативних редова. За поглед на доњу слику података.

Сада треба да убацимо алтернативне редове. Морамо да користимо петље за уметање сваког алтернативног реда.

Шифра:

 Суб ИнсертРов_Екампле6 () Дим К Ас Интегер Дим Кс Ас Интегер Кс = 1 Фор К = 1 То 4 Целлс (Кс, 1) .ЕнтиреРов.Инсерт Кс = Кс + 2 Нект К Енд Суб 

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

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