在单元更新上运行宏 - 将Excel数据导出到SQL Server数据库

Question

每当我的Excel电子表格中的单元格更新时，如何自动运行宏？

Private Sub Worksheet_Change(ByVal Target As Range) 

If Target.Address = "A1" And Target.Value > 0 Then 
    MsgBox ("A1 has changed.") 
    Application.Run("A1Changed") 
End If

End Sub

但只有当价值变为正数时才会这样。当对A1进行任何更改时，如何将此宏跳转到操作中？另外，使用私有Sub意味着这将不断监视我的电子表格以获取更新吗？

我的问题是在更新或更改单元格时将数据从excel导出到SQL Server。

Answer 1

嗯，删除部分“And Target.Value＆gt; 0”

VBA Private Sub只能从它所在的模块中的任何位置进行调用。