|
▼りん さん:
>こんにちわ。
>
>>ponponさんのご指摘通りやってみましたが、テキストボックスに手入力した値が無視されてしまいます。
>>例えばスピンボタンで1、2、3と上昇させ3の状態で、手入力で10といれた場合、その後スピンボタンで11、12、13と動けばよいのですが、もとの3を基準として4、5、6となってしまいます。つまり手入力の10が基準となりません。
>>
>>どうでしょうか?
>
>Changeではなく、SpinUP&Downを使ってみては?
>
>Private Sub SpinButton1_SpinDown()
> With TextBox1
> .Value = .Value - 1
> End With
>End Sub
>
>Private Sub SpinButton1_SpinUp()
> With TextBox1
> .Value = .Value + 1
> End With
>End Sub
>
>こんな感じです。
>テキストボックスに入っている文字が、数値として判定されない文字だとエラーになりますが。
ありがとうございます!!うまくいきました!!
助かりました!!!またよろしくお願いします。
|
|