如何使用按钮增加值列表

Question

我正在尝试管理 Excel 数据库中的学生列表。我正在尝试创建一个按钮，单击该按钮时，学期列将增加 1。我尝试使用 active-x 按钮和微调器，但没有实现我的目标。我的问题是更改整个列（或选定范围）并使选定单元格增加 1。这将操作数百行。

以下是示例数据：

按下按钮之前：2、4、1、6、7......

按下按钮后：3、5、2、7、8......

谢谢您的帮助！

Answer 1

以下是范围内数值的示例A2通过A78. 将此代码放在标准模块中：

Sub Incrementer()
    Dim rr As Range
    Set rr = Range("A2:A78")
    For Each r In rr
        r.Value = r.Value + 1
    Next r
End Sub

放置按钮（或其他形状）在包含数据的工作表上并将宏分配给按钮。