Една от най-простите автоматизации, свързани с работен лист, които можете да приложите с макрос в Excel, е добавянето и именуването на нов работен лист. Ето как работи този макрос и как да го използвате.
Как работи макросът
Когато прочетете редовете на кода, ще видите, че този макрос е относително интуитивен:
Подмакрос1()
„Стъпка 1: Кажете на Excel какво да прави, ако възникне грешка
При грешка Отидете до MyError
„Стъпка 2: Добавете лист и го наименувайте
Листове.Добавяне
ActiveSheet.Name = _
WorksheetFunction.Text(Now(), "md-yyyy h_mm_ss
сутринта/после")
Изход Sub
„Стъпка 3: Ако е тук, се е случила грешка; кажете на потребителя
моя грешка:
MsgBox "Вече има лист, наречен така."
Край под
Трябва да предвидите, че ако дадете на новия лист име, което вече съществува, ще възникне грешка. Така че в стъпка 1 макросът казва на Excel незабавно да прескочи до реда, който казва MyError (в стъпка 3), ако има грешка.
Стъпка 2 използва метода Добавяне за добавяне на нов лист. По подразбиране листът се нарича Sheet xx, където xx представлява номера на листа. Давате ново име на листа, като променяте свойството Name на обекта ActiveSheet. В този случай вие наименувате работния лист с текущата дата и час.
Както при работните книги, всеки път, когато използвате VBA за добавяне на нов лист, новодобавеният лист автоматично става активен лист. И накрая, в стъпка 2, имайте предвид, че макросът излиза от процедурата. Трябва да направи това, за да не влезе случайно в Стъпка 3 (която влиза в действие само ако възникне грешка).
Стъпка 3 уведомява потребителя, че името на листа вече съществува. Отново тази стъпка трябва да се активира само ако възникне грешка.
Как да използвате макроса
За да приложите този макрос, можете да го копирате и поставите в стандартен модул:
Активирайте редактора на Visual Basic, като натиснете Alt+F11.
Щракнете с десния бутон върху името на проекта/работната книга в прозореца на проекта.
Изберете Вмъкване→Модул.
Въведете или поставете кода в новосъздадения модул.