Një makro Excel për të fshehur të gjithë përveç fletës së punës aktive

Ju mund të dëshironi të fshehni fletët e punës joaktive me këtë makro. Excel nuk ju lejon të fshehni të gjitha fletët në një libër pune; të paktën një duhet të shfaqet. Megjithatë, ju mund të fshehni të gjitha, përveç fletës aktive.

Si funksionon makroja

Makro këtu kalon nëpër fletët e punës dhe përputhet me emrin e çdo flete pune me emrin e fletës aktive. Sa herë që lakohet makro, ai fsheh çdo fletë pune të pakrahasueshme.

Nën makro1()
'Hapi 1: Deklaroni variablat tuaja
    Dim ws As Fletë pune
'Hapi 2: Filloni të shikoni të gjitha fletët e punës
    Për çdo ws Në këtë Libër pune.Fletët e punës
'Hapi 3: Kontrolloni emrin e çdo flete pune
    Nëse ws.Name <> ThisWorkbook.ActiveSheet.Name then
'Hapi 4: Fshihni fletën
    ws.E dukshme = xlSheetHidden
    Fundi Nëse
'Hapi 5: Kaloni në fletën tjetër të punës
    ws tjetër
Fundi Nën

Hapi 1 deklaron një objekt të quajtur ws. Ky hap krijon një kontejnerë memorie për çdo fletë pune që makro kalon.

Hapi 2 fillon looping, duke i thënë Excel të vlerësojë të gjitha fletët e punës në këtë libër pune. Vini re ndryshimin midis ThisWorkbook dhe ActiveWorkbook. Objekti ThisWorkBook i referohet librit të punës që përmban kodin. Objekti ActiveWorkBook i referohet librit të punës aktualisht aktiv. Ata shpesh kthejnë të njëjtin objekt, por nëse libri i punës që ekzekuton kodin nuk është libri aktiv i punës, ata kthejnë objekte të ndryshme. Në këtë rast, ju nuk dëshironi të rrezikoni fshehjen e fletëve në libra të tjerë të punës, ndaj përdorni ThisWorkBook.

Në hapin 3, makro thjesht krahason emrin e fletës aktive me fletën që aktualisht është duke u lakuar.

Nëse emrat e fletëve janë të ndryshëm, makro e fsheh fletën në hapin 4.

Në hapin 5, ju ktheni përsëri për të marrë fletën tjetër. Pasi të jenë vlerësuar të gjitha fletët, makro përfundon.

Vini re se përdorni xlsheetHidden në makro. Kjo veçori zbaton gjendjen e paracaktuar të fshehjes që do të merrnit normalisht kur klikoni me të djathtën mbi një fletë dhe zgjidhni Fshih. Në këtë gjendje të parazgjedhur të fshehjes, një përdorues mund të kliko me të djathtën në çdo skedë dhe të zgjedhë Unhide, e cila shfaq të gjitha fletët e fshehura. Por një tjetër shtet i fshehtë është më klandestin se i paracaktuar. Nëse përdorni xlSheetVeryHidden për të fshehur fletët tuaja, përdoruesit nuk do të jenë në gjendje t'i shohin ato fare - edhe nëse klikojnë me të djathtën në një skedë dhe zgjedhin "Unhide". Mënyra e vetme për të zbuluar një fletë të fshehur në këtë mënyrë është të përdorni VBA.

Si të përdorni makro

Për të zbatuar këtë makro, mund ta kopjoni dhe ngjisni në një modul standard:

Aktivizoni Visual Basic Editor duke shtypur Alt+F11.

Klikoni me të djathtën mbi emrin e projektit/librit të punës në dritaren e projektit.

Zgjidhni Fut → Modul.

Shkruani ose ngjisni kodin në modulin e krijuar rishtazi.


Si të shkruani shënime në OneNote 2013 në Android

Si të shkruani shënime në OneNote 2013 në Android

Mësoni si të shkruani shënime në OneNote 2013 në Android me krijimin, hapjen dhe regjistrimin e shënimeve. Aplikoni strategji efektive për menaxhimin e shënimeve tuaja.

Formatimi i numrave në një varg teksti në Excel

Formatimi i numrave në një varg teksti në Excel

Mësoni si të formatoni numrat në një varg teksti në Excel për të përfshirë informacione të sakta dhe tërheqëse për raportet tuaja.

Si të fshini qelizat dhe të dhënat në Excel 2010

Si të fshini qelizat dhe të dhënat në Excel 2010

Në Excel 2010, fshini të dhënat apo formatin e qelizave lehtësisht me disa metoda të thjeshta. Mësoni si të menaxhoni përmbajtjen e qelizave me opsione të ndryshme.

Formatimi i elementeve të grafikut të Excel 2007

Formatimi i elementeve të grafikut të Excel 2007

Zhvilloni aftësitë tuaja në formatimin e elementeve të grafikut në Excel 2007 përmes metodave të thjeshta dhe efikase.

Si të rreshtoni dhe justifikoni tekstin në Word 2010

Si të rreshtoni dhe justifikoni tekstin në Word 2010

Mësoni se si të rreshtoni dhe justifikoni tekstin në Word 2010 me opsione të ndryshme rreshtimi dhe justifikimi për të përmirësuar formatimin e dokumenteve tuaja.

Excel 2019: Si të krijoni makro Excel për të automatizuar komandat

Excel 2019: Si të krijoni makro Excel për të automatizuar komandat

Mësoni si të krijoni makro në Excel 2019 për të automatizuar komandat dhe thjeshtuar detyrat tuaja.

Si të përdorni vizoren për të vendosur skeda në Word 2016

Si të përdorni vizoren për të vendosur skeda në Word 2016

Mënyra vizuale dhe e shpejtë për të vendosur një ndalesë skedash në Word 2016 është përdorimi i vizores. Zbulo disa këshilla dhe truke për përdorimin e skedave në këtë program.

Formatimi i boshtit X dhe boshtit Y në grafikët e Excel 2007

Formatimi i boshtit X dhe boshtit Y në grafikët e Excel 2007

Mësoni si të formula boshtet X dhe Y në Excel 2007, duke përfshirë mundësitë e ndryshimit të formatimeve për grafikët e ndryshëm.

Statistika të thjeshta në analizën e të dhënave në Excel

Statistika të thjeshta në analizën e të dhënave në Excel

Eksploroni se si Excel mund t

Gjetja dhe zëvendësimi i të dhënave në Excel 2007

Gjetja dhe zëvendësimi i të dhënave në Excel 2007

Mësoni se si të përdorni veçorinë Find and Replace të Excel 2007 për të gjetur dhe zëvendësuar të dhëna në mënyrë efikase. Kjo udhëzues është e përshtatshme për të gjithë përdoruesit që dëshirojnë të rrisin produktivitetin e tyre.