Едно от най-досадните неща в Excel е затварянето на много работни книги наведнъж. За всяка работна книга, която сте отворили, трябва да активирате работата, да я затворите и да потвърдите запазването на промените. Excel няма лесен начин да ги затвори наведнъж. Този малък макрос се грижи за това дразнене.
Как работи макросът
В този макрос колекцията Workbooks преминава през всички отворени работни книги. Докато макросът преминава през всяка работна книга, той ги записва и затваря:
Подмакрос1()
„Стъпка 1: Декларирайте вашите променливи
Dim wb като работна тетрадка
„Стъпка 2: Прегледайте работните книги, запазете и затворете
За всеки wb в работни книги
wb.Close SaveChanges:=Вярно
Следващ wb
Край под
Стъпка 1 декларира обектна променлива, която представлява обект на работна книга. Това ви позволява да изброявате всички отворени работни книги, като улавяте имената им, докато вървите.
Стъпка 2 просто преминава през отворените работни книги, като ги запазва и затваря. Ако не искате да ги запазите, променете аргумента SaveChanges от True на False.
Как да използвате макроса
Най-доброто място за съхранение на този макрос е в личната ви работна книга за макроси. По този начин макросът е винаги достъпен за вас. Персоналната работна книга с макроси се зарежда всеки път, когато стартирате Excel. В прозореца на проекта VBE той се нарича personal.xlsb.
Активирайте редактора на Visual Basic, като натиснете Alt+F11.
Щракнете с десния бутон върху personal.xlb в прозореца на проекта.
Изберете Вмъкване→Модул.
Въведете или поставете кода в новосъздадения модул.
Ако не виждате personal.xlb в прозореца на вашия проект, той все още не съществува. Ще трябва да запишете макрос, като използвате лична работна книга за макроси като дестинация.
За да запишете макроса в личната си работна книга за макроси, отворете диалоговия прозорец Запис на макрос. В падащия списък Store Macro In изберете Personal Macro Workbook. След това просто запишете няколко щраквания върху клетки и спрете записа. Можете да изхвърлите записания макрос и да го замените с този.