| |
▼両津 さん：
こんばんは。
>はじめまして。いきなり質問させていただきます。
>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もこのコードを記述するモジュールによっては
親オブジェクトの指定が必要ですよ。
|
|
ichinose
- 04/8/11(水) 20:41 -
