Jak uzyskać nazwę arkusza za pomocą vba (z przykładem)

Aby uzyskać nazwę konkretnego arkusza w skoroszycie programu Excel, możesz użyć następujących metod w języku VBA:

Metoda 1: Uzyskaj nazwę aktywnego arkusza

 Function GetSheetName()

GetSheetName = ActiveSheet.Name

End Function

Ta funkcja zwróci nazwę aktywnego arkusza.

Metoda 2: Uzyskaj nazwę arkusza według numeru

 Function GetSheetName(N As Integer)

GetSheetName = Sheets(N).Name

End Function

Ta funkcja zwróci nazwę ^n-tego arkusza, który określisz.

Poniższe przykłady pokazują, jak w praktyce korzystać z każdej funkcji w następującym skoroszycie programu Excel zawierającym cztery arkusze:

Przykład 1: Użyj VBA, aby uzyskać nazwę aktywnego arkusza

Możemy utworzyć w VBA następującą funkcję, aby uzyskać nazwę aktualnie aktywnego arkusza w skoroszycie Excela:

 Function GetSheetName()

GetSheetName = ActiveSheet.Name

End Function

Załóżmy, że aktualnie aktywny jest arkusz o nazwie statystyki .

Możemy wpisać następującą formułę w komórce E1 tego arkusza, aby zwrócić nazwę aktywnego arkusza:

 =GetSheetName()

Poniższy zrzut ekranu pokazuje, jak zastosować tę formułę w praktyce:

Funkcja zwraca wartość statystyki , gdyż jest to nazwa aktualnie aktywnego arkusza.

Przykład 2: Użyj VBA, aby uzyskać nazwę arkusza według numeru

Możemy utworzyć następującą funkcję w VBA, aby uzyskać nazwę ^n-tego arkusza skoroszytu programu Excel:

 Function GetSheetName(N As Integer)

GetSheetName = Sheets(N).Name

End Function

Po utworzeniu tej funkcji możemy wpisać następującą formułę do komórki E1 aktualnie aktywnego arkusza, aby zwrócić nazwę drugiego arkusza w skoroszycie:

 =GetSheetName(2)

Poniższy zrzut ekranu pokazuje, jak zastosować tę formułę w praktyce:

Funkcja zwraca wartość zespół , ponieważ jest to nazwa drugiego arkusza w skoroszycie.

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak policzyć liczbę arkuszy w skoroszycie
VBA: Jak wyodrębnić dane z innego skoroszytu
VBA: jak wstawić wiele linii