Іноді ви можете видалити всі, крім активного аркуша, у книзі Excel. У цих ситуаціях можна використовувати наступний макрос.
Макрос тут перебирає аркуші, узгоджуючи назву кожного аркуша з назвою активного аркуша. Кожен раз, коли макрос зациклюється, він видаляє будь-який невідповідний аркуш. Зверніть увагу на використання властивості DisplayAlerts на кроці 4. Це фактично вимикає попередження Excel, тому вам не потрібно підтверджувати кожне видалення.
Підмакрос1()
'Крок 1: Оголошення змінних
Dim ws As Worksheet
«Крок 2: Почніть перебирати всі аркуші
Для кожного ws In ThisWorkbook.Worksheets
«Крок 3. Перевірте назву кожного аркуша
Якщо ws.Name <> ThisWorkbook.ActiveSheet.Name Then
«Крок 4: Вимкніть попередження та видаліть
Application.DisplayAlerts = False
ws.Видалити
Application.DisplayAlerts = True
Кінець Якщо
«Крок 5: Перейдіть до наступного аркуша
Далі ws
Кінець суб
Макрос спочатку оголошує об’єкт під назвою ws. На цьому етапі створюється контейнер пам’яті для кожного робочого аркуша, який він перебирає.
На кроці 2 макрос починає зациклюватися, повідомляючи Excel, що він оцінить всі аркуші в цій книзі. Існує різниця між ThisWorkbook і ActiveWorkbook. Об’єкт ThisWorkBook посилається на книгу, яка містить код. Об’єкт ActiveWorkBook посилається на поточну активну книгу. Вони часто повертають один і той же об’єкт, але якщо книга, на якій виконується код, не є активною книгою, вони повертають різні об’єкти. У цьому випадку ви не хочете ризикувати видалити аркуші в інших книгах, тому ви використовуєте ThisWorkBook.
На кроці 3 макрос просто порівнює ім’я активного аркуша з аркушем, який зараз зациклюється.
На кроці 4, якщо назви аркушів відрізняються, макрос видаляє аркуш. Як згадувалося, ви використовуєте DisplayAlerts, щоб придушити будь-які перевірки підтвердження з Excel. Якщо ви хочете отримати попередження перед видаленням аркушів, ви можете опустити Application. Display Alerts = 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 зазвичай відображає повідомлення або повідомлення про помилку, що описує або обговорює проблему, яка […]
