Excel VBA質問箱 IV

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

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


24556 / 76732 ←次へ | 前へ→

【57524】エクセルVBAでスピンボタンのループ機能を使うには
質問  BB  - 08/8/29(金) 0:41 -

引用なし
パスワード
   夜分に失礼いたします。現在エクセルVBAで作成中のものです。
エクセルVBAのユーザーフォーム上にテキストボックスとスピンボタンを設置し、値のループをさせるべく奮闘しているのですが上手くいきません。
どなたか教えてくださいませm(__)m


最小値:1
最大値:3000

これを、スピンボタンを押すたびに
1→2→(中略)→2999→3000→1→2・・・
となるようにしたいのです。

以下、コードです。

Private Sub SpinButton1_Change()
  With SpinButton1
  TextBox1.Value = SpinButton1.Value

  SpinButton1.Max = 1
  SpinButton1.Min = 3000
    If .Min >= .Max Then
    .Value = .Max
    ElseIf .Max <= .Min Then
    .Value = .Min
    TextBox1.Value = .Value * 1
    Exit Sub
     End If
  End With
 
End Sub

何とかここまで出来ましたが、ループのところが分からず苦戦しています。
どなたか教えてくださいm(__)mお願いします

2 hits

【57524】エクセルVBAでスピンボタンのループ機能を使うには BB 08/8/29(金) 0:41 質問
【57525】Re:エクセルVBAでスピンボタンのループ機能... りん 08/8/29(金) 2:48 回答
【57559】Re:エクセルVBAでスピンボタンのループ機能... BB 08/9/2(火) 20:18 お礼

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