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