Како динамички сакрити или сакрити више картица помоћу ВБА у Екцелу

Anonim

Размислите о ситуацији у којој морате сакрити и открити више листова одједном. Ако се неко ручно крије и открива, то ће потрајати много времена.

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

П): Желим макро који ће сакрити или открити више картица у једном тренутку.

Слиједи снимак листа 1 у којем ће бити двије динамичке листе, тј. Сакриј картице и Откриј картице

  • Идеја је када кликнемо на дугме Сакриј или Откриј, онда се наведени листови требају сакрити или открити

Морамо да следимо следеће кораке:

  • Да бисмо добили резултат морамо покренути ВБ едитор
  • Кликните на картицу Девелопер
  • Из групе кодова изаберите Висуал Басиц

  • Притисните Уметни па Модул

Ово ће створити нови модул.

Унесите следећи код у Модул

Суб ХидеТабс () Дим ТабНо Ас ДоублеДим ЛастТаб Ас Доубле

ЛастТаб = Опсег ("Хиде_ТабсДНР"). Цоунт

На Грешка Настави даље

За ТабНо = 2 до ЛастТаб

Табеле (Опсег ("Сакриј_ТабсДНР") (ТабНо)). Видљиво = Нетачно

Нект ТабНо

Он Еррор ГоТо 0

Листови (1) .Одабери

Енд Суб

Суб УнХидеТабс ()

Дим ТабНо Ас Доубле

Затамните ЛастТаб Ас Доубле

ЛастТаб = Опсег ("Хиде_ТабсДНР"). Цоунт

На Грешка Настави даље

За ТабНо = 2 до ЛастТаб

Табеле (Опсег ("УнХиде_ТабсДНР") (ТабНо)). Видљиво = Тачно

Нект ТабНо

Он Еррор ГоТо 0

Листови (1) .Одабери

Енд Суб

  • Сви смо спремни за покретање макроа, ако кликнемо на дугме Сакриј, сви наведени листови ће бити скривени, погледајте доњу слику

  • На исти начин ако кликнемо на дугме Откриј, сви скривени листови наведени у колони Д ће се открити.

На овај начин можемо динамички сакрити или открити више картица одједном.