|
Sub try()
Dim r As Range
Dim rr As Range
Dim d As Variant
On Error Resume Next
Set rr = Application.InputBox("セル範囲をマウスで指定して", Type:=8)
If rr Is Nothing Then Exit Sub
d = Application.InputBox(prompt:="判定したい日付を入力してください。", Type:=2)
If Not IsDate(d) Then Exit Sub
On Error GoTo 0
For Each r In rr
If IsDate(r.Value) Then
If r <= DateValue(d) Then
r.Interior.Color = RGB(255, 255, 130)
End If
End If
Next
Set rr = Nothing
End Sub
こんな感じでしょうか?
>「カレンダーコントロール」というのもあるようですが、
>Office2003でもバージョンが違うと使えないようです。
確かAccessがインストールされていないと使えなかったと思います。
|
|