200分，多个excel文件统计数据问题，详情请进！

来源：百度知道 编辑：UC知道 时间：2024/05/24 12:41:11
领导想用做一个客户满意度调查表。初步估计有300多份这样的表格。
客户将excel填好以后发送电子版回来，我负责将这些数据统计进最终的一个excel表格中。

目前想到得方法是在表格中插入复选框，让客户打钩，但是收集回来的文件如何统计是一个头疼的问题，谁有思路可以一起来交流。

表格初步计划按如下截图做
请问如何做VBA？可否帮忙写一下，谢谢

还是 用 VBA 程序吧，一切就好办 了。

调查表的复选框采用窗体
复选框使用的顺序为：整机外观非常好为第一个复选框，整机外观好为第二个复选框.....
在汇总表中进行统计,统计的单元格为B2:F5
将所有的调查表和汇总表放入同一文件夹下
在汇总表中编写宏,代码为:
Sub abc()
On Error Resume Next
ming = ThisWorkbook.Name
Set sth = ActiveSheet
a = Dir(ThisWorkbook.Path & "\*.xls")
For i = 1 To 400
a = Dir
If a <> ming Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & a
For j = 1 To 20
ActiveSheet.Shapes("Check Box " & j).Select
If Selection.Value = 1 Then
k = j Mod 5
If k = 0 Then k = 5
sth.Cells(Int(j / 5 - 0.01) + 2, k + 1) = sth.Cells(Int(j / 5 - 0.01) + 2, k + 1) + 1
End If
Next j
Workbooks(a).Close savechanges:=False
End If
Next i
End Sub

汗,我没弄懂.你每行的项目已经有"非常好"到"非常差"五个选项,为什么还会要用到复选框,直接让客户选择勾

如果你希望客户在选择项下面填入符号√,可以在数据有效性中设置(在一个隐藏单元格M1输入√,选好所有客户可填项,在数据有效性中用"自定义"-"公式"-=M1),在出错警告中提