如何在excel表格中实现点击某单元格一次,该单元格内数字增加1。 5
4个回答
展开全部
追问
如何在多个单元格中都能实现
追答
只要改变条件语句 任何单元格都一样
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果是要求双击单元格,该单元格数字增加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
如果只是单击一下单元格就想这样,则按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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
Target.Value = Target.Value + 1
End Sub
双击该单元格效果就会出来了
如果是单击那么
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Target.Value + 1
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询