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


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



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



'=========================================================================================
' ◆UserForm1のコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim 入力値 As Long


'=========================================================================================
Private Sub UserForm_Initialize()           'ユーザーフォームが表示される直前に実行するマクロ
    SpinButton1.Value = 100                   'スピンボタン1の値を100にする
    SpinButton1.Min = SpinButton1.Value       '　　　〃　　 で設定可能な最小値
    SpinButton1.Max = SpinButton1.Value + 500 '　　　〃　　　　　〃　　 最大値
End Sub
'=========================================================================================
Private Sub TextBox1_AfterUpdate()          'テキストボックスが更新されたときに実行するマクロ
    入力値 = Val(TextBox1.Text)
    If 入力値 = 0 Then
        入力値 = Val("1")
    End If
    SpinButton1.Min = 入力値                  'スピンボタン1で設定可能な最小値
    SpinButton1.Max = 入力値 + 500            '　　　〃　　 で設定可能な最大値
    SpinButton1.Value = 入力値                '　　　〃　　  の値を入力値にする
    Label2.Caption = " スピンボタンの値は " & 入力値 & " です"
End Sub
'=========================================================================================
Private Sub OptionButton1_Click()
    SpinButton1.Min = 3                       'スピンボタン1で設定可能な最小値
    SpinButton1.Max = 3 + 500                 '　　　〃　　 で設定可能な最大値
    SpinButton1.Value = 3                     '　　　〃　　 の値を3にする
    Label2.Caption = " スピンボタンの値は " & SpinButton1.Value & " です"
End Sub
'-----------------------------------------------------------------------------------------
Private Sub OptionButton2_Click()
    SpinButton1.Min = 47
    SpinButton1.Max = 47 + 500
    SpinButton1.Value = 47
    Label2.Caption = " スピンボタンの値は " & SpinButton1.Value & " です"
End Sub
'-----------------------------------------------------------------------------------------
Private Sub OptionButton3_Click()
    SpinButton1.Min = 555
    SpinButton1.Max = 555 + 500
    SpinButton1.Value = 555
    Label2.Caption = " スピンボタンの値は " & SpinButton1.Value & " です"
End Sub
'=========================================================================================
Private Sub SpinButton1_change()            'スピンボタンをクリックしたときに実行するマクロ
    Label2.Caption = " スピンボタンの値は " & SpinButton1.Value & " です"
End Sub
'=========================================================================================
Private Sub CommandButton3_Click()          'コマンドボタンがクリックされたときに実行するマクロ
    Unload Me                               'ユーザーフォームを非表示にする
End Sub
'=========================================================================================