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

【问题标题】：Increment value in range by specific number按特定数字递增范围内的值
【发布时间】：2020-08-06 20:17:03
【问题描述】：

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

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

【问题讨论】：

标签： excel vba variables counter increment

【解决方案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) 转到开发人员 --> 插入 --> 表单控件（按钮）这将打开分配 MAcro 窗口。选择添加号码。点击确定。

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

【讨论】：

非常感谢！