|
▼Komo さん:
▼Jaka さん:
こんばんわ。
私も解決させたいので、本などで参考になりそうなものをさがしているのですが
オプションボタンの例は少なく未だに解決できていません。。。
まず、りんさんに教えていただいた内容の理解からしていこうと思い
調べてみました。
それで、私はユーザーフォームではなくワークシートにボタンを貼り付けて
いたので下記のコードをかえたら動くのでは?と思い
変更前 If TypeName(obj1.Object) = "OptionButton" Then
変更後 If obj1.progID = "Forms.checkbox.1" Then
に変えて実行してみたんですが結果は変更前と同じで
'9':インデックスが有効範囲にありません。
というエラーになりました。
オプションボタンの名前とシート名に違いがないかを確認しましたが
違うところはありませんでした。
Jakaさんの確認用を実行してみたところ、Komoさんと同じく
"オプションボタンが1個も有りません。"
という結果になっています。
どうしてもわからないので、教えていただければと思います。
宜しくお願いします。
|
|