|
▼nakata さん:
>Sub Auto_Open()
> MsgBox "今日は" & Format(Date, "yyyy年mm月dd日(aaa)") & "です。" _
> , vbQuestion, "元気があればなんでも出来る"
>End Sub
>上記に下記条件でデータを追加したいのですが
>F37セルにに日付データ"2008/6/30"が記入してあるとします。
>このデータと今日を比較しMsgBoxに"あと残り○○日"と表示し
>また、指定日を過ぎてしまった場合は"○○日超過です"と表示したいのですが可能でしょうか
>条件としてはF37セルにデータが入力済みの場合表示させたいのですが
>(未入力の場合は表示させない)
>よろしくお願いします。
こんな風で
Sub Auto_Open()
Dim lngDt As Long
Dim strMsg As String
If IsDate(Range("F37").Value) Then
lngDt = DateDiff("d", Date, Range("F37").Value)
Select Case lngDt
Case 0
strMsg = "本日です。"
Case Is > 0
strMsg = "あと残り " & lngDt & "日"
Case Is < 0
strMsg = lngDt * -1 & " 日超過です。"
End Select
Else
strMsg = ""
End If
MsgBox "今日は" & Format(Date, "yyyy年mm月dd日(aaa)") & "です。" & _
vbCrLf & strMsg, vbQuestion, "元気があればなんでも出来る"
End Sub
|
|