Kā dinamiski paslēpt vai parādīt vairākas cilnes, izmantojot programmu VBA programmā Excel

Anonim

Apsveriet situāciju, kad jums vienlaikus jāslēpj un jāatslēpj vairākas lapas. Ja kāds slēpjas un slēpjas manuāli, tas prasīs daudz laika.

Šajā rakstā jūs uzzināsit, kā dinamiski paslēpt vai parādīt vairākas cilnes, izmantojot VBA kodu.

J): Es vēlos makro, kas vienā brīdī paslēps vai parādīs vairākas cilnes.

Tālāk ir lapas 1 momentuzņēmums, kurā būs divi dinamiski saraksti, t.i., slēpt cilnes un parādīt cilnes

  • Ideja ir tāda, ka, noklikšķinot uz pogas Slēpt vai Atklāt, tad uzskaitītajām lapām vajadzētu paslēpties vai parādīt

Mums jāveic šādas darbības:

  • Lai iegūtu rezultātu, mums jāuzsāk VB redaktors
  • Noklikšķiniet uz cilnes Izstrādātājs
  • Kodu grupā atlasiet Visual Basic

  • Noklikšķiniet uz Ievietot, pēc tam uz moduļa

Tādējādi tiks izveidots jauns modulis.

Modulī ievadiet šādu kodu

Sub HideTabs () Dim cilne Nav kā DoubleDim LastTab kā Double

LastTab = Diapazons ("Hide_TabsDNR"). Skaits

Par kļūdu Atsākt nākamo

TabNo = 2 līdz LastTab

Izklājlapas (Diapazons ("Hide_TabsDNR") (TabNo)). Visible = False

Nākamā cilneNr

Kļūda GoTo 0

Loksnes (1). Izvēlieties

Beigt apakš

Sub UnHideTabs ()

Dim cilne Nē kā dubultā

Dim LastTab kā Double

LastTab = Diapazons ("Hide_TabsDNR"). Skaits

Par kļūdu Atsākt nākamo

TabNo = 2 līdz LastTab

Izklājlapas (Diapazons ("UnHide_TabsDNR") (TabNo)). Visible = True

Nākamā cilneNr

Kļūda GoTo 0

Loksnes (1). Izvēlieties

Beigt apakš

  • Mēs visi esam gatavi palaist makro, ja noklikšķināsim uz pogas Slēpt, tad visas uzskaitītās lapas tiks paslēptas, skatiet zem momentuzņēmuma

  • Tādā pašā veidā, ja mēs noklikšķinām uz pogas Atklāt, tad visas slejas D, kas minētas D slejā, tiks paslēptas.

Tādā veidā mēs varam vienlaikus dinamiski paslēpt vai parādīt vairākas cilnes.