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”已更改，您可以检查此事件。但可能你的功能必须经常检查。

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

2 个答案: