'---------------------------------
'月末の判定例
'細かな形式は全部省略
'matubiA1は、末尾の判定ができるセルを指定する。
'右から2桁を抽出してCase文で判定します。
Sheets(hogehoge).Select
matubiA1 = Range("A1").Value
matubiA1 = DateValue(matubiA1)
matubiA1 = Right(matubiA1, 2)
Select Case matubiA1
Case "03"
'28日の場合
endID1 = 28
Case "02"
'29日の場合
endID1 = 29
Case "01"
'30日の場合
endID1 = 30
Case Else
'31日の場合
endID1 = 31
End Select
[0回]
PR
