|
▼β さん:
ありがとうございました!!
詳しい説明をいただき、助かりました。
>▼コーヒー さん:
>
>こんにちは
>
> 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
|
|