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

发布网友

我来回答

共2个回答

热心网友

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

同按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

热心网友

要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