ВБА КСЛУП | Како се користи ВБА КСЛУП у програму Екцел? (са примерима)

Екцел ВБА КСЛУП

Приликом писања ВБА кода морате имати на уму оно што радите са редовним радним листом, а исту ствар можете реплицирати и у ВБА. Једна од таквих кључних речи у ВБА кодирању је „КСЛУП“, у овом чланку ћемо вам показати шта је ова кључна реч у ВБА кодирању и како је користити у кодирању.

Како користити ВБА КСЛУП у кодирању?

Следе примери екцел ВБА КСЛУП.

Овај ВБА КСЛУП Екцел образац можете преузети овде - ВБА КСЛУП Екцел предложак

Пример # 1 - Премештање ћелија у избрисани положај ћелија

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

Један од начина брисања овога на радном листу је одабир оних ћелија у којима можемо једноставно избрисати читав ред. Али овде су ситуације мало незгодне, јер у Табели 1 имам обојене ћелије када бришемо цео ред, чак се уклањају и редови Табеле 2, али не желимо да се то догоди, треба само да обришемо обојене редове, а испод ћелије треба да се померају горе положај избрисаних ћелија.

Прво изаберите обојене ћелије и притисните Цтрл + минус симбол (-) да бисте отворили опцију „Делете“.

Тастер пречице за отварање опције „Делете“

У прозору опција „брисање“ имамо четири опције, можемо одабрати радњу према нашем захтеву. С обзиром да морамо да померимо ћелије према горе за оне избрисане ћелије, одаберите „Схифт Целл Уп“.

Имаћемо непромењене редове Табеле 2.

Ова радња у ВБА захтева употребу својства „КСЛУП“ за извођење сличног скупа радњи у ВБА. Сада дођите до прозора ВБА уређивача и покрените име свог макронаредбе.

Шифра:

 Суб КСЛУП_Екампле () Крај Суб 

Прво доставите ћелију РАНГЕ која ће бити укључена у ову операцију. У овој акцији прве ћелије које се бришу и померају нагоре су ћелије „А5: Б5“.

Шифра:

 Суб КСЛУП_Екампле () Опсег ("А5: Б5") Крај Суб 

За овај опсег ћелија одаберите методу „Избриши“.

Шифра:

 Суб КСЛУП_Екампле () Опсег ("А5: Б5"). Избриши крај Суб 

Као што видите за методу „Делете“, имамо један опционални аргумент као [Смена], за овај аргумент морамо да унесемо аргумент као „КСЛУП“.

Шифра:

 Суб КСЛУП_Екампле () опсег ("А5: Б5"). Избриши схифт: = клУп Енд Суб 

Сада можете да покренете овај код ручно или помоћу пречице екцел тастера Ф5 да бисте видели резултат.

Као што можете видети у Табели 1, ред 6 смо померили на 5. ред, а са друге стране, Табела 2 (обојена) је непромењена, тако да помоћу опције „ВБА КСЛУП“ можемо да извршимо ову операцију.

Пример # 2 - Пронађите последњи коришћени ред користећи КСЛУП

Замислите ситуацију у којој сте у А20тх ћелији (погледајте доњу слику), а ваша последња коришћена ћелија је А14.

Сада ако желите да изаберете последњу кориштену ћелију (А14). како ћете поступити помоћу пречице ???

Користили бисмо Цтрл + стрелица нагоре тастер за прелазак на последњу кориштену ћелију са тренутне позиције.

Тастер пречице за прелазак у последњу кориштену ћелију

Дакле, из тренутне ћелије, Цтрл + стрелица нагоре одабрале су последњу кориштену ћелију. Слично томе, у ВБА кодирању које користимо КРАЈ (КСЛУП) да изврши исто.

Сада се вратите на ВБА прозор за кодирање.

У овом прозору извршићемо задатак проналажења последњег коришћеног реда на радном листу. Направите нови потпроцедура у ВБА прозору.

Шифра:

 Суб КСЛУП_Екампле1 () Крај Суб 

За чување последњег коришћеног броја реда. дефинишите променљиву као ВБА ЛОНГ тип података.

Шифра:

 Суб КСЛУП_Екампле1 () Дим Ласт_Ров_Нумбер Ас Лонг Енд Суб 

Сада ћемо овој променљивој доделити последњи коришћени број реда.

Шифра:

 Суб КСЛУП_Екампле1 () Дим Ласт_Ров_Нумбер Ас Лонг Ласт_Ров_Нумбер = Крај Суб 

Сада користите РАНГЕ објект и отворите овај објекат.

Шифра:

 Суб КСЛУП_Екампле1 () Дим Ласт_Ров_Нумбер Ас Лонг Ласт_Ров_Нумбер = Опсег (Крај Суб 

Сада спомените активну ћелију (А20) за ДОМЕТ објект.

Шифра:

 Суб КСЛУП_Екампле1 () Дим Ласт_Ров_Нумбер ас Лонг Ранге ("А14"). Изаберите Ласт_Ров_Нумбер = Ранге ("А20") Енд Суб 

Сада отворите својство ЕНД за испоручену ћелију опсега.

Шифра:

 Суб КСЛУП_Екампле1 () Дим Ласт_Ров_Нумбер ас Лонг Ранге ("А14"). Изаберите Ласт_Ров_Нумбер = Ранге ("А20"). Енд (Енд Суб 

Као што видите горе, морамо да означимо опције са стрелицама као што су „клДовн“, „клТоЛефт“, „клТоРигхт“, „клУп“. Пошто се крећемо према горе из ћелије А14, одаберите опцију „ВБА КСЛУП“.

Шифра:

 Суб КСЛУП_Екампле1 () Дим Ласт_Ров_Нумбер ас Лонг Ранге ("А14"). Изаберите Ласт_Ров_Нумбер = Ранге ("А20"). Енд (клУп) Енд Суб 

Након преласка из А14 ћелије морамо да напоменемо шта треба да урадимо, јер нам треба последњи коришћени број реда, користићу својство РОВ.

Шифра:

 Суб КСЛУП_Екампле1 () Дим Ласт_Ров_Нумбер ас Лонг Ранге ("А14"). Изаберите Ласт_Ров_Нумбер = Ранге ("А20"). Енд (клУп). Ред Енд Суб 

Сада за оквир за поруке доделите вредност променљиве „Ласт_Ров_Нумбер“.

Шифра:

 Суб КСЛУП_Екампле1 () Дим Ласт_Ров_Нумбер ас Лонг Ранге ("А14"). Изаберите Ласт_Ров_Нумбер = Ранге ("А20"). Енд (клУп) .Ров МсгБок Ласт_Ров_Нумбер Енд Суб 

Сада можете да покренете овај код ручно или помоћу пречице Ф5 да бисте видели резултат.

Дакле, оквир за поруку који приказује последњи коришћени број реда као 14, тако да је последњи број података који смо користили је А14 ћелија.

У овом случају, с обзиром на то да су подаци врло мали, кренули смо од ћелије А20, али када су подаци велики не можемо рећи коју ћелију прво узети у обзир, у таквим случајевима морамо користити другу технику.

Морамо да користимо својство ЦЕЛЛС, доле је пример истог.

Шифра:

 Суб КСЛУП_Екампле2 () Дим Ласт_Ров_Нумбер Лонг Лонг_Ров_Нумбер = Целлс (Ровс.Цоунт, 1) .Енд (клУп) .Ров МсгБок Ласт_Ров_Нумбер Енд Суб 

Сада можете да покренете овај код ручно или помоћу пречице Ф5 да бисте видели резултат.

Уместо РАНГЕ објекта, користио сам својство ЦЕЛЛС. Дозволите ми да вам ово детаљно објасним.

РЕД.ЦОУНТ ово ће рачунати колико редова има у колони 1. Ово што ће урадити је да ће узети у обзир последњу ћелију у радном листу уместо насумичне адресе ћелије, у горњем случају смо користили А14 као насумичну адресу ћелије.

Ствари које треба запамтити о ВБА КСЛУП

  • КСЛУП је реч која се користи у ВБА коду за копирање радње тастера „Стрелица нагоре“ у Екцелу.
  • ВБА КСЛУП се користи за прелазак из активних ћелија у горњу ћелију или последњу коришћену ћелију.
  • КСЛУП се обично користи заједно са ЕНД својством у ВБА.