右键SHEET1
查看代码
复制代码
下列代码
Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
Application.EnableEvents
=
False
'
防止自动变化后重复激发事件，导致循环溢出..
Target.Value
=
Val(Target.Value)
*
4
Application.EnableEvents
=
True
End
Sub
关闭窗口
返回EXECL
,在单元格里输入4
，结果为16
分你看着给吧！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024