Question

excel中怎么实现按一下，让单元格的数值自动加1

Answer 1

1、先输入选项和题目如图

2、按住alt+F11，出现如下窗口

3、打开代码窗口，把如下代码复制进去

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Target = Target + 1End Sub

4、保存，然后右上角叉叉

5、最后就是这样点一下，数字就会 加一，弄好之后再按alt+F11，把代码删除，保存即可

Answer 2

亲，见下面的测试结果和代码：

 

Private Sub SpinButton1_SpinDown()
[A1] = Left([A1], Len([A1]) - 3) & Format(Application.WorksheetFunction.Max(1, Right([A1], 3) - 1), "000")
End Sub
Private Sub SpinButton1_SpinUp()
[A1] = Left([A1], Len([A1]) - 3) & Format((Right([A1], 3) + 1), "000")
End Sub