我认为这应该是一个简单的直接问题,但我对VB编码很新。
我想将A1的内容复制到B1,B1完全可编辑,但是如果对A1进行了任何更改,则内容将再次复制到B1。 以下代码复制内容,但是在任何更改时,我只希望在对A1进行更改时激活它。
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A3").Formula = Range("A1").Formula
End Sub
感谢您的帮助, 好色
答案 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”已更改,您可以检查此事件。但可能你的功能必须经常检查。