2012-12-21 73 views
1

这是Excel/VBA问题:透明细胞内容

我在sheet1(简单地A1='sheet1'!A1)的小区A1 Sheet 2中链接的单元格A1A1sheet1是一个数据验证下拉菜单。

我想清除A2的内容sheet2每次更新/更新工作表2中的A1的内容。这是每次使用下拉菜单更改sheet1中的A1的值时。

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

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 

你能想到一个简单的解决方案,以清除sheet2更新单元A2sheet2A1的内容?

回答

3

这对我的作品......

这一代码进入在Sheet1

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

+1最好还是禁止的情况下,有在Sheet2上进一步代码事件:) – brettdj