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

2024-12-03 20:40:55

推荐回答（2个）

回答1：

那个链接已经有人写出具体代码了

同按ALT+F11这两个键

将以下代码粘贴到对应的工作表中（不要插入新模板）即可

Private Sub Worksheet_Change(ByVal Target As Range)
'自动在原单元格计算
Application.EnableEvents = False     '禁止触发连锁事件
If Target.Column = 1 Then   '只在A列进行自动计算
    If IsNumeric(Target.Value) = True Then   '如果活动单元格的值是数字，则进行计算
        Target.Value = Target.Value * 1.17
    End If
End If
Application.EnableEvents = True     '允许触发连锁事件
End Sub

回答2：

要vba来完成