欢迎来到天天文库
浏览记录
ID:51943119
大小:27.00 KB
页数:1页
时间:2020-03-20
《问卷调查演示课件代码.doc》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、代码DimiAsIntegerDimjAsIntegerSub提交问卷()i=Worksheets("记录表").Range("A1").CurrentRegion.Rows.CountWorksheets("调查问卷").Range("C3").Copy(Worksheets("记录表").Cells(1,1))Worksheets("调查问卷").Range("C3")=""Worksheets("调查问卷").Range("D21").Copy(Worksheets("记录表").Cells(1,7))
2、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+1Forj=1To20Sheets("
3、记录表").SelectCells(1,j).SelectSelection.CopyDestination:=Cells(i,j)Cells(1,j)=""NextjSheets("调查问卷").SelectMsgBox"您的选择已经保存,感谢您对我们工作的支持,祝您天天有个好心情!",vbOKOnly,"谢谢您"EndSubSub清除记录表()Worksheets("记录表").Range("A4:I200").ClearContentsMsgBox"记录表已清除,您可重新录入数据!"EndSub注:红字
4、代表把“调查问卷”中填空内容复制到“记录表”第一行相应位置。蓝字20代表“记录表”第一行对应答案列数的个数,本例中共9列(可大于9)。黑色字体不可改变单选统计公式=COUNTIF(记录表!D$4:D$203,统计结果!$A3)多选统计公式=COUNTIF(记录表!C$4:C$203,TRUE)
此文档下载收益归作者所有