資源簡介

用EXCEL做調查問卷
用EXCEL做調查問卷好過簡單的word文檔的調查表，如果直接用電腦收集數據的話。EXCEL做調查問卷，后期的錄入要簡單很多，而且問卷的美觀上也可以。于是一直在網上查了相關的資料，EXCEL做調查問卷，可以做到在共享下多人同時對其進行操作，所有人的結果都會分別保存，不會被覆蓋，并會自動根據選擇結果做出統計，并以餅形圖方式將結果表現出來。這樣也就用了簡單的VBA和EXCEL的“窗體”工具欄上的“分組框、選項按鈕、復選框、組合框、按鈕”等控件，還是比較簡單的。今天按照書上的例子做了個《洗發水的調查問卷》，在網上也收集了幾套這樣調查問卷，《英語培訓調查問卷》、《市場調查問卷》、《教師調查問卷》和《組織人員配置情況調查表》。他人做的調查問卷更是精美，很是值得學習。


附兩個重要的VBA代碼：
代碼一、
Public
Sub
自動記錄調查數據()

Dim
Temp
As
Integer
'定義一個用來保存工作表中單元格數據行數的整型變量

Dim
count
As
Integer
'定義一個用來保存調查結果記錄行數的整型變量

Temp
=
Sheets("Sheet3").[A1].CurrentRegion.Rows.count

'將用于保存調查數據的工作表Sheet3的記錄行數賦給count

count
=
Temp
-
3
'工作表中有3行單元格保存字段名

Sheets("Sheet1").Select

Range("A32:L32").Select
'在選定的工作表Sheet1選擇待保存數據的區域

Selection.Copy
'對選擇的數據區域進行復制操作

Sheets("Sheet3").Activate
'激活保存調查數據的工作表Sheet3

Rows(Temp
+
1).Select
'選擇工作表中最后一條記錄的下一行單元格區域

ActiveSheet.Paste
'粘貼數據

Cells(Temp
+
1,
13).Value
=
count
+
1
'實現數據記錄的自動編號功能

Sheets("Sheet1").Select

Application.CutCopyMode
=
False
'釋放進行復制操作的單元格區域

MsgBox
"記錄已成功保存，謝謝！",
vbOKOnly,
"確定"
'以對話框的形式輸出信息
End
Sub

代碼二、
Public
Sub
統計調查數據()
Dim
i,
j,
t
As
Integer
'定義用于循環的整型變量
Dim
count
As
Integer
'定義用于保存記錄數的整型變量
Dim
Temp
As
Variant
'定義用于讀取單元格內容的變體型變量

count
=
Sheets("Sheet3").[A1].CurrentRegion.Rows.count

'將保存調查數據工作表的記錄數賦值給count

Sheets("Sheet4").Select

For
Each
Temp
In
Range("B4:M9")

Temp.Value
=
""
'將單元格區域“B4：M9”的值置空

Next
Temp

Sheets("Sheet3").Select

For
i
=
4
To
count

For
j
=
1
To
12

t
=
j
+
1
'Sheet3和Sheet4起始單元格之間有一個差值，即多了“選項數目”一列

Select
Case
Cells(i,
j)
'對工作表Sheet3中的單元格內容執行Select
Case語句

Case
1

Worksheets("Sheet4").Cells(4,
t)
=
Worksheets("Sheet4").Cells(4,
t)
+
1

'如果Sheet3中單元格值為1，則Sheet4中對應的單元格的統計數值加1

Case
2

Worksheets("Sheet4").Cells(5,
t)
=
Worksheets("Sheet4").Cells(5,
t)
+
1

'如果Sheet3中單元格值為2，則Sheet4中對應的單元格的統計數值加1

Case
3

Worksheets("Sheet4").Cells(6,
t)
=
Worksheets("Sheet4").Cells(6,
t)
+
1

Case
4

Worksheets("Sheet4").Cells(7,
t)
=
Worksheets("Sheet4").Cells(7,
t)
+
1

Case
5

Worksheets("Sheet4").Cells(8,
t)
=
Worksheets("Sheet4").Cells(8,
t)
+
1

Case
6

Worksheets("Sheet4").Cells(9,
t)
=
Worksheets("Sheet4").Cells(9,
t)
+
1

End
Select

Next
j

Next
i

Sheets("Sheet4").Select

Dim
chtChart
As
Chart
'定義一個圖表類型變量chtChart

Set
chtChart
=
Charts.Add
'將添加的圖表賦值給chtChart

With
chtChart
'使用With語句

.Location
where:=xlLocationAsNewSheet
'指定添加的此圖表的位置

'.Name
=
"數據分析圖"
'設置圖表顯示在新建的“數據分析圖”工作表中

.ChartType
=
xlColumnClustered
'選擇圖表類型為“柱形圖”

.SetSourceData
Source:=Sheets("Sheet4").Range("A3:M9"),
PlotBy:=xlRows
'選擇數據來源

.HasTitle
=
True
'設置圖表顯示標題

.ChartTitle.Characters.Text
=
"市場調查數據分析"
'設置圖表標題為“市場調查數據分析”

.Axes(xlCategory,
xlPrimary).HasTitle
=
True
'設置圖表顯示x軸坐標標題

.Axes(xlCategory,
xlPrimary).AxisTitle.Characters.Text
=
"調查內容"
'設置x軸坐標標題

.Axes(xlValue,
xlPrimary).HasTitle
=
True
'設置圖表顯示y軸坐標標題

.Axes(xlValue,
xlPrimary).AxisTitle.Characters.Text
=
"選項數目"
'設置y軸坐標標題

End
With
End
Sub

展開更多......

收起↑