|
▼kanabun さん:
ありがとうございます。
Auto_Openで表示させているのですが
未入力の場合"今日は" & Format(Date,・・・の部分だけは
表示させたいのですが、出来ませんか?
よろしくお願いします。
Sub Auto_Open()
'==========================================================
Dim c As Range
Dim diff As Long
Set c = Worksheets(1).[F37]
If IsDate(c.Value) Then
diff = CLng(Date) - c.Value2
Select Case diff
Case Is < 0
MsgBox "今日は" & Format(Date, "yyyy年mm月dd日(aaa)") & "です。" _
& vbCrLf & vbCrLf & "リミット日まであと残り" & -diff & "日。", vbQuestion, "元気があればなんでも出来る"
Case Is > 0
MsgBox "今日は" & Format(Date, "yyyy年mm月dd日(aaa)") & "です。" _
& vbCrLf & vbCrLf & "リミット日から" & diff & "日超過です。", vbQuestion, "元気があればなんでも出来る"
Case Is = 0
MsgBox "今日は" & Format(Date, "yyyy年mm月dd日(aaa)") & "です。" _
& vbCrLf & vbCrLf & "" & "リミット日は本日ですよ。", vbQuestion, "元気があればなんでも出来る"
End Select
End If
End If
End Sub
>
>こんな感じですかね?
>'---------------------
> Dim c As Range
> Dim diff As Long
>
> Set c = Worksheets(1).[F37]
> If IsDate(c.Value) Then
> diff = CLng(Date) - c.Value2
> Select Case diff
> Case Is < 0
> MsgBox "あと残り" & -diff & "日"
> Case Is > 0
> MsgBox diff & "日超過です"
> End Select
> End If
>
>今日が当日だった場合は入れてませんが
|
|