根據另一個單元格范圍更改單元格范圍

Question

我需要根據另一個單元格的值來更改一個單元格，以下代碼對我來說非常合適。

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$D$10")) Is Nothing Then _
Sheets("contract").Range("$D$11").ClearContents
End Sub

我需要將此代碼擴展到一定范圍的單元格，我的意思是F11應該基於F10進行更改，而H11應該基於H10進行更改。 我知道我可以對這些代碼進行硬編碼，但是，我認為可能會有一個更聰明的解決方案。 請幫忙

感謝Harsha Ganipineni

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    'only react to changes in A10:Z10
    Set rng = Application.Intersect(Target, Range("A10:Z10"))
    If Not rng Is Nothing Then '<<EDIT 
          Sheets("contract").Range(rng.address()).Offset(1,0).ClearContents
    End If
End Sub