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

Question

我正在寻找基于值更改的代码，它执行以下操作：在我在A栏中键入数字后，B栏将显示5%的税收计算，C栏将显示含税总额，

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

Answer 1

在选择更改的情况下，尝试将此公式设置为"Col B=A1*0.05 and 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