Ако работите по няколко работни книги едновременно и имате нужда от макрос, който да ви помогне да скриете всички неактивни работни книги, тогава тази статия определено ще ви помогне.
В тази статия ще се съсредоточим върху това как можем да скрием множество работни книги, които в момента не използвате.
Въпрос: Трябва бързо да скрия всички файлове на Excel, с изключение на този, който използвам в момента, за да мога да превключвам гладко между други приложения. Бих искал да потърся VBA код за това мое уникално изискване.
За да получим кода за скриване на всички неактивни работни книги, трябва да следваме стъпките по -долу, за да стартираме VB редактор
- Кликнете върху раздела Разработчик
- От групата кодове изберете Visual Basic
- Копирайте следния код в модула на работен лист
Sub HideInactiveExcelWorkbooks () Application.ScreenUpdating = False Dim aWin As Window Set aWin = ActiveWindow Dim win As Window За всяка победа в Application.Windows win.Visible = False Следваща печалба aWin.Visible = True Application.ScreenUpdating = True End Sub
- Горният код ще скрие незабавно всички неактивни работни книги
Забележка: горният макрос няма да скрие активната работна книга.
За да скрием всички работни книги, трябва да следваме стъпките по -долу:
- Кликнете върху раздела Изглед
- Кликнете върху Unhide
- Това ще покаже скритите работни книги
- Избирането на всеки от тях и щракването върху бутона Ok ще разкрие работната книга
Заключение: Можем да скрием стотици работни книги, които не са активни с едно щракване с помощта на горния макро код.
Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни на имейл сайта