|
こんにちは。以前こちらでお世話になったものです。
下記のようにI列のセルをダブルクリックすると、★マークが付くようになっています。
それと同時に、同じ行の日付が記入されているD列に今日の日付に変わる設定したいです。
やってみたのですが、I列に★がつく代わりに、日付が入ってしまします。
お手数ですが、ご教授をお願いいたします。
(例)
D100:8/15 I100:空白
I100をダブルクリックすると
D100:8/11 I100:★
に変わるようにしたい
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim CHK_FLG As Boolean
CHK_FLG = True
If Intersect(Target, Range("I3:I3000")) Is Nothing Then CHK_FLG = False
If CHK_FLG Then
If Target.Value = "" Then
Target.Value = "★"
Selection.Offset(0, -5).Select
Target.Value = Date
Cancel = True
End If
Exit Sub
End If
End Sub
|
|