![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
オプションボタンの枠線を消す、グループ数についての質問です。
イミディエイト ウインドウにて、
ActiveSheet.GroupBoxes.Visible = Faulse
の記入で枠線を非表示にすることが確認できていますが、、、、、
YesNoの二択の質問が多く72あります。
各々YesとNoのオプションボタンをグループ化して、最後に
「ActiveSheet.GroupBoxes.Visible = Faulse」を入力しましたが
エラー1004でした。一つずつグループを消していき、61個になった時点で
消すことが出来ました。
数量に限度があるのでしょうか。また回避する方法があれば教えてください。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
回答したとおりに行っていただければよいだけのことなのですが,それとも一体「何が」変わらないのですか?
二度も同じ事をお話ししたくは無いのですが,デキナイという事なので手順の説明をもう一度繰り返します。
>ちなみにイミディエイトウィンドウに
Ctrl+Gでイミディエイトウィンドウを出します。
しかしイミディエイトウィンドウを出す事は既に出来ているはずです。
>for each o in activesheet.checkboxes : o.visible = false : next
イミディエイトウィンドウにこの一行を記入します
「ActiveSheet.GroupBoxes.Visible = False」を記入するなんて事はお話ししていません。
>と記入してEnterすることで,回避できます。
上述を記入しEnterすることで実行します。
しかしこの手順も既に「ActiveSheet.GroupBoxes.Visible = False」を記入しEnterして実行できたことで,出来ているはずです。
#それともこういうことを言ってるのですか?
この手順を実行することで「ActiveSheet.GroupBoxes.Visible = Falseでエラーになるのを回避できる」という事をお話ししているのではありません。
この手順を実行することで,あなたが行った手順で発生したエラーを起こさずに,グループボックスを全て非表示に出来ますとお話ししています。
手順は理解できていたのですが、
>for each o in activesheet.checkboxes : o.visible = false : next
ではグループボックスの枠線は消えませんでした。
グループボックス枠線を消したかったので、以下に変更することで、
for each o in activesheet.groupboxes : o.visible = false : next
解決いたしました。
本当に、ありがとうございました。
助かりました。
No.1
- 回答日時:
数に限度があります。
単なるエクセルのバグです。(正式な仕様ではなかったと記憶しているので,バグとは言わないのかもしれませんが。)なお,コントロールの種類によって,更に「コントロール(図形)の並べ方」によって,エラーになる数が違います。
また「エラーにならない上限以下」の個数であるにもかかわらず,図形s.visible = false をしても不可視に「ならない」コントロールが発生するような現象も起こります。
ちなみにイミディエイトウィンドウに
for each o in activesheet.checkboxes : o.visible = false : next
と記入してEnterすることで,回避できます。
この回答への補足
早速にありがとうございます。
素人なので見当違いをしているのでしょうか。
下記のように2行書くのでしょうか。
ActiveSheet.GroupBoxes.Visible = False
for each o in activesheet.checkboxes : o.visible = false : next
しかし、変化はありませんでした。
一行のみでも、変わりませんでした。
for each o in activesheet.checkboxes : o.visible = false : next
今一度、教えていただけると幸いです。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2022/04/01 12:11
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- ダイエット・食事制限 ミリグラムっていうアプリ使ってる人にお聞きしたいのですが、グループの掛け持ちは出来るのでしょうか? 1 2022/12/04 01:25
- Excel(エクセル) 非表示にしたい行をグループ化して折り畳み 4 2022/09/17 20:17
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 13:13
- 消費者問題・詐欺 お金を取り返すことは可能でしょうか? 4 2023/01/07 13:17
- Excel(エクセル) 指定した数字まで累計する方法や文字例の抽出について教えてください 4 2022/10/05 21:19
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Oracle 8i コンマ(,)を含むデ...
-
エクセルマクロで指定範囲内の...
-
GROUP BYでエラーが発生
-
sqlで文字列を最後に追加したい
-
SQLのエラー(~付近に不適切な...
-
バッチファイルからのBCP起動に...
-
SQLserverのIF文について
-
PostgreSqlでFunctionの作成に...
-
ノートンインターネットセキュ...
-
ACCESSで作成したアプリケーシ...
-
エクセルのグループボックス枠...
-
オブジェクト名 '<table>' が無...
-
ファイアホースモードエラーに...
-
VB6より長文INSERT文でORA1756...
-
レポートが開けない。
-
SQLServerが存在しないか、アク...
-
クエリの存在チェック
-
SQLServer2005(SQLEXPRESS)
-
SQL Severのクエリ異常
-
Access2000でDAOを使用したとき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Oracle 8i コンマ(,)を含むデ...
-
SQLのエラー(~付近に不適切な...
-
PostgreSqlでFunctionの作成に...
-
GROUP BYでエラーが発生
-
エクセルマクロで指定範囲内の...
-
ACCESS ADOでupdateが効かない
-
ACCESSで作成したアプリケーシ...
-
sqlで文字列を最後に追加したい
-
エクセルからSQLサーバー ...
-
オブジェクト名 '<table>' が無...
-
SQLserverのIF文について
-
バッチファイルからのBCP起動に...
-
SQLServerが存在しないか、アク...
-
エクセルのグループボックス枠...
-
@@ERRORと@@ROWCOUNT併用について
-
ストアドの戻り値(配列)について
-
レポートが開けない。
-
Accessのレポートが新規作成で...
-
Access2000環境に対応するMid関...
-
自作関数を含んだクエリをエク...
おすすめ情報