Question

Excel vba中怎样填写数值改变单元格后触发事件

Answer 1

右击你要判断的工作表，查看代码。将下面几段代码复制进去
当你改变单元格就会弹出提示数值被改变
Dim a
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If a <> Target.Value Then
MsgBox "单元格数值被改变了！"
End If
End Sub

Answer 2

或者
(defun c:a()
(getpoint
(setq a (getpoint "dian"))
(setq b (strcat "("(rtos (car a) 2 0) "," (rtos (cadr a) 2 0) "," (rtos (caddr a) 2 0) ")"))
(command "-text" a "" "" b "")
)
)

把上面的东西粘贴到记事本里,然后记事本改为.lsp格式文件,打开cad,运行"ap",然后选择刚才的lsp文件加载,返回到cad主界面,在命令行输入a
然后点选你想要坐标的点就好了

Answer 3

1，按f9刷新数据，即便a1数据变了，也不能触发该事件；
2，选中其他单元格，即便a1数据变了，也不能触发该事件；
3，选中a1，b1没变动一次，都会触发该事件，而不管a1的值是不是改变了。

Answer 4

因为EXCEL中单元格、工作表等并不是VBA控件，不能触发事件。
所以我觉得不能实现这种功能。
建议导入ACCESS数据库，在窗体中能轻易实现。

Answer 5

就是change事件啊