Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52056 / 76736

←次へ　｜　前へ→


	【29524】Re:オプションボタン

ハッチ - 05/10/6(木) 21:44 -


	引用なし

	パスワード

▼Komo さん：
▼Jaka さん：

こんばんわ。
私も解決させたいので、本などで参考になりそうなものをさがしているのですが
オプションボタンの例は少なく未だに解決できていません。。。

まず、りんさんに教えていただいた内容の理解からしていこうと思い
調べてみました。
それで、私はユーザーフォームではなくワークシートにボタンを貼り付けて
いたので下記のコードをかえたら動くのでは？と思い

　変更前　　If TypeName(obj1.Object) = "OptionButton" Then
　変更後　　If obj1.progID = "Forms.checkbox.1" Then

　に変えて実行してみたんですが結果は変更前と同じで
　　　'9':インデックスが有効範囲にありません。
　というエラーになりました。
　オプションボタンの名前とシート名に違いがないかを確認しましたが
　違うところはありませんでした。

Jakaさんの確認用を実行してみたところ、Komoさんと同じく
　　"オプションボタンが1個も有りません。"
という結果になっています。

どうしてもわからないので、教えていただければと思います。
宜しくお願いします。
　　　　　　

0 hits

▼

【29119】オプションボタン ハッチ 05/9/25(日) 13:48