Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　分析ツールの「回帰分析」ダイアログを利用する
'
'  Copyright(C) 2000 Sunago
'
'  Sub RegressQ([inpyrng], [inpxrng], [constant], [labels],
'                 [confid], [soutrng], [residuals], [sresiduals],
'                   [rplots], [lplots], [routrng], [nplots], [poutrng])
'
'  引数：inpyrng  入力範囲Ｙをセル参照で指定
'        inpxrng　入力範囲Ｘをセル範囲で指定
'        constant 定数に０を使用(True,False)
'        labels  先頭行、列をラベルで使用(True,False)
'        confid  有意水準(%)
'        soutrng 出力先テーブルの左上隅のセル参照
'                または、ワークシート名を指定
'                （引数省略時は、新規ブックへ出力）
'        residuals  残差の表示(True,False)
'        sresiduals 標準化された残差の表示(True,False)
'        rplots   ※無効    残差グラフの作成(True,False)
'        lplots   ※無効    観測値グラフの作成(True,False)
'        routrng  ※未使用（データの出力先）
'        nplots   ※無効　  正規確立グラフの作成(True,False)
'        poutrng  ※未使用（グラフの出力先）
'
'  ※このマクロを利用するには、Excelインストールのオプションで
'  アドイン：分析ツールをインストールしておく必要があります。
'
Option Explicit

Sub Macro1()
Dim strfile As String
Dim ps As String
Dim blnResult

    '分析ツール(VBA関数)アドインを新規登録し、組み込む
    ps = Application.PathSeparator      ' Excel98(Mac)対策
    strfile = Application.LibraryPath & _
                        ps & "Analysis" & ps & "ATPVBAEN.XLA"
    AddIns.Add(strfile).Installed = True
    
    Worksheets("Sheet1").Activate
    
    '「回帰分析」ダイアログを表示する
    Application.Run "ATPVBAEN.XLA!RegressQ", _
                       ActiveSheet.Range("$B$3:$B$9"), _
                          ActiveSheet.Range("$C$3:$C$9"), _
                             False, False, 95, "", _
                                True, True, True, True, , True
End Sub