Question

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

如题举例，我希望能够在同一个单元格内针对我输入的数字自动进行计算，之后显示计算后结果，而非输入的数字，例如：我希望输入数字乘以1.17，我输入“100”，敲击回车后，该单元格显示为“117”，而不是我输入的100

Answer 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

追问

非常感谢，我只需要单个单元格有这种效果，不是都要这样的，另外有没有在单元格格式-自定义 里可以设置成这样？

追答

只有VBA才能做到这样自动计算

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

Answer 2

要vba来完成

追问

你能写个代码给我吗，谢谢！

网页链接， 可以看看这个网址的内容

追答

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Application.EnableEvents = False
Target = Target * 1.17
Application.EnableEvents = True
End If
End Sub