公司大神用Excel做的全自动调查表，一秒搞定上万条数据搜集！太多人想学！ / 开普饭

每天一点小技能

职场打怪不得怂

编按：很多人想不到在数据统计、分析上独占鳌头的Excel，在制作全自动调查问卷表上也有惊人的表现。不仅是制表本身难度几乎不计，就连最后的统计过程也能被Excel自动取代，节省了大量的人工成本。不愧是除了生孩子什么都能干的Excel！

当下，越来越多公司明白了企业发展的根本是要留住核心人才，所以开始更多的关注到员工的身心健康，很多公司更是每年都会对员工进行满意度调查！今天春风就用最普通的excel表制作最帅的员工满意度调查问卷，希望通过全自动的调查问卷了解员工对企业的印象，也方便企业的后续工作。

问卷的内容包括基本资料、单项选择、多项选择、其它，共四个部分。最终效果图如下，接下来大家一起来看看具体的制作过程吧！

公众号回复：入群，微信群下载Excel课件

制作员工的基本资料

1、设置A列列宽“4”，合并A1:H1单元格，设置行高“28”，输入问卷标题“员工满意度调查问卷”，在A5、B5单元格输入序号及第一题的题目“您的姓名”，合并D5、E5单元格，用于保存员工的输入姓名。在A7、B7单元格输入序号及第二题的题目“您的性别”。上述步骤虽然多，但都是基本操作，很容易学会。

②选择“开发工具”选项卡下的“插入”菜单，选择“选项按钮（窗体控件）”，将标签名改为“男”，右键单击控件，执行“设置控件格式”菜单命令。在“控件”选项卡中，设置控件单元格链接为“$J$10”。同样选择“开发工具”选项卡下的“插入”菜单，选择“选项按钮（窗体控件）”，将标签名改为“女”，右键单击控件，执行“设置控件格式”菜单命令，在“控件”选项卡中，设置控件单元格链接为“$J$10”。

③选择“开发工具”选项卡下的“插入”菜单，在“窗体”工具栏中选择“分组框（窗体控件）”控件。在工作表中绘制一个分组框。将分组框标签更改为“基本资料”。

设计单项选择部分

①在A15、B15单元格输入序号及第三题的题目“您觉得目前的岗位是否适合您”。选择“开发工具”选项卡下的“插入”菜单，在“窗体”工具栏中选择“组合框”控件，在工作表中绘制一个组合框控件。在控件位置单击鼠标右键，执行“设置控件格式”菜单命令。设置数据源区域为“$L$17:$L$19”，单元格链接为“$J$11”。在单元格L17:L19单元格内输入“非常适合”、“一般”、“不适合”。

②按同样的方式在A20、B20单元格输入序号及第四题的题目“您认为自己的才能在目前的岗位上是否得以充分发挥”, 在工作表中绘制一个组合框控件，右键单击控件，执行“设置控件格式”菜单命令。设置数据源区域为“$L$21:$L$23”，单元格链接为“$J$12”。在单元格L21:L23单元格内输入“充分发挥”、“一般”、“没有发挥”。

③在A25、B25单元格输入序号及第五题的题目“您对公司的奖惩制度是否满意”，在工作表中绘制一个组合框控件，右键单击控件，执行“设置控件格式”菜单命令。设置数据源区域为“$L$26:$L$28”，单元格链接为“$J$13”。在单元格L26:L28单元格内输入“满意”、“一般”、“不满意”。

④在A30、B30单元格输入序号及第六题的题目“您认为主管领导对员工的评价方式是否合理”，在工作表中绘制一个组合框控件，右键单击控件，执行“设置控件格式”菜单命令。设置数据源区域为“$L$31:$L$33”，单元格链接为“$J$14”。在单元格L31:L33单元格内输入“合理”、“还可以”、“不合理”。

⑤在A35、B35单元格输入序号及第七题的题目“在公司工作，您是否学有所获”。在工作表中绘制一个组合框控件，右键单击控件，执行“设置控件格式”菜单命令。设置数据源区域为“$L$36:$L$38”，单元格链接为“$J$15”。在单元格L36:L38单元格内输入“收获很大”、“一般”、“没有收获”。

⑥选择“开发工具”选项卡下选择“插入”菜单，在“窗体”工具栏中选择“分组框（窗体控件）”控件。在工作表中绘制一个分组框，将分组框标签更改为“单项选择”。

设计多项选择部分

①在A44、B44单元格输入序号及第八题的题目“在公司工作，您最看重什么”。选择“开发工具”选项卡下的“插入”菜单，选择“复选框（窗体控件）”，在工作表中添加6个复选框，并更改控件的标签为对应的选项。然后在A54、B54单元格输入序号及第九题的题目“您认为公司的优势是什么”。选择“开发工具”选项卡下的“插入”菜单，选择“复选框（窗体控件）”，在工作表中添加4个复选框，并更改控件的标签为对应的选项。

②在“窗体”工具栏中选择“分组框（窗体控件）”控件。在工作表中绘制一个分组框，将分组框标签更改为“多项选择”。

设计其它部分

在A65、B65单元格输入序号及第十题的题目“除此以外，您对公司有哪些意见或建议”。合并B67:G67单元格，设置该合并单元格行高92，添加一个组合框，标签为“其他”。

装饰问卷界面

设置单元格的底纹填充颜色，更改标题字体颜色，在“视图”选项卡中取消勾选“网格线”复选框，单击“确定”按钮，隐藏多余的行和列区域。效果如下：

自动登记调查结果

①为方便统计分析，员工在填写完问卷后，要将结果保存到工作簿中的“调查结果”工作表中，下面是保存结果的工作表。

②编写一个程序来实现这个目的，插入一个标准模块，在模块中输入如下程序。

Sub dengji() Dim xrow As Integer With Worksheets("调查结果") xrow = .[A1].CurrentRegion.Rows.Count + 1 '取得第一条空行行号 .Cells(xrow, "A") = [d5] '写入学员ID '写入2到9题选择结果 .Cells(xrow, "B").Resize(1, 16).Value = Application.WorksheetFunction. _ Transpose([J10:J25].Value) .Cells(xrow, "R").Value = [B67].Value '写入学员对培训中心的建议 End With Union([D5:E5], [J10:J25], [B67:G67]).ClearContents '清除调查问卷中原有答案 MsgBox "已保存到“调查结果”工作表中！", vbInformation, "提示"End Sub