Afişarea tuturor foilor de calcul ascunse

Atunci când este ascuns un sheet, afişarea lui se face foarte simplu:

  • fie dând clic dreapta pe oricare tab vizibil şi alegerea din meniul contextual a opţiunii Unhide;
  • fie accesând, din meniul Home Format Hide & UnhideUnhide Sheet…;

Totuşi, titlul acestui articol face trimitere la afişarea tuturor foilor de calcul, ceea ce nu este oferit „nativ” de Excel. Soluţia este să apelăm la VBA, mai ales dacă este vorba de foarte multe sheet-uri, în condiţiile în care versiunile noi de Excel oferă posibiltatea multor foi de calcul într-un fişier (se presupune că limitarea sheet-urilor ţine de memoria calculatorului pe care se foloseşte acel fişier).

Pentru asta se poate folosi un cod destul de simplu, fie sub formă de macro (cod 1) – dacă se doreşte utilizarea ulterioară a acestei opţiuni -, fie rularea codului în fereastra Immediate.

Utilizarea unui macro

Astfel, pentru crearea unui macro, se alege, din meniul Developer (dacă nu este activ acest meniu, se poate activa, din meniul File Options Customize Ribbon, unde, în panoul din dreapta se bifează caseta Developer) opţiunea Macros. În formularul care apare se scrie numele macroului (fără spaţii) şi se apasă butonul Create.

[php]Sub afisare_sheets()
For Each s In Sheets
s.Visible = True
Next<br />
End Sub[/php]

Prin apelarea (apăsarea butonului Run), din acelaşi formular Macros, menţionat mai devreme, a macroului afisare_sheets, se va realiza afişarea tuturor foilor de calcul ascunse.

Cod… Immediate

Pentru accesarea VBA, din meniul Developer, se apasă butonul Visual Basic sau combinaţia de taste Alt+F11. Este necesară introducerea următorului cod, în fereastra Immediate care, dacă nu este activă, se apasă combinaţia Ctrl+G sau se regăseşte în meniul View Immediate Window:

[php]For Each s In Sheets: s.Visible = True: Next[/php]

La apăsarea tastei Enter, va rula codul, afişându-se toate foile de calcul ascunse.

Sursa: AccountingWeb.com

Author: Ovidiu.S

Suficient de pasionat de această zonă profesională ca, în cazul în care ştiu ceva - cât de puţin - să împărtăşesc cu alţii.

Lasă un răspuns

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate cu *