'=========================================================================================
' 434 スピンボタンの最小・最大値を設定する
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードです。
' UserForm1にもコードがあり、標準モジュールのコードと連係して動作します


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    Worksheets("Title").Activate
    UserForm1.Show
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------


'=========================================================================================
' ◆UserForm1のコード◆
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize()           'ユーザーフォームが表示される直前に実行するマクロ
    SpinButton1.Min = 100                   'スピンボタン1で設定可能な最小値
    SpinButton1.Max = 500                   '　　　〃　　　　　〃　　 最大値
    SpinButton1.Value = 100                 '　　　〃　　 の値を100にする
End Sub
'=========================================================================================
Private Sub SpinButton1_change()            'スピンボタンをクリックしたときに実行するマクロ
    UserForm1.TextBox1.Value = SpinButton1.Value 'テキストボックス1にスピンボタン1の値をセットする
End Sub
'=========================================================================================
Private Sub CommandButton1_Click()          'コマンドボタンがクリックされたときに実行するマクロ
    SpinButton1.Max = 200                   'スピンボタン1で設定可能な最大値 ◆◆◆
    SpinButton1.Value = 200                 '　　　〃　　 の値を200にする
    Label1.Caption = "最大値は 200"         'ラベルの文字を変える
End Sub
'-----------------------------------------------------------------------------------------
Private Sub CommandButton2_Click()          'コマンドボタンがクリックされたときに実行するマクロ
    SpinButton1.Min = 10                    'スピンボタン1で設定可能な最小値 ◆◆◆
    SpinButton1.Value = 10                  '　　　〃　　 の値を100にする
    Label2.Caption = "最小値は 10"
End Sub
'-----------------------------------------------------------------------------------------
Private Sub CommandButton3_Click()          'コマンドボタンがクリックされたときに実行するマクロ
    Unload Me                               'ユーザーフォームを非表示にする
End Sub
'=========================================================================================