|
▼コーヒー さん:
こんにちは
Selection.Offset(0, -5).Select
こうしても Targetは変わりません。I100 等のままです。
ですから
Target.Value = Date
これで、せっかく 星を付けたセルに日付が書きこまれます。
やるなら Selection.Value = Date でしょうけど、このためにわざわざセルを選択する必要はありません。
CHK_FLG の設定と判定も(アップされたコードだけからいえば)不要だと思います。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("I3:I3000")) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Value = "★"
Target.Offset(, -5).Value = Date
Cancel = True
End If
End Sub
こうしても
>こんにちは。以前こちらでお世話になったものです。
>
>下記のように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
|
|