Excelでコントロールボックスを隠す

Excel（2011 Mac）にはラジオボタンがいくつかあり、それらはグループボックスによってグループ化されています。

グループボックスを見えなくしたい。インターネットで検索したところ、次のように入力してVBAでそれが可能であることがわかりました。

ActiveSheet.GroupBoxes.Visible = False

該当するワークシートに対応するVBAウィンドウで。私はそうしましたが、違いはないようです。変更を有効にするために他に何かする必要がありますか？

— user1551817
ソース

グループボックスをいつ非表示にしますか。これをトリガーしたいイベントはありますか？それとも、これを一度だけやりたいのですか？

— Excellll

@DavidPostill今後の参考のために、[mac]はアップルのハードウェアに関する質問のために予約されています。

— Excellll

@Excellll手に入れた;）

— DavidPostill

グループボックスを常に非表示にしたいだけです。ありがとうございました。

— user1551817

回答:

具体的に名前でそれを呼び出すようにしてください

ActiveSheet.Shapes("Group Box 1").Visible = False

確認してください Application.ScreenUpdating = True 例えば

Sub hidethings()
Application.ScreenUpdating = False
ActiveSheet.Shapes("Group Box 2").Visible = False
Application.ScreenUpdating = True
End Sub

あなたが隠したい束があれば、あなたはこのようなことをすることができます

Sub tellme()
Dim thing As Shape
For Each thing In ActiveSheet.Shapes
 If thing.FormControlType = xlGroupBox Then
   thing.Visible = msoFalse
 End If
Next
End Sub

— Raystafarian
ソース

ありがとうございました。同じエディタウィンドウに 'Application.ScreenUpdating = True'を配置しますか？

— user1551817

オフにしていなければ、オンにする必要はありません。しかし、それはあなたが実行しているのと同じ機能またはルーチンの中に入ります。

— Raystafarian

私はおそらく根本的に間違ったことをしているのですが、このスクリーンショットからわかるように、 "ActiveSheet.Shapes（" Group Box 62 "）。Visible = False"と入力しましたが、Group Box 62は表示されたままです。 snag.gy/rNM4w.jpg

— user1551817

それが正しい名前であることを確認してください。できますか for each shape in activesheet.shapes debug.print shape.name next

— Raystafarian

グループボックスを別のワークブックに配置して、非表示にできるかどうかを確認してください。

— Raystafarian

VBAコードを1行入力したが、実行可能なサブルーチンに配置していないようです。したがって、あなたがしたことは効果がありません。

以下を試してください。

を押してVBAエディタペインを開きます。 Alt + F11 。
開いたウィンドウで、クリックして新しいモジュールを挿入します。 Insert ＆gt; Module。
表示されたテキストボックスに、以下を貼り付けます。
```
Sub HideBoxes()
ActiveSheet.GroupBoxes.Visible = False
End Sub
```
コード内の任意の場所にカーソルを置き、を押します。 F5 コードを実行します。

これは、アクティブシートのすべてのグループボックスを非表示にする必要があります。

— Excellll
ソース