У цій статті мова піде про об’єкт ActiveSheet у VBA. Він також обговорить, як активувати, вибрати та перейти до робочих листів (та багато іншого). Прочитайте наш повний посібник з робочих аркушів VBA для отримання додаткової інформації про роботу з аркушами у VBA.
ActiveSheet
У VBA ActiveSheet посилається на поточний робочий аркуш. Одночасно може бути активним лише один аркуш.
Активувати аркуш (Налаштування ActiveSheet)
Щоб налаштувати ActiveSheet, використовуйте робочий аркуш. Активуйте:
| 1 | Робочі аркуші ("Введення"). Активувати |
Команда «Активувати аркуш» фактично «перейде» на аркуш, змінивши видимий аркуш.
У наведеному вище прикладі використовується назва Sheet (Tab). Замість цього ви можете використовувати кодове ім'я VBA для робочого аркуша:
| 1 | Аркуш 1. Активуйте |
Назва ActiveSheet
Щоб отримати назву ActiveSheet:
| 1 | msgbox ActiveSheet.name |
Вибрані аркуші проти ActiveSheet
У будь -який момент часу лише один аркуш може бути ActiveSheet. Однак можна одночасно вибрати кілька робочих листів.
Якщо вибрано кілька робочих листів, активним вважається лише «верхній» аркуш (ActiveSheet).
Виберіть аркуш
Якщо ви хочете вибрати робочий аркуш, а не активувати його. Використовуйте. Виберіть замість цього.
Виберіть аркуш за назвою вкладки
Це вибирає аркуш на основі його назви вкладки аркуш
| 1 | Аркуші ("Введення"). Виберіть |
Виберіть аркуш за номером індексу
Це вибирає аркуш на основі його положення щодо інших вкладок
| 1 | Робочі аркуші (1). Виберіть |
Виберіть аркуш із кодовою назвою VBA
| 1 | Аркуш 1. Виберіть |
Вибір робочих листів за кодовою назвою може запобігти помилкам, викликаним зміною назви робочого аркуша.
Виберіть Поточний аркуш
Щоб вибрати поточний аркуш, використовуйте об’єкт ActiveSheet:
| 1 | ActiveSheet.Select |
Більше активації / вибору прикладів аркушів
Встановіть для ActiveSheet значення Змінна
Це призначить ActiveSheet до змінної об'єкта робочого аркуша.
| 123 | Затемнити як робочий аркушВстановіть ws = ActiveSheet |
Змінити назву ActiveSheet
Це змінить назву ActiveSheet.
| 1 | ActiveSheet.Name = "Нове ім'я" |
За допомогою ActiveSheet
Використання оператора With дозволяє упорядкувати код під час роботи з об’єктами (такими як Таблиці або ActiveSheet).
| 12345 | За допомогою ActiveSheet.Name = "Почати свіжо". Клітини.Ясно.Range ("A1"). Значення = .NameЗакінчити з |
Зверніть увагу, що вам не потрібно повторювати “ActiveSheet” перед кожним рядком коду. Це може істотно заощадити час при роботі з довгим списком команд.
Перебирайте вибрані аркуші
Наступний макрос прокрутить усі вибрані аркуші, відображаючи їх назви.
| 12345678 | Sub GetSelectedSheetsName ()Затемнити як робочий аркушДля кожного ws в ActiveWindow.SelectedSheetsMsgBox ws.NameНаступний wsEnd Sub |
Перейти до наступного аркуша
Цей код перейде до наступного аркуша. Якщо ActiveSheet - це останній аркуш, він перейде до першого аркуша робочої книги.
| 12345 | Якщо ActiveSheet.Index = Worksheets.Count ТодіРобочі аркуші (1). АктивуватиІнакшеActiveSheet.Next.ActivateЗакінчити Якщо |
