Question

我正在寻找基于价值变动的代码，该代码执行以下操作：在A栏输入数字后，B栏将显示5％的税额计算，C栏将显示总税额，

我知道我可以在Col B =A1*0.05和=A1+B1中使用公式，但是每次添加新行时我都必须复制公式并将其向下拖动，我想实现自动化这个过程。

Answer 1

在选择更改的情况下，尝试使用公式“ Col B = A1 * 0.05和Col C = A1 + B1”（不要忘记捕获在A列上使用的行）

Answer 2

自动化这样一个简单的任务似乎有点过分，但是这样做很容易：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Target
        If .Count > 1 Then Exit Sub
        If (Not Intersect(Columns("A:A"), .Cells) Is Nothing) And IsNumeric(.Value2) Then
            .Offset(0, 1).Value2 = .Value2 * 1.05
        End If
    End With
End Sub

VBA用于在输入单元格值后在单元格范围内自动进行公式计算

2 个答案: