日付の季節に変換する関数、英語表示も可能です。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「Season」が使用できます。
使い方は
ワークシート上で = Season (日付,[表示形式])の関数として使用できます。
※ 表示形式0は日本語漢字、1は英語
【例】
Season(#2019/5/7#) → 春
Season (#2019/6/7#,1) → Summer
Function Season(GDate As String, Optional N As Long) As Variant
’季節を計算する関数、表示形式0は日本語漢字、1は英語
’Season(日付,[表示形式])
’例1 Season(#2019/5/7#) → 春
’例2 Season (#2019/6/7#,1) → Summer
Dim M As Long
Dim S As Long
Dim SD(1 To 4, 0 To 1) As Variant
SD(1, 0) = “春”: SD(1, 1) = “Spring”
SD(2, 0) = “夏”: SD(2, 1) = “Summer”
SD(3, 0) = “秋”: SD(3, 1) = “Autumn”
SD(4, 0) = “冬”: SD(4, 1) = “Winter”
On Error GoTo EXITFEnd
If IsDate(GDate) = True Then
M = Month(GDate)
If M <= 2 Then
S = 4
ElseIf M <= 5 Then
S = 1
ElseIf M <= 8 Then
S = 2
ElseIf M <= 11 Then
S = 3
ElseIf M <= 12 Then
S = 4
End If
Season = SD(S, N)
Else
Season = GDate
End If
Exit Function
EXITFEnd:
End Function
ここで紹介したコード使用による損害に対しては一切責任は負えません。