| |
ishy さん、おはようございます。
大ちょんぼをかましてしまってました。
ishyさんとこで、上手く行かないのは私のちょんぼ＆雑な回答のせいですー。
すみません(T_T)
>>'**フォームモジュール****************************************
>>Private clsButton(15) As clsTest
>この１文に対して「ユーザー定義型は定義されていません」とデバッグ
>の段階ででます。置き場所は、Declarationsで宜しいのでしょうか。
>後（15）の15はオプションボタンのボタンの数でいいのでしょうか。
「ユーザー定義型は定義されていません」というのは、クラス名の問題だと思います。
クラスモジュールの「オブジェクト名」を「clsTest」に変えてください。
デフォルトでは、「class1」になってると思います。
このへん、ちゃんと説明しなくてすみませんでした。
置き場所は、DeclarationsでＯＫです。
clsButton(15) の「15」は確かにオプションボタンの数なんですけど、
配列の最小値は｢0」からなんで、これでは「16個」分になってしまいますね。
clsButton(1 to 15) としてください。
>> For i = 1 To 4
>> Set clsButton(i) = Nothing
>> nexti
>>
>後このiでで表している４もオプションボタンの数ということでいいのでしょうか。
すんません。これは、私がテスト的に作ったときに、オプションボタンを４個作成して作ったからです。
なので、For i = 1 To 15 に変更してください。
変数の宣言部分と、この部分がちぐはぐだったので、よけいに混乱させたと思います。
ごめんしゃい(>_<)
UserForm_QueryClose のところも同じように直してくださいね。
|
|
つん
- 03/4/11(金) 10:37 -
