空欄のセルをダブルクリックした時に現在の年月日を入力させたいのです。

質問

空欄のセルをダブルクリックした時に現在の年月日を入力させたいのです。
そして同時に隣のセルにも現在時間を入力させたいのです。
また、その隣のセルをダブルクリックした時にも現在時間を入力させたいのです。
エクセル2007を使用しています。

（例）C1からC30までのセルをダブルクリックした時にC1からC30に現在年月日を表示させ、D1からD30に現在時間を表示させる。
また、E1からE30をダブルクリックした時にE1からE30に現在時間を表示させる。

上記の事をやりたいのですが、C1からC30の現在年月日の入力までしかうまくできないのです。

どのようにすればうまくできるか、VBAに詳しい方、ご教授お願い致します。

現在までのコードは以下のように入力しました。

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Range("C1:C1000")) Is Nothing Then Exit Sub

If ActiveCell = "" Then
ActiveCell = Date
Cancel = True
End If

End Sub

初心者なので、詳しい変更方法の解説をお願いします。

また、このエクセルを保存する時に「プライバシーに関する・・」というダイアログが出てくるのですが出ないように変更できますか？
出さないようにできる方法があれば教えて下さい。

よろしくお願い致します。

回答No.3

ichhabehunger · ベストアンサー

こんばんは。

まぁみなさんと大差ないけど、私なら

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("C1:C30,E1:E30")) Is Nothing Then Exit Sub
If Target.Column = 3 Then
Target.Value = Date
Target.Offset(, 1).Value = Time
ElseIf Target.Column = 5 Then
Target.Value = Time
End If
Cancel = True
End Sub

お礼

希望通りの事が出来ました。
ありがとうございました。

回答No.4

ichhabehunger

実は With が好きなので使ってみた。Visual C# も With が使えるといいのになぁ。

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("C1:C30,E1:E30")) Is Nothing Then Exit Sub
With Target
If .Column = 3 Then
.Value = Date
.Offset(, 1).Value = Time
ElseIf .Column = 5 Then
.Value = Time
End If
End With
Cancel = True
End Sub

お礼

希望通りの事が出来ました。
ありがとうございました。

回答No.2

DreamyCat

If Not Intersect(Target, Range("C1:C1000")) Is Nothing Then
If ActiveCell = "" Then
ActiveCell.Value = Date
ActiveCell.Offset(, 1).Value = Hour(Now())
End If
End If

If Intersect(Target, Range("E1:E1000")) Is Nothing Then Exit Sub
ActiveCell.Value = Hour(Now())

Cancel = True

これでどうぞ。年月日や時刻の書式はformat関数を調べてみてください。

＞＞「プライバシーに関する・・」　　＜＜
　これはわかりませんが、セキュリティレベルを一番下げてしまう　かな？

お礼

希望通りの事が出来ました。
ありがとうございました。

回答No.1

web2525

C列に日付表示と同時にD列に時刻表示は
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Range("C1:C1000")) Is Nothing Then Exit Sub

If ActiveCell = "" Then
ActiveCell = Date
ActiveCell.Offset(0, 1) = Time　'この部分が追加
Cancel = True
End If

End Sub

で可能

お礼

希望通りの事が出来ました。
ありがとうございました。