Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


19242 / 76732 ←次へ | 前へ→

【62926】任意の日付データの取得方法。
質問  ぽてちん  - 09/9/18(金) 9:46 -

引用なし
パスワード
   62827でシートの日付データを塗りつぶす件で質問をさせていただきました。
りおりおさんありがとうございました。

今回は、その内容で、「今日の日付」から「任意の日付を入力する」に変わった場合の対処方法を考えています。

▼りおりお さんのご回答:
>Sub try()
> Dim r As Range
> Dim rr As Range
>
> On Error Resume Next
> Set rr = Application.InputBox("セル範囲をマウスで指定して", Type:=8)
> If rr Is Nothing Then Exit Sub
> On Error GoTo 0
>
> For Each r In rr
>   If IsDate(r.Value) Then
>    If r <= Date Then
>      r.Interior.Color = RGB(255, 255, 130)
>    End If
>   End If
> Next
>
> Set rr = Nothing
>End Sub
>
>

Dateのところが任意の日付の入った変数になればと思うのですが、

  d = Application.InputBox(prompt:="判定したい日付を入力してください。, Type:=8)
  
  If IsDate(d.Value) Then Exit Sub
  On Error GoTo 0

と書いてみましたが、エラーになってしまいます。
入力する形式も決めないといけないでしょうか。
日付の入力は意外に面倒です。

「カレンダーコントロール」というのもあるようですが、
Office2003でもバージョンが違うと使えないようです。

なんとか、日付を入力してもらって、判定させたいので宜しくお願いいたします。

2 hits

【62926】任意の日付データの取得方法。 ぽてちん 09/9/18(金) 9:46 質問
【62927】Re:任意の日付データの取得方法。 りおりお 09/9/18(金) 10:49 発言
【62928】Re:任意の日付データの取得方法。 ぽてちん 09/9/18(金) 13:33 お礼

19242 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free