今天回答了一个悟空问答,我觉得应该让更多人知道这个操作,现在我写成文章再发送一遍,大家可以看看有需要的收藏起来吧。
这个分两种操作二种形式:
第一种操作是单击单元格数值增加;第二种操作是双击单元格数值增加。
第一种形式是整个工作表点击都会增加,第二种形式是指定工作表中的某部分或某个单元格数值增加。
小编知道的方法是按照制作宏代码来实现的,下面我先分享代码吧。
首先是单击单元格数值增加的代码(全工作表):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Target.Value + 1
End Sub
其次是单击单元格数值增加的代码(指定单元格‘代码以F9至H11为例’):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 8 And Target.Row < 12 And Target.Column > 5 And Target.Column < 9 Then Target.Value = Target.Value + 1
End Sub
接下来是双击单元格数值增加的代码(全工作表):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target.Value = Target.Value + 1
End Sub
再下来是单击单元格数值增加代码(指定单元格‘代码以F9至H11为例’):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 8 And Target.Row < 12 And Target.Column > 5 And Target.Column < 9 Then Target.Value = Target.Value + 1
End Sub
以上代码可以直接复制使用,四种可能出现的也都告诉大家了,要指定的单元格参数可根据自己的需要进行更改。
那么要怎么来使用这个宏代码呢?
四种使用方法一样,我就只给提问者用一种作为图例解说出来吧!
1、打开文档
2、按“ALT+F11”组合键调出宏编辑
3、选择我们需要添加的工作表(我选Sheet1),并双击进入
4、黏贴复制好的代码
5、直接关闭宏窗口回到工作表检验一下吧
看,确定的范围已经可以双击自动增加1了,当然这个代码里面数字“1”可以更改为你想加的任何数值,这样的操作你学习到了吗?
希望大家多多关注支持,谢谢!