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

2015/09/07 07:56

このQ&Aのポイント

Excelのマクロを使用して、複数のセルにIFを指定する方法を教えてください。
また、セルA1をダブルクリックした時に、セルC1も同時に増やす方法も教えてください。
お願いします。

shigeruuji7803
お礼率100% (2/2)

Excel（エクセル）
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

keithin
ベストアンサー率66% (5278/7941)

2015/09/07 12:02 回答No.2

＞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

質問者

お礼 2015/09/07 12:26

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

ログインすると、全ての回答が全文表示されます。

その他の回答 (1)

dogs_cats
ベストアンサー率38% (278/717)

2015/09/07 09:02 回答No.1

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

質問者