Ｐａｇｅ 600 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼スピンボタンについて yasu 03/1/23(木) 12:35 ┗Re:スピンボタンについて Nakamura 03/1/23(木) 13:00 ┗Re:スピンボタンについて [名前なし] 03/1/23(木) 22:24 ─────────────────────────────────────── ■題名 ： スピンボタンについて ■名前 ： yasu ■日付 ： 03/1/23(木) 12:35 -------------------------------------------------------------------------
| スピンボタンの範囲の設定を100〜150、200〜250･･･と連続していない範囲で設定する方法を教えてください |
| ▼yasu さん： >スピンボタンの範囲の設定を100〜150、200〜250･･･と連続していない範囲で設定する方法を教えてください こんにちは 設定では無理だと思いますので、こんな方法はどうでしょうか？ シートモジュールに Option Explicit Dim spval 'モジュールの先頭に記述 Private Sub SpinButton1_Change() Application.EnableEvents = False With SpinButton1 If .Value > 150 And .Value < 200 Then If spval <= 150 Then .Value = 200 Else .Value = 150 End If End If spval = .Value End With Application.EnableEvents = True End Sub としてみて下さい。 それでは |
| ▼Nakamura さん： ありがとうございます。助かりました。またご教授よろしくお願いします。 |