VBA：一因子變異數分析(ANOVA)錄製版

 好久沒寫統計分析得東西了，今天翻出了童甲春教授著作的統計學引用裏頭的範例來做做變異數分析，簡單操作。

分析資料：

圖1.資料

一般EXCEL操作 動畫版：

圖2.運算結果

小編做成動畫版同時也把VBA錄製起來了，接下來修改CODE。

SUB 巨集1

 Application.Run "ATPVBAEN.XLAM!Anova1", ActiveSheet.Range("$C$2:$E$7"), _

        ActiveSheet.Range("$I$2"), "C", True, 0.05

END SUB

修改成可以調整資料位置：

Sub 巨集1()

RANGE1 = Application.InputBox("選擇資料矩陣的儲存格範圍", Type:=8).Address '取得位置

RANGE2 = Application.InputBox("選擇資料輸出的儲存格位置", Type:=8).Address '取得位置

ALPHA = InputBox("", "ALPHA 風險設定")

     Application.Run "ATPVBAEN.XLAM!Anova1", ActiveSheet.Range("$C$2:$E$7"), _

        ActiveSheet.Range(RANGE2), "C", True, ALPHA

        

End Sub

其他補充：

 "C"是指逐欄 R指逐列

圖3.變異數分析設定截圖

TRUE,就是資料有無標題設定

小編碎念：也在想還是寫成自動識別資料就好，就不需要太多對話框設定，因為太多對話框那用EXCEL內建的就好啦QQ

簡單測試動畫：

圖4.修改後運算結果