| heets("調(diào)查表").Select
Application.CutCopyMode = False
Range("A1").Select
MsgBox "您的選擇已經(jīng)保存，感謝您對我們工作的支持，祝您新春愉快！", vbOKOnly, "謝謝您"
End Sub第六步:輸入完成后，關(guān)閉“Visual Basic編輯器”窗口。
第七步:切換到“調(diào)查表”工作表中，點(diǎn)擊“窗體”工具欄上的“命令”按鈕，然后在工作表中拖拉出一個(gè)“命令”按鈕來，此時(shí)系統(tǒng)自動(dòng)彈出“指定宏”對話框(見圖11)，選中上面編輯的“保存”宏，確定返回。
第八步:將“命令”按鈕名(如“按鈕75”)修改為“完成”字符。再調(diào)整好按鈕的大小，定位在調(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ù)據(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、E3……E7單元格，依次輸入公式:=COUNTIF(數(shù)據(jù)表!C:C,1)、=COUNTIF(數(shù)據(jù)表!C:C,2)……=COUNTIF(數(shù)據(jù)表!C:C,6)。 小提示
由于，我們在調(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é)果顯示成百分比樣式(見圖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)該為“=COUNTIF(數(shù)據(jù)表!K:K,"TRUE")”形式。這是因?yàn)椋?#8220;復(fù)選框”選中時(shí)，“鏈接”的單元格顯示為“TRUE”，“復(fù)選框”沒有選中時(shí)，“鏈接”的單元格顯示為“FALSE”或者空白。 其實(shí)，制作調(diào)查表，如果用Microsoft Office InfoPath 2003來實(shí)現(xiàn)，可能更加方便，只不過其數(shù)據(jù)統(tǒng)計(jì)功能相對麻煩一些而已，感興趣的讀者不妨一試。
| 
