如题所述
第1个回答 2017-07-06
右击你要判断的工作表，查看代码。将下面几段代码复制进去
当你改变单元格就会弹出提示数值被改变
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本回答被提问者采纳
当你改变单元格就会弹出提示数值被改变
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本回答被提问者采纳
第2个回答 2017-07-06
或者
(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
然后点选你想要坐标的点就好了
(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
然后点选你想要坐标的点就好了
第3个回答 2020-09-26
1，按f9刷新数据，即便a1数据变了，也不能触发该事件；
2，选中其他单元格，即便a1数据变了，也不能触发该事件；
3，选中a1，b1没变动一次，都会触发该事件，而不管a1的值是不是改变了。
2，选中其他单元格，即便a1数据变了，也不能触发该事件；
3，选中a1，b1没变动一次，都会触发该事件，而不管a1的值是不是改变了。
第4个回答 2019-11-07
因为EXCEL中单元格、工作表等并不是VBA控件，不能触发事件。
所以我觉得不能实现这种功能。
建议导入ACCESS数据库，在窗体中能轻易实现。
所以我觉得不能实现这种功能。
建议导入ACCESS数据库，在窗体中能轻易实现。
第5个回答 2017-07-06
就是change事件啊
