編按:
很多人想不到在數(shù)據(jù)統(tǒng)計、分析上獨(dú)占鰲頭的Excel，在制作全自動調(diào)查問卷表上也有驚人的表現(xiàn)。不僅是制表本身難度幾乎不計，就連最后的統(tǒng)計過程也能被Excel自動取代，節(jié)省了大量的人工成本。不愧是除了生孩子什么都能干的Excel！

當(dāng)下，越來越多公司明白了企業(yè)發(fā)展的根本是要留住核心人才，所以開始更多的關(guān)注到員工的身心健康，很多公司更是每年都會對員工進(jìn)行滿意度調(diào)查！今天春風(fēng)就用最普通的excel表制作最帥的員工滿意度調(diào)查問卷，希望通過全自動的調(diào)查問卷了解員工對企業(yè)的印象，也方便企業(yè)的后續(xù)工作。

問卷的內(nèi)容包括基本資料、單項(xiàng)選擇、多項(xiàng)選擇、其它，共四個部分。最終效果圖如下，接下來大家一起來看看具體的制作過程吧！

1. 制作員工的基本資料

①   設(shè)置A列列寬“4”，合并A1:H1單元格，設(shè)置行高“28”，輸入問卷標(biāo)題“員工滿意度調(diào)查問卷”，在A5、B5單元格輸入序號及第一題的題目“您的姓名”，合并D5、E5單元格，用于保存員工的輸入姓名。在A7、B7單元格輸入序號及第二題的題目“您的性別”。上述步驟雖然多，但都是基本操作，很容易學(xué)會。

②   選擇“開發(fā)工具”選項(xiàng)卡下的“插入”菜單，選擇“選項(xiàng)按鈕（窗體控件）”，將標(biāo)簽名改為“男”，在控件上單擊鼠標(biāo)右鍵，執(zhí)行“設(shè)置控件格式”菜單命令。在“控件”選項(xiàng)卡中，設(shè)置控件單元格鏈接為“$J$10”。同樣選擇“開發(fā)工具”選項(xiàng)卡下的“插入”菜單，選擇“選項(xiàng)按鈕（窗體控件）”，將標(biāo)簽名改為“女”，在控件位置單擊鼠標(biāo)右鍵，執(zhí)行“設(shè)置控件格式”菜單命令，在“控件”選項(xiàng)卡中，設(shè)置控件單元格鏈接為“$J$10”。

③   選擇“開發(fā)工具”選項(xiàng)卡下的“插入”菜單，在“窗體”工具欄中選擇“分組框（窗體控件）”控件。在工作表中繪制一個分組框。將分組框標(biāo)簽更改為“基本資料”。

2. 設(shè)計單項(xiàng)選擇部分

①   在A15、B15單元格輸入序號及第三題的題目“您覺得目前的崗位是否適合您”。選擇“開發(fā)工具”選項(xiàng)卡下的“插入”菜單，在“窗體”工具欄中選擇“組合框”控件，在工作表中繪制一個組合框控件。在控件位置單擊鼠標(biāo)右鍵，執(zhí)行“設(shè)置控件格式”菜單命令。設(shè)置數(shù)據(jù)源區(qū)域?yàn)椤?span>$L$17:$L$19”，單元格鏈接為“$J$11”。在單元格L17:L19單元格內(nèi)輸入“非常適合”、“一般”、“不適合”。

②   按同樣的方式在A20、B20單元格輸入序號及第四題的題目“您認(rèn)為自己的才能在目前的崗位上是否得以充分發(fā)揮”, 在工作表中繪制一個組合框控件，在控件位置單擊鼠標(biāo)右鍵，執(zhí)行“設(shè)置控件格式”菜單命令。設(shè)置數(shù)據(jù)源區(qū)域?yàn)椤?span>$L$21:$L$23”，單元格鏈接為“$J$12”。在單元格L21:L23單元格內(nèi)輸入“充分發(fā)揮”、“一般”、“沒有發(fā)揮”。

③   在A25、B25單元格輸入序號及第五題的題目“您對公司的獎懲制度是否滿意”，在工作表中繪制一個組合框控件，在控件位置單擊鼠標(biāo)右鍵，執(zhí)行“設(shè)置控件格式”菜單命令。設(shè)置數(shù)據(jù)源區(qū)域?yàn)椤?span>$L$26:$L$28”，單元格鏈接為“$J$13”。在單元格L26:L28單元格內(nèi)輸入“滿意”、“一般”、“不滿意”。

④   在A30、B30單元格輸入序號及第六題的題目“您認(rèn)為主管領(lǐng)導(dǎo)對員工的評價方式是否合理”，在工作表中繪制一個組合框控件，在控件位置單擊鼠標(biāo)右鍵，執(zhí)行“設(shè)置控件格式”菜單命令。設(shè)置數(shù)據(jù)源區(qū)域?yàn)椤?span>$L$31:$L$33”，單元格鏈接為“$J$14”。在單元格L31:L33單元格內(nèi)輸入“合理”、“還可以”、“不合理”。

⑤   在A35、B35單元格輸入序號及第七題的題目“在公司工作，您是否學(xué)有所獲”。在工作表中繪制一個組合框控件，在控件位置單擊鼠標(biāo)右鍵，執(zhí)行“設(shè)置控件格式”菜單命令。設(shè)置數(shù)據(jù)源區(qū)域?yàn)椤?span>$L$36:$L$38”，單元格鏈接為“$J$15”。在單元格L36:L38單元格內(nèi)輸入“收獲很大”、“一般”、“沒有收獲”。

⑥   選擇“開發(fā)工具”選項(xiàng)卡下選擇“插入”菜單，在“窗體”工具欄中選擇“分組框（窗體控件）”控件。在工作表中繪制一個分組框，將分組框標(biāo)簽更改為“單項(xiàng)選擇”。

3. 設(shè)計多項(xiàng)選擇部分

①   在A44、B44單元格輸入序號及第八題的題目“在公司工作，您最看重什么”。選擇“開發(fā)工具”選項(xiàng)卡下的“插入”菜單，選擇“復(fù)選框（窗體控件）”，在工作表中添加6個復(fù)選框，并更改控件的標(biāo)簽為對應(yīng)的選項(xiàng)。然后在A54、B54單元格輸入序號及第九題的題目“您認(rèn)為公司的優(yōu)勢是什么”。選擇“開發(fā)工具”選項(xiàng)卡下的“插入”菜單，選擇“復(fù)選框（窗體控件）”，在工作表中添加4個復(fù)選框，并更改控件的標(biāo)簽為對應(yīng)的選項(xiàng)。

②   在“窗體”工具欄中選擇“分組框（窗體控件）”控件。在工作表中繪制一個分組框，將分組框標(biāo)簽更改為“多項(xiàng)選擇”。

4. 設(shè)計其它部分

在A65、B65單元格輸入序號及第十題的題目“除此以外，您對公司有哪些意見或建議”。合并B67:G67單元格，設(shè)置該合并單元格行高92，添加一個組合框，標(biāo)簽為“其他”。

5. 裝飾問卷界面

設(shè)置單元格的底紋填充顏色，更改標(biāo)題字體顏色，在“視圖”選項(xiàng)卡中取消勾選“網(wǎng)格線”復(fù)選框，單擊“確定”按鈕，隱藏多余的行和列區(qū)域。效果如下：

6. 自動登記調(diào)查結(jié)果

①   為方便統(tǒng)計分析，員工在填寫完問卷后，要將結(jié)果保存到工作簿中的“調(diào)查結(jié)果”工作表中，下面是保存結(jié)果的工作表。

②   編寫一個程序來實(shí)現(xiàn)這個目的，插入一個標(biāo)準(zhǔn)模塊，在模塊中輸入如下程序。

Sub dengji()

    Dim xrow As Integer

    With Worksheets("調(diào)查結(jié)果")

        xrow = .[A1].CurrentRegion.Rows.Count + 1            '取得第一條空行行號

        .Cells(xrow, "A") = [d5]                             '寫入員工姓名

        '寫入2到9題選擇結(jié)果

        .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       '清除調(diào)查問卷中原有答案

    MsgBox "已保存到“調(diào)查結(jié)果”工作表中！", vbInformation, "提示"

End Sub

③   在“問卷”工作表中添加一個按鈕，更改標(biāo)簽為“提交問卷”。將編寫的程序指定給這個按鈕，填寫并保存問卷結(jié)果。

④   當(dāng)名叫郭靖、黃蓉的員工做完滿意度調(diào)查后，點(diǎn)擊“提交問卷”，結(jié)果就會在名為“調(diào)查結(jié)果”的sheet表中自動填充。

OK，一個全自動的調(diào)查問卷就用EXCEL制作完成了！還是那句老話，EXCEL除了生孩子不能完成，其它的都能干。親愛的讀者朋友，您有什么建議，歡迎留言。

本文配套的練習(xí)課件請加入QQ群：902294808下載。

做Excel高手，快速提升工作效率，部落窩教育《一周Excel直通車》視頻和《Excel極速貫通班》直播課全心為你！

掃下方二維碼關(guān)注公眾號，可隨時隨地學(xué)習(xí)Excel：

相關(guān)推薦：

調(diào)查問卷無人理睬？用Word這樣做用戶才樂意回答！

VBA實(shí)戰(zhàn)入門教程（五）：認(rèn)識VBE——VBA的編輯器

VBA實(shí)戰(zhàn)入門教程（一）：Range對象的選擇和賦值

VBA實(shí)戰(zhàn)入門教程（二）：RANGE對象的偏移及行列確定

版權(quán)申明：

本文作者賦春風(fēng)；同時部落窩教育享有專有使用權(quán)。若需轉(zhuǎn)載請聯(lián)系部落窩教育。