Ja jūs vienlaikus strādājat ar vairākām darbgrāmatām un jums ir nepieciešams makro, lai palīdzētu jums paslēpt visas neaktīvās darbgrāmatas, tad šis raksts jums noteikti palīdzēs.
Šajā rakstā mēs pievērsīsimies tam, kā mēs varam paslēpt vairākas darbgrāmatas, kuras jūs pašlaik neizmantojat.
Jautājums: Man ātri jāslēpj visi Excel faili, izņemot to, kuru pašlaik izmantoju, lai varētu netraucēti pārslēgties starp citām lietojumprogrammām. Es gribētu meklēt VBA kodu šai unikālajai prasībai.
Lai iegūtu kodu visu neaktīvo darbgrāmatu slēpšanai, mums ir jāveic šādas darbības, lai palaistu VB redaktoru
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Darblapas modulī nokopējiet šādu kodu
Sub HideInactiveExcelWorkbooks () Application.ScreenUpdating = False Dim aWin as Window Set aWin = ActiveWindow Dim win kā logs katrai uzvarai lietojumprogrammā.Windows win.Visible = False Nākamā uzvara aWin.Visible = True Application.ScreenUpdating = True End Sub
- Iepriekš minētais kods nekavējoties paslēps visas neaktīvās darbgrāmatas
Piezīme. Iepriekš minētais makro neslēps aktīvo darbgrāmatu.
Lai parādītu visas darbgrāmatas, mums jāveic šādas darbības:
- Noklikšķiniet uz cilnes Skats
- Noklikšķiniet uz Atklāt
- Tas parādīs slēptās darbgrāmatas
- Atlasot katru no tām un noklikšķinot uz pogas Labi, darbgrāmata tiks paslēpta
Secinājums: Mēs varam paslēpt simtiem darbgrāmatu, kas nav aktīvas, ar vienu klikšķi, izmantojot iepriekš minēto makro kodu.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē