Vba 基于另一个单元格计算清除单元格内容

这是一个Excel/VBA问题：

我在sheet2中有一个单元格A1，链接单元格

A1

在

sheet1

中（简单地说就是

A1='sheet1'！A1

）<

sheet1

中的code>A1是一个数据验证下拉菜单

每当第2页中的

A1

内容更改/更新时，我想清除第2页中的

A2

内容。即每次使用下拉菜单更改

sheet1

中

A1

的值时

我尝试使用一个

工作表\u Change

事件宏（我不完全理解），但它无法使用从计算更新的单元格。如果从另一个工作表的单元格触发，它也不起作用（在本例中，我尝试将它链接到

sheet1

上的单元格

A1

）

当

sheet2

中的

A1

更新时，您能想出一个简单的解决方案来清除

A2

中

sheet2

单元格的内容吗？

这对我很有效

该代码位于活页1的活页代码区域

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then _
    Sheets("Sheet2").Range("A2").ClearContents
End Sub

---

+1最好还是禁用事件，以防表单上有进一步的代码2:）

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then _
    Sheets("Sheet2").Range("A2").ClearContents
End Sub