Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


52676 / 76736 ←次へ | 前へ→

【28895】Re:スピンボタン
質問  toki  - 05/9/17(土) 16:53 -

引用なし
パスワード
   ▼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が基準となりません。

どうでしょうか?

0 hits

【28892】スピンボタン toki 05/9/17(土) 15:26 質問
【28893】Re:スピンボタン ponpon 05/9/17(土) 16:09 発言
【28895】Re:スピンボタン toki 05/9/17(土) 16:53 質問
【28896】Re:スピンボタン りん 05/9/17(土) 17:08 回答
【28899】Re:スピンボタン toki 05/9/17(土) 19:36 お礼
【28898】Re:スピンボタン ponpon 05/9/17(土) 19:16 発言
【28900】Re:スピンボタン toki 05/9/17(土) 19:37 お礼

52676 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free