Как динамично да скриете или скриете няколко раздела, използвайки VBA в Excel

Anonim

Помислете за ситуация, в която трябва да скриете и покажете няколко листа наведнъж. Ако някой се крие и разкрива ръчно, това ще отнеме много време.

В тази статия ще научите как динамично да скривате или разкривате множество раздели, използвайки VBA код.

В): Искам макрос, който да скрие или покаже множество раздели в даден момент.

Следва моментна снимка на лист1, в която ще има два динамични списъка, т.е.Скриване на раздели и показване на раздели

  • Идеята е, когато щракнем върху бутона Скриване или показване, тогава изброените листове трябва да се скрият или скрият

Трябва да следваме следните стъпки:

  • За да получим резултата, трябва да стартираме VB редактор
  • Кликнете върху раздела Разработчик
  • От групата кодове изберете Visual Basic

  • Кликнете върху Вмъкване, след това Модул

Това ще създаде нов модул.

Въведете следния код в модула

Sub HideTabs () Dim TabNo As DoubleDim LastTab As Double

LastTab = Range ("Hide_TabsDNR"). Брой

На грешка възобновяване на следващо

За TabNo = 2 към LastTab

Таблици (Обхват ("Hide_TabsDNR") (TabNo)). Visible = False

Следващ TabNo

При грешка GoTo 0

Листове (1). Изберете

End Sub

Sub UnHideTabs ()

Dim TabNo As Double

Затъмнете LastTab като двоен

LastTab = Range ("Hide_TabsDNR"). Брой

На грешка възобновяване на следващо

За TabNo = 2 към LastTab

Таблици (Обхват ("UnHide_TabsDNR") (TabNo)). Видимо = Вярно

Следващ TabNo

При грешка GoTo 0

Листове (1). Изберете

End Sub

  • Всички сме готови да стартираме макроса, ако кликнете върху бутона Скриване, тогава всички изброени листове ще бъдат скрити, вижте по -долу моментната снимка

  • По същия начин, ако кликнем върху бутона „Покажи“, тогава всички скрити листове, споменати в колона D, ще се разкрият.

По този начин можем динамично да скриваме или показваме няколко раздела едновременно.