代码
- 格式:doc
- 大小:27.00 KB
- 文档页数:1
代码
Dim i As Integer
Dim j As Integer
Sub 提交问卷()
i = Worksheets("记录表").Range("A1").CurrentRegion.Rows.Count
Worksheets("调查问卷").Range("C3").Copy (Worksheets("记录表").Cells(1, 1)) Worksheets("调查问卷").Range("C3") = ""
Worksheets("调查问卷").Range("D21").Copy (Worksheets("记录表").Cells(1, 7)) Worksheets("调查问卷").Range("D21") = ""
Worksheets("调查问卷").Range("D24").Copy (Worksheets("记录表").Cells(1, 8)) Worksheets("调查问卷").Range("D24") = ""
Worksheets("调查问卷").Range("D25").Copy (Worksheets("记录表").Cells(1, 9)) Worksheets("调查问卷").Range("D25") = ""
i = i + 1
For j = 1 To 20
Sheets("记录表").Select
Cells(1, j).Select
Selection.Copy Destination:=Cells(i, j)
Cells(1, j) = ""
Next j
Sheets("调查问卷").Select
MsgBox "您的选择已经保存,感谢您对我们工作的支持,祝您天天有个好心情!", vbOKOnly, "谢谢您"
End Sub
Sub 清除记录表()
Worksheets("记录表").Range("A4:I200").ClearContents
MsgBox "记录表已清除,您可重新录入数据!"
End Sub
注:
红字代表把“调查问卷”中填空内容复制到“记录表”第一行相应位置。
蓝字20代表“记录表”第一行对应答案列数的个数,本例中共9列(可大于9)。
黑色字体不可改变
单选统计公式=COUNTIF(记录表!D$4:D$203,统计结果!$A3)
多选统计公式=COUNTIF(记录表!C$4:C$203,TRUE)。