Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　分析ツールの「分散分析：一元配置」を実行する
'
'  Copyright(C) 2000 Sunago
'
'  分析ツールアドイン(Atpvbaen.xla)の分散分析：一元配置は
'  次のように定義されています。
'
'  Sub Anova1(inprng, [outrng], [grouped], [labels], [alpha])
'
'  引数：inprng  分析するデータ範囲のセル参照を指定
'        outrng  出力先テーブルの左上隅のセル参照
'                または、ワークシート名を指定
'                （引数省略時は、新規ブックへ出力）
'        grouped データ方向を行は"R"、列は"C"で指定
'        labels  先頭行、列をラベルで使用(True,False)
'        alpha   Ｆ統計量の臨海値を評価するための水準を指定
'

Option Explicit

'  このマクロを利用には、Excelインストール先の\Libary\Anaysis
'  フォルダ内のAtpvbaen.xlaに対し、参照設定が必要になります。
Sub Macro1()
    Worksheets("Sheet1").Activate
    Call Anova1(ActiveSheet.Range("$A$1:$C$20"), _
                ActiveSheet.Range("$F$1"), _
                "C", True, 0.05)
End Sub

'  こちらは自動記録したマクロに「分析ツール − VBA関数」アドインが
'  組み込まなくても動作する処理を追加したものです。
Sub Macro2()
Dim blnResult

    '分析ツールをワークシートで使うおまじない
    '（内容はアドインの組み込みと同じ）
    blnResult = Application.RegisterXLL(Application.LibraryPath & _
                                        "\Analysis\ANALYS32.XLL")
    
    Worksheets("Sheet1").Activate
    Application.Run "ATPVBAEN.XLA!Anova1", ActiveSheet.Range("$A$1:$C$20"), _
        ActiveSheet.Range("$F$1"), "C", True, 0.05
End Sub

Sub Macro3()
    Worksheets("Sheet1").Activate
    Call Anova1Q(ActiveSheet.Range("$A$1:$C$20"), _
                ActiveSheet.Range("$F$1"), _
                "C", True, 0.05)
End Sub