根据其他单元格计算清除单元格内容

时间:2012-12-21 18:10:04

标签: excel vba excel-vba

这是一个Excel / VBA问题:

我在A1中的sheet2链接的单元格sheet1中有一个单元格A1(只是A1='sheet1'!A1)。 A1中的sheet1是数据验证下拉菜单。

每当sheet2中A2的内容更改/更新时,我想清除sheet2A1的内容。这是每次使用下拉菜单更改A1sheet1的值时。

我尝试使用Worksheet_Change事件宏(我并不完全理解),但它不适用于从计算更新的单元格。如果从另一个工作表中的单元格触发它也不起作用(在这种情况下,我尝试将其链接到A1上的单元格sheet1)。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Range("A2").ClearContents
End Sub

A2更新sheet2时,您能想到一个简单的解决方案来清除A1中的单元格sheet2的内容吗?

1 个答案:

答案 0 :(得分:3)

这对我有用......

此代码位于Sheet1的Sheet代码区域

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