|
▼両津 さん:
こんばんは。
>はじめまして。いきなり質問させていただきます。
>commandbutton1,commandbutton2,commandbutton3があったとします。
下のコードを見ただけでははっきりとこのコマンドボタンがどこに
貼り付けられたコマンドボタンか判断が付きませんでした。
(ユーザーフォームに貼り付けたボタンか、シートに貼り付けたそれか・・)
これによって、記述が違ってきてしまいます。
次回からは、この辺の説明をお願いします。
ユーザーフォームのものだと思って・・・。
>
Dim xxx As Integer
For idx = 1 To 3
Controls("commandbutton" & idx).Visible = False
Next idx
Randomize
xxx = Int(Rnd() * 3)+1 'ここもちょっと違ってた!!
Controls("commandbutton" & xxx).Visible = True
シートに貼り付けてあるコマンドボタンの場合は、
ControlsをOleobjectsに変えてください。
但し、ControlsもOleobjectsもこのコードを記述するモジュールによっては
親オブジェクトの指定が必要ですよ。
|
|