VBA SPINボタンのFOR文

解決済

質問者：jones0901
質問日時：2003/02/16 04:49
回答数：1件

現在下記のようなプログラムを作成しているのですが

For i = 1 To 30
列番号 = Sheets(1).SpinButton1.Value
　　　　処理
next

実はSPINBUTTONが30個あり(spinbutton1～spinbutton30)
行番号の部分をfor文のIを用いてSPINボタンを複数で
まわしたいのですがどうすればいいのでしょうか？
以下のやり方で試してみたのですが、
”オブジェクトはメソッドをサポートしていません”
というエラーが発生しました。
列番号 = Sheets(1).me("SpinButton" & i).Value
どうすれば複数のspinbuttonをFOR文でまわせるのでしょうか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

No.1ベストアンサー

回答者： u_marine
回答日時：2003/02/16 09:09

自宅のエクセルがないパソコンなので具体的にコーディングができないのですが、こんな感じで上手にいくと思います。

１．30個あるスピンボタンに規則正しく名前をつけます。例えば「Spn_Btn01」～「Spn_Btn30」という感じです。
名前の左の３文字は２で使用するので、他のオブジェクトと区別がつくようにします。

２．For each ～ Next 文を使用します。

For each Btn in (ワークシート上のスピンボタン)

　IF Left(Btn.Name,4) = "Spn_" Then

処理

　End IF

Next Btn

(ワークシート上スピンボタン)の部分はヘルプで確認が必要になりますが、お試しください。