按特定数字增加范围内的值

Question

对于一个工作项目，我正在尝试构建一个 excel sheet，让用户在对话框（或单元格）中输入数字，一旦按下确认按钮，所有特定范围内的数字应按用户输入的特定值递增。我的范围是 B2:B100 并且所有单元格要么用数字填充，要么为空。

当用户完成他的工作时，他们会输入他们的价值，例如单元格 J3，然后按下下方的切换按钮。 J3 将被清除，B2:B100 中的所有值将增加输入的数字。对涵盖此内容的资源的任何帮助或指导将不胜感激。非常感谢。

Answer 1

1) 在 Excel 中，按 Alt + F11 2) 它将打开 VBA 编辑器。在编辑器中复制粘贴以下代码。

Sub addNumbers()

    Dim i As Long
    Dim incrementValue As Long

   incrementValue = Cells(3, 10).Value


            For i = 2 To 100
                    Cells(i, 2).Value = Cells(i, 2).Value + incrementValue
            Next i


End Sub

3)保存此代码

4) 转到开发人员 --> 插入 --> 表单控件（按钮）这将打开 Assign MACro window。 Select 添加号码。单击“确定”。

5) 现在您可以在单元格 J3 中输入所需值，然后单击此按钮。它将按该特定值增加 Cells B2:B100。

按特定数字增加范围内的值

Increment value in range by specific number

variables

excel

vba

counter

increment