|
▼ponpon さん:
こんにちはponponさんいつもありがとうございます!
ところで本日の質問はユーザーフォームのスピンボタンです。
>ユーザーフォームのスピンボタンなら、
>表示用のTextBox1があるとして、
>
>Private Sub UserForm_Initialize()で、
>スピンボタンの値を
> If Me.TextBox1.Value <> "" Then
> SpinButton1.Value = Me.TextBox1.Value
> End If
>とし、
>
>Private Sub SpinButton1_Change()
>Me.TextBox1.Text = Me.SpinButton1.Value
>End Sub
>とすれば、よいのでは?
ponponさんのご指摘通りやってみましたが、テキストボックスに手入力した値が無視されてしまいます。
例えばスピンボタンで1、2、3と上昇させ3の状態で、手入力で10といれた場合、その後スピンボタンで11、12、13と動けばよいのですが、もとの3を基準として4、5、6となってしまいます。つまり手入力の10が基準となりません。
どうでしょうか?
|
|