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.
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.