ＥＸＣＥＬについて

質問

こんにちわ！エクセル初心者です。
ＥＸＣＥＬで「立ち上げたときには自動で今日の日付を表示させずに、表示させたいセルをクリックしたら、日付が表示させる」方法を教えていただいたのですが、ワークシートのSelectionChangeイベントに、「Target.Value = Date」と入れましたら、必要以外のところのセルもクリックすると、日付が表示されてしまいます。
例えば、Ｄ列のセルだけをクリックすると日付が表示され、ほかの列のセルはクリックしても、日付が表示されない方法はないでしょうか？
よろしくお願いします。

回答No.3

zap35 · ベストアンサー

#01,02です。ご参考に

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intCOL, intROW As Integer
intCOL = Target.Column
intROW = Target.Row
If intCOL = 4 Or intCOL = 6 Or intCOL = 8 Then　'Ｄ，Ｆ，Ｈ列で
If intROW >= 4 and intROW =< 23 Then　’４～２３行目のとき
Target.Value = Date
End If
End If
End Sub

もしくは
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cl As Range
'指定したレンジの範囲のときだけDATEをセット
For Each cl In Range("D4:D23,F4:F23,H4:H23")
If Target.Address = cl.Address Then
Target.Value = Date
End If
Next
End Sub

お礼

本当に助かりました。ありがとうございました！！
また、助けてください・・・よろしくお願いします。

回答No.2

zap35

＃０１です。とりあえず簡単で分かりやすいのは

If Target.Column 4 or Target.Column = 6 or Target.Column = 8 Then

でしょう。Ｆ列：６、Ｈ列：８です
（もっと対象が多い場合は配列を使うほうが便利です）

お礼

ありがとうございます。できました！
が、たとえばF列６の行１～３やH列の行１～３に
文字（テキスト文章）を入れようとクリックすると、自動で日付が表示されてしまっております。
その部分だけ（F列６の行１～３やH列の行１～３）はクリックしても日付を表示させずに、そのほかの行（たとえばF列６の行４～２３）に日付を表示させる方法はありますでしょうか？
よろしくお願いします。

回答No.1

zap35

Ｄ列のセルに限定したいなら
If Target.Column = 4 Then
Target.Value = Date
End If
のようにすると良いですよ。COLUMUN=4 がＤ列を意味します（Ａ列が１）

下の例は A4セルに限定したものです。ご参考まで。
If Target.Address = "$A$4" Then

お礼

ありがとうございます。
もし、Ｄ列のほかにＦ列とＨ列も同じようにしたいときはどのようにすればよいでしょうか？