Vba: jak uzyskać nazwę miesiąca z daty

Możesz użyć funkcji MonthName w VBA, aby uzyskać nazwę miesiąca z daty w Excelu.

Oto typowy sposób wykorzystania tej funkcji w praktyce:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i) = MonthName(Month(Range(" A " & i)))
Next i

End Sub

To konkretne makro wyszukuje nazwę miesiąca dla każdej daty w zakresie A2:A11 i wyświetla te nazwy w odpowiednich komórkach w zakresie C2:C11 .

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak uzyskać nazwę miesiąca z daty za pomocą VBA

Załóżmy, że mamy w Excelu następujący zestaw danych, który zawiera informacje o sprzedaży zrealizowanej przez firmę w różnych terminach:

Załóżmy, że chcemy uzyskać nazwę miesiąca dla każdej komórki w kolumnie Data .

W tym celu możemy utworzyć następujące makro:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)))
Next i

End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy pamiętać, że kolumna C zawiera nazwę miesiąca dla każdej odpowiedniej daty w kolumnie A.

Jeśli zamiast tego chcesz zwrócić skróconą nazwę miesiąca, możesz użyć opcjonalnego argumentu True w funkcji MonthName w następujący sposób:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)), True )
Next i

End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Kolumna C zawiera teraz skróconą nazwę miesiąca dla każdej pasującej daty w kolumnie A.

Dodatkowe zasoby

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

Jak porównać daty w VBA
Jak przekonwertować ciąg znaków na bieżąco w VBA
Jak obliczyć dni między dwiema datami w VBA