Vba：日付から月名を取得する方法

VBA でMonthName関数を使用すると、Excel の日付から月の名前を取得できます。

この関数を実際に使用する一般的な方法は次のとおりです。

 SubGetMonthName ()

Dim i As Integer

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

End Sub

この特定のマクロは、範囲A2:A11内の各日付の月名を検索し、範囲C2:C11内の対応するセルにこれらの名前を表示します。

次の例は、この構文を実際に使用する方法を示しています。

例: VBA を使用して日付から月名を取得する方法

ある企業がさまざまな日付で行った売上に関する情報を含む次のデータ セットが Excel にあるとします。

Date列の各セルの月の名前を取得するとします。

これを行うには、次のマクロを作成できます。

 SubGetMonthName ()

Dim i As Integer

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

End Sub

このマクロを実行すると、次の出力が表示されます。

列 C には、列 A の対応する各日付の月名が含まれることに注意してください。

代わりに省略された月名を返したい場合は、次のようにMonthName関数でオプションのTrue引数を使用できます。

 SubGetMonthName ()

Dim i As Integer

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

End Sub

このマクロを実行すると、次の出力が表示されます。

列 C には、列 A で一致する各日付の短縮月名が含まれるようになりました。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA で日付を比較する方法
VBAで文字列を日付に変換する方法
VBA で 2 つの日付の間の日数を計算する方法