Як отримати назву аркуша за допомогою vba (з прикладом)

У VBA можна використовувати такі методи, щоб отримати ім’я певного аркуша в книзі Excel:

Спосіб 1: Отримайте назву активного аркуша

 Function GetSheetName()

GetSheetName = ActiveSheet.Name

End Function

Ця функція повертає назву активного аркуша.

Спосіб 2: отримати назву аркуша за номером

 Function GetSheetName(N As Integer)

GetSheetName = Sheets(N).Name

End Function

Ця функція поверне назву ^n-го аркуша, який ви вкажете.

У наведених нижче прикладах показано, як використовувати кожну функцію на практиці з такою книгою Excel із чотирма аркушами:

Приклад 1. Використовуйте VBA, щоб отримати назву активного аркуша

Ми можемо створити таку функцію у VBA, щоб отримати назву поточного активного аркуша в книзі Excel:

 Function GetSheetName()

GetSheetName = ActiveSheet.Name

End Function

Припустімо, що аркуш під назвою stats наразі активний.

Ми можемо ввести таку формулу в клітинку E1 цього аркуша, щоб повернути назву активного аркуша:

 =GetSheetName()

На наступному знімку екрана показано, як використовувати цю формулу на практиці:

Функція повертає значення статистики , оскільки це назва поточного активного аркуша.

Приклад 2: Використовуйте VBA, щоб отримати назву аркуша за номером

Ми можемо створити таку функцію у VBA, щоб отримати назву ^n-го аркуша робочої книги Excel:

 Function GetSheetName(N As Integer)

GetSheetName = Sheets(N).Name

End Function

Створивши цю функцію, ми можемо ввести наступну формулу в комірку E1 поточного активного аркуша, щоб повернути назву другого аркуша в робочій книзі:

 =GetSheetName(2)

На наступному знімку екрана показано, як використовувати цю формулу на практиці:

Функція повертає значення team , оскільки це ім’я другого аркуша в книзі.

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

VBA: Як підрахувати кількість аркушів у робочій книзі
VBA: як отримати дані з іншої книги
VBA: як вставити кілька рядків