システムwiki

Office:チェックボックスをクリックして特定のワークシートを非表示および再表示します！

JNappy 解決済 最終更新日:2020-08-20 15:30

こんにちは、

メニューシートにいくつかのチェックボックスを作成し、いくつかのVBAコードを追加しましたが、それらは特定のタブでうまく機能しますが、達成しようとしているのは、「メニュー」シートの両方から「コラボレーション」チェックボックスをオフにするときです.(コラボレーションとCollab_Worksheet)
は、セキュリティ、ネットワーク、データセンターの各シートで非表示になっています.どうすればこれを達成できますか?

例:コラボレーション用のVBAコードは次のとおりです:

プライベートサブコラボレーション_Click()

If Sheets(Collaboration.Caption).Visible=xlHidden Then

シート(Collaboration.Caption).Visible=xlSheetVisible

その他

シート(Collaboration.Caption).Visible=xlHidden

終了の場合

End Sub

JNappy

返信リスト(回答:3)

1 #
OssieMa

チェックボックスのtrueまたはfalseをテストし、チェックボックスの条件に対して必要なことをすべて実行します.チート名にチェックボックスのキャプションを使用する代わりに、実際のシート名を使用してください

プライベートサブコラボレーション_Click()

コラボレーション=真の場合 'チェックボックスがオンのとき

Sheets( "Sheet name here").Visible=xlSheetVisible

'必要なシートをここに表示します

その他

'チェックボックスがオフの場合

Sheets( "Sheet Name here").Visible=xlHidden

'ここにコードを挿入して、以下を非表示にします

'コラボレーションとCollab_Worksheet

'およびセキュリティ、ネットワーク、データセンターの各シートで同様

終了の場合

End Sub

応答1# ->にスキップ
2 #
Andreas 1

そのコードを簡略化できます.

アンドレアス.

Private Sub Collaboration_Click()
Sheets( "Sheet name here").Visible=IIf(Collaboration、xlSheetVisible、xlHidden)
End Sub

√
√
3 #
JNappy
OssieMacとAndreasに感謝します！

関連質問