基于VBA实现完整的调查问卷(超详细)

VBA能实现的功能其实挺多的，调查问卷就是其中一项，个人觉得这个功能实用性很强，其一免费，界面简单，会打开office的人均可操作。其二不使用纸张，电脑操作，不需要再手输统计结果。

话不多说，界面如下：

(1)建立三个表格，存储调查问卷、调查结果和下拉框的信息。

(2)在调查问卷表格的空白处，建立一个表格，用于存储输入的数据，公式可自行调整。

(3)调查结果表格样式

(4)下拉框信息表格样式

VBA代码的实现：

(1) 在调查问卷表格界面添加一个控件，连接宏“tijiao”，在模块里输入代码：


Public Sub tijao()msg = MsgBox("确定要提交你的答卷码？提交操作不可回退，请慎重考虑！", 1, "提交确认")If msg = 2 ThenGoTo overEnd IfDim aFor a = 1 To 9If Cells(a, "P") = "" ThenMsgBox "第" & a & "题未选择"GoTo overEnd IfNext aDim b As Integer ' 行号With Worksheets("调查结果")b = .[A1].CurrentRegion.Rows.Count + 1               ' 取得第一条空行行号.Cells(b, "A").Resize(1, 9).Value = Application.WorksheetFunction. _Transpose([P1:P9].Value)End WithUnion([D5:E5], [D7:E7], [D9:E9], [B18:C18], [B22:C22], [B26:C26], [B30:C30], [B34:C34], [B39:I43]).ClearContents     ' 清除调查问卷中的原有答案MsgBox "已保存到“调查结果”工作表中！", vbInformation, "提示"Sheets("调查问卷").ActivateSelection.Locked = TrueSelection.FormulaHidden = TrueActiveSheet.Protect ("123456")over:End Sub

代码按顺序实现的功能如下：

1. 确定第几项没有内容；

2. 调查的结果传输到第二个表格；

3. 可以避免重复提交，提交结束后，表格锁定，再打开表格才能解锁。

以下代码放入workbook里，实现excel的布局。

Private Sub Workbook_BeforeClose(Cancel As Boolean)With ActiveWindow.DisplayGridlines = True.DisplayHeadings = True.DisplayHorizontalScrollBar = True.DisplayVerticalScrollBar = True.DisplayWorkbookTabs = TrueEnd With
End SubPrivate Sub Workbook_Open()
Sheets("调查问卷").Activate
Sheets("调查问卷").Unprotect ("123456")With ActiveWindow.DisplayGridlines = False.DisplayHeadings = False.DisplayHorizontalScrollBar = False.DisplayVerticalScrollBar = False.DisplayWorkbookTabs = FalseEnd With
End Sub

感兴趣的同学可以学习一下，赶快编制自己的调查问卷吧。

基于VBA实现完整的调查问卷(超详细)相关推荐

武道世界java一键端_神鬼世界MC完整一键端架设超详细教程(新手向).docx
神鬼世界MC完整一键端架设超详细教程(新手向) 神鬼世界完整一键端架设详细教程 By 独霸╰つlwt℡ 最近兽医老大放出了可存储信息的神鬼世界完整一键端,在群里也是倍受欢迎,但有很多人安装过程出现了这 ...
基于yolov7开发实践实例分割模型超详细教程
在我前面的博文中写过基于yolov5-v7.0模型开发的实例分割模型的超详细教程,即使是零基础入门的新手也都是可以按照教程步骤一步一步开发构建自己的应用.文章在下面,感兴趣的话可以自行移步阅读即可: ...
基于Python的Excel读写操作--内容超详细，值得排排坐
今日份超详细的解读,Excel文件基础操作,让你以学就会. 写这个的原因是,一位群友问了很久,然后网上的教程写的又不是很详细,看的有些犯迷糊,所以我今日份写一份超详细的基本操作,让你打下良好的基础. ...
NLP-Beginner 任务二：基于深度学习的文本分类+pytorch(超详细！！)
NLP-Beginner 任务二:基于深度学习的文本分类传送门一. 介绍 1.1 任务简介 1.2 数据集 1.3 流程介绍二. 特征提取--Word embedding(词嵌入) 2.1 词嵌 ...
dueros基于什么开发的_干货丨超详细！DuerOS开发套件申请攻略！
Hi,Developer! 感谢各位对百度DuerOS开放平台的持续关注. 7月5日,"Baidu Create 2017"成功举办,百度集中展示了多项深耕多年的AI技术,公布了完 ...
基于kaggle数据集的猫狗识别(超详细版本)
目录下载kaggle数据集创建新的小数据集构建猫狗分类的小型卷积神经网络猫狗分类的网络架构模型的配置图像的预处理利用批量生成器拟合模型绘制精度和损失结果显示随机增强后的训练图像显示 ...
Python机器学习实战教学——基于协同过滤的电影推荐系统（超详细教学，算法分析）
注重版权,转载请注明原作者和原文链接作者:Yuan-Programmer 结尾处有效果展示文章目录引言一.技术原理 (一)推荐算法介绍 (二)主流距离计算法 (三)余弦距离计算法二.数据介绍 ...
vue3 - 【完整源码】超详细实现网站 / H5 在线预览 pdf 文件功能，支持缩放、旋转、全屏预览、打印、下载、内容检索、主题色定制、侧边缩略图、页码跳转等等（最好用的pdf预览器，注释详细！）
效果图在 Vue3.js 项目中,实现了快速高效的 pdf 预览器工具组件,附带详细的使用教程与详细的注释,保证一键复制轻松搞定! 详细的注释很容易二次修改,很多实用功能,你也可以自定义界面上的样式 ...
使用Javaweb实现在线调查问卷系统
作者主页:编程指南针简介:Java领域优质创作者.CSDN博客专家 Java项目.简历模板.学习资料.面试题库.技术互助文末获取源码项目编号:BS-PT-014 开发技术: jsp/servl ...

基于VBA实现完整的调查问卷(超详细)

感兴趣的同学可以学习一下，赶快编制自己的调查问卷吧。

基于VBA实现完整的调查问卷(超详细)相关推荐

最新文章

热门文章