问卷调查演示课件代码.doc

《问卷调查演示课件代码.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)