Понякога може да искате да изтриете всички освен активния работен лист в работна книга на Excel. В тези ситуации можете да използвате следния макрос.
Макросът тук преминава през работните листове, като съпоставя името на всеки работен лист с името на активния лист. Всеки път, когато макросът зацикли, той изтрива всеки несравним работен лист. Обърнете внимание на използването на свойството DisplayAlerts в стъпка 4. Това ефективно изключва предупрежденията на Excel, така че не е нужно да потвърждавате всяко изтриване.
Подмакрос1()
„Стъпка 1: Декларирайте вашите променливи
Dim ws като работен лист
„Стъпка 2: Започнете да преглеждате всички работни листове
За всеки ws В тази работна книга.Работни листове
„Стъпка 3: Проверете името на всеки работен лист
Ако ws.Name <> ThisWorkbook.ActiveSheet.Name Тогава
„Стъпка 4: Изключете предупрежденията и изтрийте
Application.DisplayAlerts = False
ws.Изтриване
Application.DisplayAlerts = Вярно
Край, ако
„Стъпка 5: Преминаване към следващия работен лист
Следващата ws
Край под
Макросът първо декларира обект, наречен ws. Тази стъпка създава контейнер с памет за всеки работен лист, през който преминава.
В стъпка 2 макросът започва да се завърта, като казва на Excel, че ще оцени всички работни листове в тази работна книга. Има разлика между ThisWorkbook и ActiveWorkbook. Обектът ThisWorkBook се отнася до работната книга, която съдържа кода. Обектът ActiveWorkBook се отнася до активната в момента работна книга. Те често връщат един и същ обект, но ако работната книга, изпълняваща кода, не е активната работна книга, те връщат различни обекти. В този случай не искате да рискувате да изтриете листове в други работни книги, така че използвате ThisWorkBook.
В стъпка 3 макросът просто сравнява името на активния лист с листа, който в момента се завърта.
В стъпка 4, ако имената на листове са различни, макросът изтрива листа. Както споменахме, използвате DisplayAlerts, за да потискате всички проверки за потвърждение от Excel. Ако искате да бъдете предупредени, преди да изтриете листовете, можете да пропуснете Application. DisplayAlerts = False. Пропускането на изявлението DisplayAlerts ще гарантира, че ще получите показаното съобщение, което ви позволява да се откажете от решението за изтриване на работни листове.
В стъпка 5 макросът се връща обратно, за да получи следващия лист. След като всички листове бъдат оценени, макросът приключва.
Пропуснете изявлението DisplayAlerts, за да видите предупредителни съобщения.
За да приложите този макрос, можете да го копирате и поставите в стандартен модул:
Активирайте редактора на Visual Basic, като натиснете Alt+F11.
Щракнете с десния бутон върху името на проекта/работната книга в прозореца на проекта.
Изберете Вмъкване→Модул.
Въведете или поставете кода в новосъздадения модул.
Когато използвате ThisWorkbook вместо ActiveWorkbook в макрос, не можете да стартирате макроса от личната работна книга с макроси. Защо? Тъй като ThisWorkbook ще се отнася до личната работна книга с макроси, а не към работната книга, за която макросът трябва да се прилага.
Как да блокирам Microsoft Word да отваря файлове в режим само за четене в Windows Microsoft Word отваря файлове в режим само за четене, което прави невъзможно редактирането им? Не се притеснявайте, методите са по-долу
Как да коригирате грешки при отпечатването на неправилни документи на Microsoft Word Грешките при отпечатването на документи на Word с променени шрифтове, разхвърляни абзаци, липсващ текст или изгубено съдържание са доста чести. Въпреки това недейте
Ако сте използвали писалката или маркера, за да рисувате върху слайдовете на PowerPoint по време на презентация, можете да запазите чертежите за следващата презентация или да ги изтриете, така че следващия път, когато го покажете, да започнете с чисти слайдове на PowerPoint. Следвайте тези инструкции, за да изтриете чертежи с писалка и маркери: Изтриване на линии една в […]
Библиотеката със стилове съдържа CSS файлове, файлове с разширяем език на стиловия език (XSL) и изображения, използвани от предварително дефинирани главни страници, оформления на страници и контроли в SharePoint 2010. За да намерите CSS файлове в библиотеката със стилове на сайт за публикуване: Изберете Действия на сайта→Преглед Цялото съдържание на сайта. Появява се съдържанието на сайта. Библиотеката Style се намира в […]
Не затрупвайте аудиторията си с огромни числа. В Microsoft Excel можете да подобрите четливостта на вашите табла за управление и отчети, като форматирате числата си така, че да се показват в хиляди или милиони.
Научете как да използвате инструменти за социални мрежи на SharePoint, които позволяват на индивиди и групи да общуват, да си сътрудничат, споделят и да се свързват.
Юлианските дати често се използват в производствени среди като времеви печат и бърза справка за партиден номер. Този тип кодиране на дата позволява на търговците на дребно, потребителите и обслужващите агенти да идентифицират кога е произведен продуктът и по този начин възрастта на продукта. Юлианските дати се използват и в програмирането, военните и астрономията. Различно […]
Можете да създадете уеб приложение в Access 2016. И така, какво всъщност е уеб приложение? Е, уеб означава, че е онлайн, а приложението е просто съкращение от „приложение“. Персонализирано уеб приложение е онлайн приложение за база данни, достъпно от облака с помощта на браузър. Вие създавате и поддържате уеб приложението в настолната версия […]
Повечето страници в SharePoint 2010 показват списък с връзки за навигация в лентата за бързо стартиране в лявата част на страницата. Лентата за бързо стартиране показва връзки към представено съдържание на сайта, като списъци, библиотеки, сайтове и страници за публикуване. Лентата за бързо стартиране включва две много важни връзки: Връзка към цялото съдържание на сайта: […]
За прости проблеми Solver в Excel обикновено бързо намира оптималните стойности на променливата Solver за целевата функция. Но в някои случаи Solver има проблеми с намирането на стойностите на променливата Solver, които оптимизират целевата функция. В тези случаи Solver обикновено показва съобщение или съобщение за грешка, което описва или обсъжда проблема, който […]
