別のシートのセル値に基づいて特定のワークシートを非表示または再表示するにはどうすればよいですか？

別のシートのセルの内容に基づいて特定のワークシートタブを非表示または再表示する方法はありますか？ たとえば、Sheet1のセルG2に「はい」というテキストを入力すると、Sheet1を非表示にし、「いいえ」と入力すると、Sheet1が一度に表示されます。 Excelでこの問題を解決するにはどうすればよいですか？

VBAコードを使用してセル値に基づいて特定のワークシートタブを非表示または再表示します

VBAコードを使用してセル値に基づいて特定のワークシートタブを非表示または再表示します

別のワークシートのセル値に基づいて特定のワークシートタブを非表示または再表示するには、次のVBAコードを使用するとよい場合があります。次のようにしてください。

1。 別のシートを非表示にするセル値を含むワークシートに移動します。

2。 シートタブを右クリックして、 コードを表示、飛び出した アプリケーション向け Microsoft Visual Basic ウィンドウの場合は、次のコードをコピーして空白のモジュールウィンドウに貼り付けてください。スクリーンショットを参照してください。

VBAコード：セル値に基づいてワークシートタブを非表示または非表示にします。

Private Sub Worksheet_Change(ByVal Target As Range)
If [G1] = "Yes" Then
Sheets("Sheet1").Visible = True
Else
Sheets("Sheet1").Visible = False
End If
End Sub

ご注意： 上記のコードでは、 G1 はいは、ベースにしたいセルとセルのコンテンツです。 Sheet1 非表示または再表示する特定のシートです。 必要に応じて変更できます。

3。 次に、このコードを保存して閉じます。セルG1に「いいえ」またはその他のテキストを入力すると、Sheet1は非表示になりますが、セルに「はい」と入力すると、Sheet1がすぐに表示されます。スクリーンショットを参照してください。