我如何遍歷If / Then語句

Question

我在第I列中有一個父下拉框，在第J列中有一個子下拉框，它們會根據第I列而變化。

如果第I列發生更改，我希望重置第j列，而不是保留其原始值。

我的第一行有這段代碼

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "I2" Then Range("J2").ClearContents
End Sub

我如何讓它遍歷每一行？

非常感謝，詹姆斯

Answer 1

您是說只要更改I中的值，就想要清除J中的相應值？ 最好將I / J限制在特定范圍內-這將完成整個專欄文章。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.column = 9 Then target.offset(,1).ClearContents
End Sub

Answer 2

我將檢查Target范圍是否與列I相交，然后遍歷更改范圍內的所有單元格。 您可以在循環內使用.Row屬性清除相應的單元格：

Private Sub Worksheet_Change(ByVal Target As Range)
    'Did something change in column I?
    If Intersect(Target, Me.Range("I:I")) Is Nothing Then
        Exit Sub
    End If

    Dim test As Range
    'Loop through all of the changed cells.
    For Each test In Target
        'If the cell is in column I... 
        If test.Column = 9 Then
            '...clear column J in that row.
            Me.Cells(test.Row, 10).ClearContents
        End If
    Next
End Sub