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

根据另一个细胞范围更改细胞范围

1 个答案: