每年春節(jié)前后，建筑工程施工現(xiàn)場(chǎng)相對(duì)比較清閑，我們這些從事建設(shè)工程質(zhì)量監(jiān)督的人員，就抽空到居民家中，開(kāi)展一年一度的全市住房狀況調(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)查問(wèn)卷的思路
　　在Excel中，我們先利用“窗體”工具欄上的“分組框、選項(xiàng)按鈕、復(fù)選框、組合框、按鈕”等控件，制作成如圖1所示的調(diào)查表，并將每一位參與調(diào)查居民的選擇結(jié)果保存在表格下方對(duì)應(yīng)的單元格中。然后通過(guò)“宏按鈕”將選擇結(jié)果依次復(fù)制到“數(shù)據(jù)表”工作表中保存起來(lái)。最后，利用函數(shù)和公式對(duì)數(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)查問(wèn)卷前要進(jìn)行一些準(zhǔn)備工作，以方便后面的制作過(guò)程:
第一步:啟動(dòng)Excel2003(其他版本操作相似)，新建一工作簿文檔，取名保存(如“工程調(diào)查.xls”)。
第二步:依次雙擊工作表標(biāo)簽(sheet1、sheet2、sheet3)，使其成反白狀態(tài)，再輸入字符，將其重命名為“調(diào)查表、數(shù)據(jù)表、數(shù)據(jù)統(tǒng)計(jì)”(見(jiàn)圖2)。

第三步:將A1至L1單元格合并后，輸入調(diào)查表標(biāo)題(如“某某市住房狀況調(diào)查表”)；將A2至L2單元格合并后，輸入調(diào)查說(shuō)明；并設(shè)置好字體、字號(hào)等。
第四步:執(zhí)行“視圖→工具欄→窗體”命令，展開(kāi)“窗體”工具欄(見(jiàn)圖2)。
好了，現(xiàn)在我們可以添加用于調(diào)查的各種控件了。
1.選項(xiàng)按鈕的添加:所謂“選項(xiàng)按鈕”，就是我們通常所說(shuō)的“單選”按鈕。我們以“年齡”調(diào)查項(xiàng)為例，來(lái)看看具體的添加過(guò)程:
第一步:點(diǎn)擊“窗體”工具欄上的“分組框”按鈕，然后在工作表中拖拉出一個(gè)分組框，并將分組框名(如“分組框2”)修改為“年齡”(見(jiàn)圖3)。

第二步:點(diǎn)擊“窗體”工具欄上的“選項(xiàng)按鈕”按鈕，然后在上述“年齡”分組框中拖拉出一個(gè)按鈕來(lái)，并將按鈕名(如“選項(xiàng)按鈕4”)修改為相應(yīng)的調(diào)查項(xiàng)字符(如“20歲以下”，見(jiàn)圖3)
第三步:重復(fù)上述操作，再添加若干“選項(xiàng)按鈕”。小提示
選中第1個(gè)“選項(xiàng)按鈕”，在按住Ctrl鍵的同時(shí)，拖動(dòng)一下鼠標(biāo)，復(fù)制一個(gè)選項(xiàng)按鈕，修改一下其中的字符即可快速制作出另一個(gè)“選項(xiàng)按鈕”來(lái)。第四步:雙擊其中任意一個(gè)“選項(xiàng)按鈕”，打開(kāi)“設(shè)置控件格式”對(duì)話框(見(jiàn)圖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ì)量問(wèn)題”調(diào)查項(xiàng)為例，來(lái)看看具體的添加過(guò)程:
第一步:制作一個(gè)“存在哪些質(zhì)量問(wèn)題”分組框。
第二步:點(diǎn)擊“窗體”工具欄上的“復(fù)選框”按鈕，然后在上述“分組框”中拖拉出一個(gè)“復(fù)選框”來(lái)，并將“復(fù)選框”名(如“復(fù)選框74”)修改為相應(yīng)的調(diào)查項(xiàng)字符(如“屋面滲水”，見(jiàn)圖5)。

第三步:雙擊剛才添加的第1個(gè)“復(fù)選框”按鈕，打開(kāi)“設(shè)置控件格式”對(duì)話框(見(jiàn)圖4)，切換到“控制”標(biāo)簽下，在“單元格鏈接”右側(cè)的方框中輸入“$K$50”，確定返回。第四步:重復(fù)上述2、3兩步操作，根據(jù)調(diào)查內(nèi)容，添加其他復(fù)選框。小提示
由于是“復(fù)選框”，所以每一個(gè)“復(fù)選框”的“單元格鏈接”地址是不同的，需要逐一設(shè)置。第五步:調(diào)整好“分組框”、“復(fù)選框”的大小和位置。

3.組合框的添加:所謂“組合框”，就是我們通常所說(shuō)的“下拉框”。我們以“學(xué)歷”調(diào)查項(xiàng)為例，來(lái)看看具體的添加過(guò)程:
第一步:在L4至L11單元格區(qū)域(不一定非得是這個(gè)區(qū)域喲)中，輸入各學(xué)歷分類(見(jiàn)圖6)。
第二步:制作一個(gè)“學(xué)歷”分組框。小提示
其實(shí)，這里只有一個(gè)“組合框”，完全不需要添加一個(gè)“分組框”。我們之所以添加一個(gè)分組框，是為了保持調(diào)查表格式的統(tǒng)一。第三步:點(diǎn)擊“窗體”工具欄上的“組合框”按鈕，然后在上述“分組框”中拖拉出一個(gè)“組合框”來(lái)。

第四步:雙擊上述“組合框”，打開(kāi)“對(duì)象格式”對(duì)話框(見(jiàn)圖7)，在“數(shù)據(jù)源區(qū)域”右側(cè)的方框中輸入“$L$4:$L$11”，在“單元格鏈接”右側(cè)的方框中輸入“$D$50”，確定返回。
第五步:調(diào)整好“分組框”、“組合框”的大小和位置(見(jiàn)圖8)。

仿照上面的操作，完成其他調(diào)查項(xiàng)的制作過(guò)程。
保存調(diào)查數(shù)據(jù)
我們通過(guò)一個(gè)宏，將居民選擇的結(jié)果(顯示在“調(diào)查表”工作表第50行相應(yīng)的單元格中)依次復(fù)制保存到“數(shù)據(jù)表”工作表中，并通過(guò)一個(gè)按鈕來(lái)運(yùn)行該宏。
第一步:切換到“數(shù)據(jù)表”工作表下，仿照?qǐng)D9的樣式制作一張用來(lái)保存數(shù)據(jù)的空白表格。

第二步:在D1單元格中輸入公式:=COUNTA(A:A)-2，用于統(tǒng)計(jì)參加調(diào)查的人數(shù)。
第三步:按“Alt+F11”組合鍵，進(jìn)入“Visual Basic編輯器”窗口(見(jiàn)圖10)。

第四步:在左側(cè)“工程資源管理器”窗口中，選中“VBAProject(工程調(diào)查.xls)”選項(xiàng)，然后執(zhí)行“插入→模塊”命令，插入一個(gè)新模塊。
第五步:將下述代碼輸入到右側(cè)編輯區(qū)域中(見(jiàn)圖10):
Sub 保存()
Dim rs As Integer
Sheets("調(diào)查表").Select
Rows(50).Select
Selection.Copy
Sheets("數(shù)據(jù)表").Select
rs = Cells(1, 4)
Rows(rs + 3).Select
ActiveSheet.Paste
Cells(rs + 3, 1).Value = rs + 1
Sheets("調(diào)查表").Select
Application.CutCopyMode = False
Range("A1").Select
MsgBox "您的選擇已經(jīng)保存，感謝您對(duì)我們工作的支持，祝您新春愉快！", vbOKOnly, "謝謝您"
End Sub
第六步:輸入完成后，關(guān)閉“Visual Basic編輯器”窗口。
第七步:切換到“調(diào)查表”工作表中，點(diǎn)擊“窗體”工具欄上的“命令”按鈕，然后在工作表中拖拉出一個(gè)“命令”按鈕來(lái)，此時(shí)系統(tǒng)自動(dòng)彈出“指定宏”對(duì)話框(見(jiàn)圖11)，選中上面編輯的“保存”宏，確定返回。

第八步:將“命令”按鈕名(如“按鈕75”)修改為“完成”字符。再調(diào)整好按鈕的大小，定位在調(diào)查表的右上角。
第九步:同時(shí)選中49行和50行，右擊鼠標(biāo)，在隨后彈出的快捷菜單中，選擇“隱藏”選項(xiàng)，將保存居民選擇結(jié)果的兩行隱藏起來(lái)；同時(shí)選中L至O列，也將其隱藏起來(lái)。

小提示
將上述行、列隱藏起來(lái)的目的，只是為了美化調(diào)查表而已，如果不隱藏，對(duì)調(diào)查表的使用沒(méi)有任何影響。

第十步:利用填充色等功能，對(duì)調(diào)查表進(jìn)行一番美化。
至此，整個(gè)調(diào)查表制作完成。
開(kāi)展調(diào)查
到了居民家中后，切換到“調(diào)查表”工作表下，指導(dǎo)居民根據(jù)各自的實(shí)際情況進(jìn)行選擇，選擇完成后，點(diǎn)擊一下右上角的“完成”按鈕，數(shù)據(jù)即刻被保存到“數(shù)據(jù)表”工作表相應(yīng)的行中，同時(shí)彈出見(jiàn)圖12所示的一個(gè)對(duì)話框，點(diǎn)擊其中的“確定”按鈕進(jìn)入下一個(gè)調(diào)查。
數(shù)據(jù)統(tǒng)計(jì)處理
我們利用Excel強(qiáng)大的函數(shù)和公式來(lái)完成調(diào)查數(shù)據(jù)的統(tǒng)計(jì)

處理工作(這項(xiàng)函數(shù)和公式，我們完全可以在制作調(diào)查表的時(shí)候事先制作好)。我們以“年齡”的統(tǒng)計(jì)為例，來(lái)看看具體的操作過(guò)程:
第一步:切換到“數(shù)據(jù)統(tǒng)計(jì)”工作表中，仿照?qǐng)D13所示的樣式，制作一份空白表格。
第二步:分別選中E2、E3……E7單元格，依次輸入公式:=COUNTIF(數(shù)據(jù)表!C:C,1)、=COUNTIF(數(shù)據(jù)表!C:C,2)……=COUNTIF(數(shù)據(jù)表!C:C,6)。

小提示
由于，我們?cè)谡{(diào)查表中將年齡分為6種類型，分別用數(shù)字1、2……6表示。因此，只要用COUNTIF函數(shù)分別統(tǒng)計(jì)“數(shù)據(jù)表”C列數(shù)值“1、2……6”的個(gè)數(shù)即可。

第三步:選中F2單元格，輸入公式:=E2/SUM($E$2:$E$7)，確認(rèn)一下。再次選中F2單元格，將鼠標(biāo)移至該單元格右下角成“細(xì)十字線狀”時(shí)，按住左鍵向下拖拉至F7單元格，將上述公式復(fù)制到其中。再同時(shí)選中F2至F7單元格區(qū)域，單擊一下“格式”工具欄上的“百分比樣式”按鈕，將計(jì)算結(jié)果顯示成百分比樣式(見(jiàn)圖13)。

這種“細(xì)十字線狀”，我們通常稱之為“填充柄”狀態(tài)。

第四步:仿照上述操作，完成其他數(shù)據(jù)的統(tǒng)計(jì)函數(shù)和公式的輸入工作。

小提示
在進(jìn)行“有哪些質(zhì)量問(wèn)題”調(diào)查項(xiàng)的統(tǒng)計(jì)時(shí)，統(tǒng)計(jì)公式應(yīng)該為“=COUNTIF(數(shù)據(jù)表!K:K,"TRUE")”形式。這是因?yàn)椋?/span>“復(fù)選框”選中時(shí)，“鏈接”的單元格顯示為“TRUE”，“復(fù)選框”沒(méi)有選中時(shí)，“鏈接”的單元格顯示為“FALSE”或者空白。

其實(shí)，制作調(diào)查表，如果用Microsoft Office InfoPath 2003來(lái)實(shí)現(xiàn)，可能更加方便，只不過(guò)其數(shù)據(jù)統(tǒng)計(jì)功能相對(duì)麻煩一些而已，感興趣的讀者不妨一試。