Jei vienu metu dirbate su keliomis darbaknygėmis ir jums reikia makrokomandos, padedančios paslėpti visas neaktyvias darbaknyges, šis straipsnis jums tikrai padės.
Šiame straipsnyje mes sutelksime dėmesį į tai, kaip galime paslėpti kelias darbaknyges, kurių šiuo metu nenaudojate.
Klausimas: Turiu greitai paslėpti visus „Excel“ failus, išskyrus tą, kurį šiuo metu naudoju, kad galėčiau sklandžiai perjungti kitas programas. Norėčiau ieškoti VBA kodo šiam unikaliam mano reikalavimui.
Norėdami gauti visų neaktyvių darbaknygių slėpimo kodą, turime atlikti toliau nurodytus veiksmus, kad paleistume VB redaktorių
- Spustelėkite skirtuką Kūrėjas
- Iš kodų grupės pasirinkite „Visual Basic“
- Nukopijuokite šį kodą darbalapio modulyje
Sub HideInactiveExcelWorkbooks () Application.ScreenUpdating = Netiesa Dim aWin kaip lango rinkinys aWin = ActiveWindow Dim win kaip langas kiekvienam laimėjimui programoje. Windows win.Visible = False Kitas laimėjimas aWin.Visible = True Application.ScreenUpdating = True End Sub
- Aukščiau pateiktas kodas iškart paslėps visas neaktyvias darbo knygas
Pastaba: aukščiau pateikta makrokomanda neslėps aktyvios darbaknygės.
Norėdami atskleisti visas darbaknyges, turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Rodinys
- Spustelėkite Neslėpti
- Tai parodys nepaslėptas darbo knygas
- Pasirinkus kiekvieną ir spustelėjus mygtuką Gerai, darbo knyga bus rodoma
Išvada: Naudodami aukščiau esantį makro kodą, vienu paspaudimu galime paslėpti šimtus neaktyvių darbaknygių.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el