特定のセルの値を消去したい

A行はタイトル行で、A列からAI列まで入力欄があります。
例えば、AI2に”1”を入力すると、同じ行のC2〜E2、N2、W2〜AG2までの値が消去される様なvbaを教えてくださいませ。
同じくAI3に”1”の入力があったらC3〜E3、N3、W3〜AG3の値を消去です。

宜しくお願いいたします。

No.2 回答者： banzaiA 回答日時： 2017/07/04 13:53

マクロの記録を使って、実際にやってみてください。

コードが分かりますよ。

No.3 ベストアンサー 回答者： fujillin 回答日時： 2017/07/04 14:36

こんにちは

簡略な一例です。
以下を、シートモジュールに

Private Sub Worksheet_Change(ByVal Target As Range)
　Set t = Intersect(Target, Range("AI:AI"))
　If t Is Nothing Then Exit Sub
　For Each c In t
　　If c.Column = 35 And c.Row > 1 And c.Value = 1 Then
　　　Range("C1:E1,N1,W1:AG1").Offset(c.Row - 1).ClearContents
　　End If
　Next c
End Sub