使用Excel VB，更新特定的单元格，对其他特定单元格的任何更改

Question

我认为这应该是一个简单的直接问题，但是我对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”。但是可能你的功能需要经常检查。