如何在excel表格中实现点击某单元格一次,该单元格内数字增加1。 5

 我来答
一点设计演示
高粉答主

2015-11-12 · 职场/教育各类模板,衷于原创
一点设计演示
采纳数:874 获赞数:83602

向TA提问 私信TA
展开全部

1.在该工作表的任意空白位置,找一个空单元格,输入数字“1”。

2.复制该单元格,两种方法:第一种方法选中后点“复制”;第二种方法选中后直接“Ctrl+C”。

3.然后选定要加1的单元格,用鼠标框起来。

4.在菜单栏选择“粘贴”→“选择性粘贴”即可。也可以点击鼠标右键,在弹出的右键菜单里选择“选择性粘贴”。

5.在弹出的“选择性粘贴”对话框中,“粘贴”下选择粘贴“数值”,“运算”下选“加”。选择后点击“确定”完成设置。

6.设置后的效果如图所示。可以看到,年龄列的数字都增加了1。

用同样的方法,也可以根据自己的需要设置增加2、3……N。

lnzzxzy
2011-10-05 · TA获得超过8126个赞
知道小有建树答主
回答量:1316
采纳率:80%
帮助的人:753万
展开全部

用以下宏代码实现 例中只对 "Sheet1中的$A$1"有效(注在工作簿事件中加 见图)

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

If Sh.Name = "Sheet1" And Target.Address = "$A$1" Then Target.Value = Target.Value + 1

'MsgBox Target.Address

End Sub

追问
如何在多个单元格中都能实现
追答
只要改变条件语句 任何单元格都一样
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
bosslxt
2011-10-06 · TA获得超过653个赞
知道小有建树答主
回答量:785
采纳率:33%
帮助的人:470万
展开全部
如果是要求双击单元格,该单元格数字增加1,则按网友“lnzzxzy”说的去做。
如果只是单击一下单元格就想这样,则按Alf+F11,在表1中复制以下代码即可:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Target.Value + 1
End Sub
此结果对全表(表1)的单元格都有效。
如果是仅针对某些单元格有效(例如B3至D5),则要具体写准范围:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 2 And Target.Row < 6 And Target.Column > 1 And Target.Column < 5 Then Target.Value = Target.Value + 1
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
我是来吓宝宝的
2015-11-04 · TA获得超过2.1万个赞
知道小有建树答主
回答量:4423
采纳率:88%
帮助的人:312万
展开全部
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Target.Value + 1
End Sub
双击该单元格效果就会出来了

如果是单击那么
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Target.Value + 1
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式