使用Excel VBA,更新特定单元格,对其他特定单元格进行任何更改

时间:2011-03-22 14:17:54

标签: excel vba formula

我认为这应该是一个简单的直接问题,但我对VB编码很新。

我想将A1的内容复制到B1,B1完全可编辑,但是如果对A1进行了任何更改,则内容将再次复制到B1。 以下代码复制内容,但是在任何更改时,我只希望在对A1进行更改时激活它。

Private Sub Worksheet_Change(ByVal Target As Range)
   Range("A3").Formula = Range("A1").Formula
End Sub

感谢您的帮助, 好色

2 个答案:

答案 0 :(得分:2)

您可以使用此代码:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Range("B1") = Range("A1")
    End If
End Sub

答案 1 :(得分:0)

以下是关于Excel cpearson.com/excel/Events.aspx

中的事件的页面

没有像“cell_changed”这样的东西。你可以得到的最好的是“Worksheet_change”,但每次表格上的某些内容发生变化时都会触发。当然,如果是“A1”已更改,您可以检查此事件。但可能你的功能必须经常检查。