Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　分析ツールの「ヒストグラム」ダイアログを利用する
'
'  Copyright(C) 2000 Sunago
'
'  分析ツールアドイン(Atpvbaen.xla)のヒストグラムは
'  次のように定義されています。
'
'  Sub HistogramQ([inprng], [outrng], [binrng],
'                 [pareto], [chartc], [chart], [labels])
'
'  引数：inprng  分析するデータ範囲のセル参照を指定
'        outrng  出力先テーブルの左上隅のセル参照
'                または、ワークシート名を指定
'                （引数省略時は、新規ブックへ出力）
'        binrng  データ区間のセル参照を指定
'        pareto  パレート図を作成(True,False)
'        chartc  累積度分布を表示(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
    '「ヒストグラム」ダイアログを表示する
    Application.Run "ATPVBAEN.XLA!HistogramQ", _
                       ActiveSheet.Range("$B$1:$B$20"), _
                          ActiveSheet.Range("$F$1"), _
                             ActiveSheet.Range("$D$1:$D$6"), _
                                False, False, , True
                                
End Sub