>>842
とりあえずこれで動くけど、何か説明が抜けてない？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　If Intersect(Target, Range("A1:A100,B1:B100,D1:D100")) Is Nothing Then Exit Sub
　　If Target.Column = 1 Then　'A列
　　　　Target.Value = Target.Value + 1
　　ElseIf Target.Column = 2 Then　'B列
　　　　Target.Value = Date
　　　　Target.Offset(, 1).Value = Time
　　ElseIf Target.Column = 4 Then　'D列
　　　　Target.Value = Time
　　End If
　　Cancel = True
End Sub