设想是可行的。只是如果你人数很多,那你要添加的+1这个按钮控件,也未免太多了一些。
个人以前统计过全市所有行政事业部门的民议考核,采用的是工作表事件代码,做双击,右击,左击等操作。不需要做按钮。
方法是
假设这个工作表是sheet1
菜单,工具,宏,安全性,“中”,确定
alt+f11
左边工程框双击sheet1
将下面的代码复制到右边空白区,
存盘退出。重新打开这个文件,打开时,选择“启用宏”
然后你在C列任一单元格,双击左键,会自动加1,单击右键,会自动减1(这是为了解决误操作了双击)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '双击+1
Application.EnableEvents = False
Cancel = True
If Target.Row < 2 Or Target.Column <> 3 Then Exit Sub
Target.Value = Target.Value + 1
Application.EnableEvents = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) '右击-1,如果输错了,可以右击一次
Application.EnableEvents = False
Cancel = True
If Target.Row < 2 Or Target.Column <> 3 Then Exit Sub
Target.Value = Target.Value - 1
Application.EnableEvents = True
End Sub
温馨提示:答案为网友推荐,仅供参考