Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　ソルバーの「パラメータ設定」ダイアログの規定値を設定する
'
'  Copyright(C) 2000 Sunago
'
'  ※このマクロを実行するには"solver.xla"を参照設定してください。

Option Explicit

Sub Macro1()
Dim ret
Dim rngSet As Variant
Dim rngTerm As Variant
Dim rngVar As Variant

    Worksheets("Sheet1").Activate
    
    Set rngSet = Range("B15")       '目的セル
    Set rngTerm = Range("F11")      '制約条件の参照
    Set rngVar = Range("B11:E11")   '変化させるセル

    'パラメータの初期化
    SolverReset

    '制約条件の追加
    SolverAdd CellRef:=rngTerm, Relation:=1, FormulaText:=35000
    'パラメータ設定ダイアログの表示
    '   第1引数(セル参照)：目的セル
    '   第2引数(数値)　　：目的値区分（1：最大値、2：最小値、3：値）
    '   第3引数(数値)　　：目的値（区分に「値」を設定したとき）
    '   第4引数(セル参照)：変化させるセル
    On Error Resume Next
    SolverOkDialog SetCell:=rngSet, MaxMinVal:=1, ValueOf:=0, ByChange:=rngVar
    On Error GoTo 0

    '規定値なしでダイアログを表示する場合は次のコードを用います。
    '
    'ソルバー：パラメータ設定ダイアログの表示
    'ret = Application.Run("solver.xla!Main")
    'ソルバー：オプション設定ダイアログの表示
    'ret = Application.Run("solver.xla!show_options")

End Sub