使用Excel VB，更新特定的单元格，对另一个特定的单元格进行更改

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

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

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

谢谢你的帮助，兰迪

Answer 1

你可以使用这个代码：

 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 

Answer 2

这里是一个关于Excel中的事件的页面cpearson.com/excel/Events.aspx

没有什么像“cell_changed”。 你可以得到的最好的是“Worksheet_change”，但是每当工作表上的东西发生变化时，就会触发它。 当然，如果这个事件是“A1”发生了变化，你可以检查这个事件。 但是，你的function可能会经常检查。