如何统计这份表格的点击次数--领导急要

wangsj_2001 · 发表于 2012-2-11 13:28

本帖最后由 wangsj_2001 于 2012-2-11 13:36 编辑

大家好，单位刚做完满意度调查。原表共13个调查点，单位有300人。我要把他们的纸质调查表汇总起来，统计第一点有多少人满意，多少人不满意。第2点有多少人满意，多少人不满意，以此类推。原表是画对勾的形式让员工填写的。我把电子表格重新设计了一下，想通过点击选择按钮的方式来统计每一条调查里5个选项的人数，然后每一条调查后面建一个宏按钮，通过弹出窗体计算满意度的数量。比如第一条很满意点击了两次，满意点击了5次，弹出窗体就会显示点击的很满意和满意次数。或者不创建弹出窗体，直接在指定区域内生成结果。但是选择按钮太多了，是不是要定义很多的变量呀。我VBA水平也很一般，目前想不到很好的办法。还请大家多指教，看看有什么更好的办法，或者更简便的代码，谢谢。

该贴已经同步到 wangsj_2001的微博

lhdcxz · 发表于 2012-2-11 14:09

我认为统计倒在其次，首先是：你如何把300多人的纸质的调查表变成电子版的？

wangsj_2001 · 发表于 2012-2-11 14:49

lhdcxz 发表于 2012-2-11 14:09
我认为统计倒在其次，首先是：你如何把300多人的纸质的调查表变成电子版的？

不好意思，还是一页一页的看，然后在表格里面点击。

lhdcxz · 发表于 2012-2-11 16:47

本帖最后由 lhdcxz 于 2012-2-11 19:40 编辑

简单的统计很容易实现，自己加1就可以（可用4行×5个单元格代表4项×5种选择，点哪个就获得单元格的行列地址I,J，就把哪个加1，CELLS(I,J)=CELLS(I,J)+1）。关键是还要考虑点错了怎么办？因为已经统计了，用一般的“撤销”是不行的。
例如，区域在C5:G8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Row < 9 And Target.Row > 4 And Target.Column > 2 And Target.Column < 8) Then
Cells(Target.Row, Target.Column) = Cells(Target.Row, Target.Column) + 1
Range("b4").Select
End If
End Sub

新建 Microsoft Excel 工作表 (2).rar (6.09 KB, 下载次数: 42)

wangsj_2001 · 发表于 2012-2-11 20:21

lhdcxz 发表于 2012-2-11 16:47
简单的统计很容易实现，自己加1就可以（可用4行×5个单元格代表4项×5种选择，点哪个就获得单元格的行列地址 ...

谢谢您了，看了一些资料，但是还没遇见过您这样的代码，我水平还是很差，还要努力学习。在此还是要衷心感谢您了。

wangsj_2001 · 发表于 2012-2-11 20:59

lhdcxz 发表于 2012-2-11 16:47
简单的统计很容易实现，自己加1就可以（可用4行×5个单元格代表4项×5种选择，点哪个就获得单元格的行列地址 ...

您好，试了一下代码，挺好用的。但是还有一个疑问，我想保留这张表格，也许明年还能用上，就是当我统计完数据以后，想把数据清除，我只能在VBA里的立即窗口用[C5:G8].clear指令。请帮忙看一下还有什么好的办法或用什么代码来清除统计数据，谢谢。

lhdcxz · 发表于 2012-2-11 21:45

本帖最后由 lhdcxz 于 2012-2-11 21:50 编辑

新的代码。可以撤销。可以清除。

新建 Microsoft Excel 工作表 (2).rar (12.63 KB, 下载次数: 57)

wangsj_2001 · 发表于 2012-2-11 22:19

lhdcxz 发表于 2012-2-11 16:47
简单的统计很容易实现，自己加1就可以（可用4行×5个单元格代表4项×5种选择，点哪个就获得单元格的行列地址 ...

您好，请问一下您加了一句这个代码是什么意思呀，Range("b4").Select
，还请多指教，我把它删了好像也没有什么影响，要是不加的话会有什么后果呀，还请多指教，谢谢。

wangsj_2001 · 发表于 2012-2-12 00:24

lhdcxz 发表于 2012-2-11 21:45
新的代码。可以撤销。可以清除。

谢谢您，太复杂了，我明天再研究吧。还想请教您一下，里面的oldadd,oldv是什么意思呀，不太明白，还有28，29，30代表什么呀，请多指教，谢谢。

lhdcxz · 发表于 2012-2-12 08:28

本帖最后由 lhdcxz 于 2012-2-12 08:58 编辑

Range("b4").Select是为避免你在统计的区域里面有错误的输入动作（不允许的动作）而把光标移开到B4单元格（区域外）。移开后你就不能在统计的区域里面里面有输入动作了。
oldadd,oldv是数组。27、28、29等是数组下标，是为了＂撤消＂用的。正式用之前你先多试几次。包括：正确统计（点一下计数一次，累加）、想在区域里面输入（光标根本不在区域里面，想犯错误搞破坏都不行）、点错了单元格而想撤消（反悔最多30次）。

		自动登录	找回密码
密码			免费注册

[求助] 如何统计这份表格的点击次数--领导急要

最新热点 /1