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

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

3、打开代码窗口,把如下代码复制进去
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Target = Target + 1End Sub

4、保存,然棍王后右上角叉叉

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

时间:2026-02-14 20:48:31
1、先输入选项和题目如图

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

3、打开代码窗口,把如下代码复制进去
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Target = Target + 1End Sub

4、保存,然棍王后右上角叉叉

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