更改一个单元格时清除一个单元格的内容-对于多个单元格

Question

我已经找到了答案，但是找不到符合我需求的任何东西。 我正在创建一个工作表，其中将包含需要相同功能的多行。 例如，在第2行中-我需要D2：F2的内容来清除B2中的值是否更改。

我找到了一个VBA代码，该代码非常适合该实例。 但是，我在第6行，第10行，第14行等中也需要相同的功能-每第4行直到总共118-30行。

每行都必须是唯一的。 如果更改B2中的值，我不希望它清除其他行中的值-仅清除第2行。如果更改B6中的值，我只希望更改第6行中的值...并且以此类推。

这是我用于B2的代码，但是我不确定是否可以为更多行修改它，或者我是否需要完全不同的代码。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        Range("D2:F2").ClearContents
    End If
End Sub

请指教-谢谢！

Answer 1

您可以使用MOD ：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 118 Then Exit Sub
    If Target.Row Mod 4 = 2 And Not Intersect(Target, Cells(Target.Row, 2)) Is Nothing Then
        Range("D" & Target.Row & ":F" & Target.Row).ClearContents
    End If
End Sub

Answer 2

第一限制Target.Row 2和118之间。

其次，使用Mod仅检查第四行。

试试下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row >= 2 And Target.Row <= 118 Then
    If (Target.Row + 2) Mod 4 = 0 Then
        If Target.Column = 2 Then
            Target.Offset(, 2).Resize(1, 3).ClearContents
        End If
    End If
End If

End Sub