[[20190321060744]]　『VBA 380エラー』（dskc）　ページの最後に飛ぶ

『VBA 380エラー』（dskc）

Private Sub ScrollBar1_Change()

    SpinButton1.Value = ScrollBar1.Value
    TextBox1.Value = ScrollBar1.Value

End Sub

Private Sub UserForm_Initialize()

    Dim mindata, maxdata As Integer

    mindata = 1990
    maxdata = 2100

    With ScrollBar1
        .Min = mindata
        .Max = maxdata
        .LargeChange = 5

    End With

    With SpinButton1
        .Min = mindata
        .Max = maxdata
    End With

    TextBox1 = mindata

End Sub

実行時エラー380
"valueプロパティを設定できません。プロパティの値が無効です。"
となってしまい、

 SpinButton1.Value = ScrollBar1.Value
にエラーが出てしまいます。どなたか教えていただけると助かります。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 今までしてきた質問に回答がついているのは無視して質問だけ繰り返すつもりか?
（ねむねむ） 2019/03/21(木) 07:48

順番を逆にしてはどうでしょうか。

 ＞    With ScrollBar1
 ＞        .Min = mindata
 ＞        .Max = maxdata
 ＞        .LargeChange = 5
 ＞
 ＞    End With

↑の前に、↓これを実行する

 ＞    With SpinButton1
 ＞        .Min = mindata
 ＞        .Max = maxdata
 ＞    End With

（マナ） 2019/03/21(木) 11:07

できました、ありがとうございました！
（dskc） 2019/03/21(木) 20:43

コメント返信：