[已解决]点击增加一

ykfexcel

求教各大侠：怎么样才实现，每点击一次，单元格的值就增加一

最佳答案

月排行榜 / 总排行榜

lisachen

2011-5-25 22:43

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. On Error Resume Next
   
4.     If Target.Column < 10 Then
   
5.          Target = Target + 1
   
6.     End If
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

ljzzlan

是否可以举个例子呢？感觉会用到V＞＞＞？？？

lisachen

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. On Error Resume Next
   
4.     If Target.Column < 10 Then
   
5.          Target = Target + 1
   
6.     End If
   
7. End Sub
   

复制代码

ykfexcel

谢谢你能关注，我的意思是在给某个人评分时，有很多人打分，为便于统计，在某个项目中有3人打“√”，那就点击了三次，其单元格的数值也就显为“3”

hongqiqqq

看样子时回不来了，点的越多，升的越高