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

Ndonjëherë, mund të dëshironi të fshini të gjithë, përveç fletës aktive të punës në një libër pune në Excel. Në këto situata, mund të përdorni makronë e mëposhtme.

Si funksionon makroja

Makro këtu kalon nëpër fletët e punës, duke përputhur çdo emër të fletës së punës me emrin e fletës aktive. Sa herë që lakohet makro, ai fshin çdo fletë pune të pakrahasueshme. Vini re përdorimin e veçorisë DisplayAlerts në hapin 4. Kjo në mënyrë efektive çaktivizon paralajmërimet e Excel në mënyrë që të mos keni nevojë të konfirmoni çdo fshirje.

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: Fikni paralajmërimet dhe fshini
    Aplikimi.DisplayAlerts = False
    ws.Fshi
    Aplikimi.DisplayAlerts = E vërtetë
    Fundi Nëse
'Hapi 5: Kaloni në fletën tjetër të punës
    ws tjetër
Fundi Nën

Makro fillimisht deklaron një objekt të quajtur ws. Ky hap krijon një kontejnerë memorie për çdo fletë pune në të cilën kalon.

Në hapin 2, makro fillon të qarkullojë, duke i thënë Excel se do të vlerësojë të gjitha fletët e punës në këtë libër pune. Ekziston një ndryshim 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, nuk dëshironi të rrezikoni të fshini fletët në librat e 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ë hapin 4, nëse emrat e fletëve janë të ndryshëm, makroja fshin fletën. Siç u përmend, ju përdorni DisplayAlerts për të shtypur çdo kontroll konfirmimi nga Excel. Nëse dëshironi të paralajmëroheni përpara se të fshini fletët, mund të hiqni aplikacionin. DisplayAlerts = False. Heqja e deklaratës DisplayAlerts do të sigurojë që ju të merrni mesazhin e shfaqur, duke ju lejuar të tërhiqeni nga vendimi për të fshirë fletët e punës.

Në hapin 5, makroja kthehet për të marrë fletën tjetër. Pasi të jenë vlerësuar të gjitha fletët, makro përfundon.

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

Hiqni deklaratën DisplayAlerts për të parë mesazhet paralajmëruese.

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.

Kur përdorni ThisWorkbook në vend të ActiveWorkbook në një makro, nuk mund ta ekzekutoni makron nga libri personal i makrove të punës. Pse? Sepse ThisWorkbook do t'i referohej librit personal të punës së makro, jo librit të punës në të cilin duhet të zbatohet makroja.


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.