Attribute VB_Name = "Module1" '■ マクロ500連発<第2段> ' ' 分析ツールの「指数平滑」ダイアログを利用する ' ' Copyright(C) 2000 Sunago ' ' Sub ExponQ([inprng], [outrng], ' [damp], [stderrs], [chart], [labels]) ' ' 引数:inprng 入力範囲をセル参照で指定 ' outrng 出力先テーブルの左上隅のセル参照 ' または、ワークシート名を指定 ' (引数省略時は、新規ブックへ出力) ' damp 減衰率 ' stderrs 標準誤差の表示(True,False) ' chart グラフの作成(True,False) ' labels 先頭行、列をラベルで使用(True,False) ' ' ※このマクロを利用するには、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 '出力先となる範囲をクリア(再実行時のエラー対策) Range("C5:I6").ClearContents '「z検定:2標本による平均の検定」ダイアログを表示する Application.Run "ATPVBAEN.XLA!ExponQ", _ ActiveSheet.Range("$C$4:$I$4"), _ ActiveSheet.Range("$C$5"), 0.2, True, True, False End Sub