Nazwy miesięcy w Excel VBA

Poniżej przyjrzymy się programowi w Excel VBA który tworzy Funkcja zdefiniowana przez użytkownika używający funkcji Array do zwrócenia znaku nazwy miesięcy.

Funkcje zdefiniowane przez użytkownika należy umieścić w module.

1. Otwórz Edytor Visual Basic i kliknij Wstaw, Moduł.

2. Dodaj następującą linię kodu:

Function MONTHNAMES()

Nazwa naszej funkcji to MONTHNAMES. Pusta część między nawiasami oznacza, że dajemy Excelowi VBA nic jako dane wejściowe.

3. Funkcja Array pozwala nam przypisać wartości do tablicy Variant w jednym wierszu kodu.

MONTHNAMES = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")

4. Nie zapomnij zakończyć funkcji.

End Function

5. Teraz możesz użyć tej funkcji, tak jak każdej innej funkcji programu Excel, do zwrócenia nazw miesięcy. Wybierz dwanaście poziomych komórek, wprowadź funkcję = MONTHNAMES () i naciśnij CTRL + SHIFT + ENTER.

Wynik:

Uwaga: nie można usunąć jednego miesiąca. Aby usunąć miesiące, wybierz zakres A1: L1 i naciśnij Usuń. Ta funkcja jest dostępna tylko w tym skoroszycie.