調(diào)查問卷Excel搞定

1、每年春節(jié)前后，建筑工程施工現(xiàn)場相對比較清閑，我們這些從事建設(shè)工程質(zhì)量監(jiān)督的人員，就抽空到居民家中，開展一年一度的全市住房狀況調(diào)查工作。以前，我們都是先向居民發(fā)放紙質(zhì)調(diào)查表，由居民填寫后，再回收統(tǒng)計(jì)。這樣做，既麻煩又不準(zhǔn)確。今年，我們改用Excel制作的電子調(diào)查表，帶上筆記本電腦上門調(diào)查。這樣做，既方便了數(shù)據(jù)的統(tǒng)計(jì)處理，又給居民一種新鮮感，進(jìn)一步激發(fā)了他們的參與熱情。制作調(diào)查問卷的思路在Excel中，我們先利用“窗體”工具欄上的“分組框、選項(xiàng)按鈕、復(fù)選框、組合框、按鈕”等控件，制作成如圖1所示的調(diào)查表，并將每一位參與調(diào)查居民的選擇結(jié)果保存在表格下方對應(yīng)的單元格中。然后通過“宏按鈕”將選擇結(jié)果依次

2、復(fù)制到“數(shù)據(jù)表”工作表中保存起來。最后，利用函數(shù)和公式對數(shù)據(jù)進(jìn)行統(tǒng)計(jì)處理，并將統(tǒng)計(jì)結(jié)果保存在“數(shù)據(jù)統(tǒng)計(jì)”工作表中，隨時(shí)查看調(diào)查的統(tǒng)計(jì)結(jié)果。  實(shí)戰(zhàn)制作調(diào)查表在用Excel制作調(diào)查問卷前要進(jìn)行一些準(zhǔn)備工作，以方便后面的制作過程:第一步:啟動(dòng)Excel2003(其他版本操作相似)，新建一工作簿文檔，取名保存(如“工程調(diào)查.xls”)。第二步:依次雙擊工作表標(biāo)簽(sheet1、sheet2、sheet3)，使其成反白狀態(tài)，再輸入字符，將其重命名為“調(diào)查表、數(shù)據(jù)表、數(shù)據(jù)統(tǒng)計(jì)”(見圖2)。第三步:將A1至L1單元格合并后，輸入調(diào)查表標(biāo)題(如“某某市住房狀況調(diào)查表”)；將A2至L2單元

3、格合并后，輸入調(diào)查說明；并設(shè)置好字體、字號等。第四步:執(zhí)行“視圖工具欄窗體”命令，展開“窗體”工具欄(見圖2)。好了，現(xiàn)在我們可以添加用于調(diào)查的各種控件了。1.選項(xiàng)按鈕的添加:所謂“選項(xiàng)按鈕”，就是我們通常所說的“單選”按鈕。我們以“年齡”調(diào)查項(xiàng)為例，來看看具體的添加過程:第一步:點(diǎn)擊“窗體”工具欄上的“分組框”按鈕，然后在工作表中拖拉出一個(gè)分組框，并將分組框名(如“分組框2”)修改為“年齡”(見圖3)。第二步:點(diǎn)擊“窗體”工具欄上的“選項(xiàng)按鈕”按鈕，然后在上述“年齡”分組框中拖拉出一個(gè)按鈕來，并將按鈕名(如“選項(xiàng)按鈕4”)修改為相應(yīng)的調(diào)查項(xiàng)字符(如“20歲以下”，見圖3)第三步:重復(fù)上述操作

4、，再添加若干“選項(xiàng)按鈕”。小提示選中第1個(gè)“選項(xiàng)按鈕”，在按住Ctrl鍵的同時(shí)，拖動(dòng)一下鼠標(biāo)，復(fù)制一個(gè)選項(xiàng)按鈕，修改一下其中的字符即可快速制作出另一個(gè)“選項(xiàng)按鈕”來。第四步:雙擊其中任意一個(gè)“選項(xiàng)按鈕”，打開“設(shè)置控件格式”對話框(見圖4)， 切換到“控制”標(biāo)簽下，在“單元格鏈接”右側(cè)的方框中輸入“$C$50”，確定返回。小提示此步操作的目的是將“年齡”調(diào)查項(xiàng)的選擇結(jié)果保存在C50單元格中(選擇第1個(gè)、第2個(gè)“選項(xiàng)按鈕”，該單元格分別顯示出1、2)。第五步:調(diào)整好“分組框”、“選項(xiàng)按鈕”的大小和位置。2.復(fù)選框的添加:所謂“復(fù)選框”，就是允許一次性選擇多個(gè)選項(xiàng)。我們以“存在哪些質(zhì)量問題”調(diào)查項(xiàng)

5、為例，來看看具體的添加過程:第一步:制作一個(gè)“存在哪些質(zhì)量問題”分組框。第二步:點(diǎn)擊“窗體”工具欄上的“復(fù)選框”按鈕，然后在上述“分組框”中拖拉出一個(gè)“復(fù)選框”來，并將“復(fù)選框”名(如“復(fù)選框74”)修改為相應(yīng)的調(diào)查項(xiàng)字符(如“屋面滲水”，見圖5)。第三步:雙擊剛才添加的第1個(gè)“復(fù)選框”按鈕，打開“設(shè)置控件格式”對話框(見圖4)，切換到“控制”標(biāo)簽下，在“單元格鏈接”右側(cè)的方框中輸入“$K$50”，確定返回。第四步:重復(fù)上述2、3兩步操作，根據(jù)調(diào)查內(nèi)容，添加其他復(fù)選框。小提示由于是“復(fù)選框”，所以每一個(gè)“復(fù)選框”的“單元格鏈接”地址是不同的，需要逐一設(shè)置。第五步:調(diào)整好“分組框”、“復(fù)選框”的

6、大小和位置。3.組合框的添加:所謂“組合框”，就是我們通常所說的“下拉框”。我們以“學(xué)歷”調(diào)查項(xiàng)為例，來看看具體的添加過程:第一步:在L4至L11單元格區(qū)域(不一定非得是這個(gè)區(qū)域喲)中，輸入各學(xué)歷分類(見圖6)。第二步:制作一個(gè)“學(xué)歷”分組框。小提示其實(shí)，這里只有一個(gè)“組合框”，完全不需要添加一個(gè)“分組框”。我們之所以添加一個(gè)分組框，是為了保持調(diào)查表格式的統(tǒng)一。第三步:點(diǎn)擊“窗體”工具欄上的“組合框”按鈕，然后在上述“分組框”中拖拉出一個(gè)“組合框”來。第四步:雙擊上述“組合框”，打開“對象格式”對話框(見圖7)，在“數(shù)據(jù)源區(qū)域”右側(cè)的方框中輸入“$L$4:$L$11”，在“單元格鏈接”右側(cè)的方

7、框中輸入“$D$50”，確定返回。第五步:調(diào)整好“分組框”、“組合框”的大小和位置(見圖8)。仿照上面的操作，完成其他調(diào)查項(xiàng)的制作過程。保存調(diào)查數(shù)據(jù)我們通過一個(gè)宏，將居民選擇的結(jié)果(顯示在“調(diào)查表”工作表第50行相應(yīng)的單元格中)依次復(fù)制保存到“數(shù)據(jù)表”工作表中，并通過一個(gè)按鈕來運(yùn)行該宏。第一步:切換到“數(shù)據(jù)表”工作表下，仿照圖9的樣式制作一張用來保存數(shù)據(jù)的空白表格。 第二步:在D1單元格中輸入公式:=COUNTA(A:A)-2，用于統(tǒng)計(jì)參加調(diào)查的人數(shù)。第三步:按“Alt+F11”組合鍵，進(jìn)入“Visual Basic編輯器”窗口(見圖10)。第四步:在左側(cè)“工程資源管理器”窗口中，選中“VBA

8、Project(工程調(diào)查.xls)”選項(xiàng)，然后執(zhí)行“插入模塊”命令，插入一個(gè)新模塊。第五步:將下述代碼輸入到右側(cè)編輯區(qū)域中(見圖10):Sub 保存()Dim rs As IntegerSheets("調(diào)查表").SelectRows(50).SelectSelection.CopySheets("數(shù)據(jù)表").Selectrs = Cells(1, 4)Rows(rs + 3).SelectActiveSheet.PasteCells(rs + 3, 1).Value = rs + 1Sheets("調(diào)查表").SelectAppli

9、cation.CutCopyMode = FalseRange("A1").SelectMsgBox "您的選擇已經(jīng)保存，感謝您對我們工作的支持，祝您新春愉快！", vbOKOnly, "謝謝您"End Sub第六步:輸入完成后，關(guān)閉“Visual Basic編輯器”窗口。第七步:切換到“調(diào)查表”工作表中，點(diǎn)擊“窗體”工具欄上的“命令”按鈕，然后在工作表中拖拉出一個(gè)“命令”按鈕來，此時(shí)系統(tǒng)自動(dòng)彈出“指定宏”對話框(見圖11)，選中上面編輯的“保存”宏，確定返回。第八步:將“命令”按鈕名(如“按鈕75”)修改為“完成”字符。再調(diào)整好按鈕

10、的大小，定位在調(diào)查表的右上角。第九步:同時(shí)選中49行和50行，右擊鼠標(biāo)，在隨后彈出的快捷菜單中，選擇“隱藏”選項(xiàng)，將保存居民選擇結(jié)果的兩行隱藏起來；同時(shí)選中L至O列，也將其隱藏起來。小提示將上述行、列隱藏起來的目的，只是為了美化調(diào)查表而已，如果不隱藏，對調(diào)查表的使用沒有任何影響。第十步:利用填充色等功能，對調(diào)查表進(jìn)行一番美化。至此，整個(gè)調(diào)查表制作完成。開展調(diào)查到了居民家中后，切換到“調(diào)查表”工作表下，指導(dǎo)居民根據(jù)各自的實(shí)際情況進(jìn)行選擇，選擇完成后，點(diǎn)擊一下右上角的“完成”按鈕，數(shù)據(jù)即刻被保存到“數(shù)據(jù)表”工作表相應(yīng)的行中，同時(shí)彈出見圖12所示的一個(gè)對話框，點(diǎn)擊其中的“確定”按鈕進(jìn)入下一個(gè)調(diào)查。數(shù)

11、據(jù)統(tǒng)計(jì)處理我們利用Excel強(qiáng)大的函數(shù)和公式來完成調(diào)查數(shù)據(jù)的統(tǒng)計(jì)處理工作(這項(xiàng)函數(shù)和公式，我們完全可以在制作調(diào)查表的時(shí)候事先制作好)。我們以“年齡”的統(tǒng)計(jì)為例，來看看具體的操作過程:第一步:切換到“數(shù)據(jù)統(tǒng)計(jì)”工作表中，仿照圖13所示的樣式，制作一份空白表格。第二步:分別選中E2、E3E7單元格，依次輸入公式:=COUNTIF(數(shù)據(jù)表!C:C,1)、=COUNTIF(數(shù)據(jù)表!C:C,2)=COUNTIF(數(shù)據(jù)表!C:C,6)。小提示由于，我們在調(diào)查表中將年齡分為6種類型，分別用數(shù)字1、26表示。因此，只要用COUNTIF函數(shù)分別統(tǒng)計(jì)“數(shù)據(jù)表”C列數(shù)值“1、26”的個(gè)數(shù)即可。第三步:選中F2單元格，輸入公式:=E2/SUM($E$2:$E$7)，確認(rèn)一下。再次選中F2單元格，將鼠標(biāo)移至該單元格右下角成“細(xì)十字線狀”時(shí)，按住左鍵向下拖拉至F7單元格，將上述公式復(fù)制到其中。再同時(shí)選中F2至F7單元格區(qū)域，單擊一下“格式”工具欄上的“百分比樣式”按鈕，將計(jì)算結(jié)果顯示成百分比樣式(見圖13)。這種“細(xì)十字線狀”，我們通常稱之為“填充柄”狀態(tài)。第四步:仿照上述操作，完成其他數(shù)據(jù)的統(tǒng)計(jì)函數(shù)和公式的輸入工作。小提示在進(jìn)行“有哪些質(zhì)量問題”調(diào)查項(xiàng)的統(tǒng)計(jì)時(shí)，統(tǒng)計(jì)公式應(yīng)該為“=