Excelのマクロで、IFを複数セルに指定するには

質問

セルA1、B1、C1をダブルクリックすると各セルの値が+1ずつ増える

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then Target.Value = Target.Value + 1: Cancel = True
If Target.Address = "$B$1" Then Target.Value = Target.Value + 1: Cancel = True
If Target.Address = "$C$1" Then Target.Value = Target.Value + 1: Cancel = True
End Sub

というマクロを使用致しておりますが、これに追加で
セルA1をダブルクリックした時に、A1と同時にセルC1も＋１増やせる
方法があれば教えて頂けると幸いです。
宜しくお願い致します。

回答No.2

keithin · ベストアンサー

＞A1をダブルクリックした時に、A1と同時にセルC1も＋１増やせる

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then Target.Value = Target.Value + 1: range("C1") = raneg("C1") + 1 : Cancel = True
If Target.Address = "$B$1" Then Target.Value = Target.Value + 1: Cancel = True
If Target.Address = "$C$1" Then Target.Value = Target.Value + 1: Cancel = True
End Sub

お礼

をを！まさしくこの回答を探しており、とても助かりました。
心より感謝致しております。
本当にありがとう御座いました。

回答No.1

dogs_cats

A1時にのみC1も数値を増加させるのであれば下記でも可能です。
指定セル範囲以外はsubを抜けるとすれば、if文を繰り返さなくても処理が可能です。
セル範囲が大きい場合や列全体や、行全体を指定する場合は便利です。

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

If Intersect(Target, Range("A1:C1")) Is Nothing Then Exit Sub
If Target.Address = "$A$1" Then
Target.Value = Target.Value + 1: Cancel = True
Target.Offset(0, 2).Value = Target.Offset(0, 2).Value + 1
End If
Target.Value = Target.Value + 1: Cancel = True

End Sub

A１~C1　WクリックでC１~E1の数値を増加させるのであれば下記方法でも可能です。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

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

Target.Value = Target.Value + 1: Cancel = True
Target.Offset(0, 2).Value = Target.Offset(0, 2).Value + 1

End Sub

お礼

素早い回答ありがとう御座いました。
今回は膨大なIFの繰り返しを入力してしまっていたので、
使用できませんでしたが、とてもわかりやすく理解できましたので、
今後の入力にはとても役立つ勉強になりました。
ありがとう御座いました。