Excel同一个单元格输入数字后自动加减乘除

Answer 1

Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
Application.EnableEvents
=
False
'禁止触发连锁事件
If
Target.Column
=
10
Then
Target.Value
=
Target.Value
*
1.17
End
If
Application.EnableEvents
=
True
'允许触发连锁事件
End
Sub
如果输入的数据在第10列，也就是J列，进行计算，试试吧，工作表事件，要放到工作表中。