Excel细胞明智的减法

时间:2016-02-10 10:29:09

标签: excel-vba vbscript vba excel

我在excel中有一个工作表,我需要执行减法,只有列中包含值,结果应自动存储在每个单元格的单元格中。例如 强文

** JobExpense提前余额

4500 100 4400

8000 4000 4000

9800 5000 4800 **

将此视为我的工作表我需要在用户在高级列中输入值时自动存储Balance列的内容。 任何帮助都是值得的。公式,vbscipt无论如何。 我已经尝试了公式,但只要在列

中使用公式,它就会始终显示零

1 个答案:

答案 0 :(得分:1)

假设作业费用为ColumnA,列B中为Advance,ColumnC中为Balance,则提供以下代码。

当ColumnB单元格中发生任何更改时,以下代码将起作用。

复制以下代码并右键单击工作表标签并选择查看代码并粘贴它。

关闭VBA窗口(Alt + Q关闭VBA窗口)并返回该工作表并检查。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then
    Application.EnableEvents = False
        With Target
            .Offset(, 1).Value = Val(.Offset(, -1).Value) - Val(.Value)
        End With
    Application.EnableEvents = True
End If

End Sub