作業ブックのシートに下記のコードを設定しております。
セル「C12」に「審査」と表示されると非表示シート「確認質疑」と「行政回答確認」
が表示出来るようになっております。
この2つのコードを1つのコードにまとめる方法を教えてください。
現状のコード
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("確認質疑").Visible = [C12] = "審査"
Sheets("行政回答確認").Visible = [C12] = "審査"
End Sub
以上となります。
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$12" Then
Sheets("確認質疑").Visible = False
Sheets("行政回答確認").Visible = False
If Target.Value = "審査" Then
Sheets("確認質疑").Visible = True
Sheets("行政回答確認").Visible = True
End If
End If
ってことかな?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2024/03/06 13:07
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 3 2022/06/10 09:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
VBAに関して
Visual Basic(VBA)
-
マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定
Visual Basic(VBA)
-
-
4
引数に数値、文字列の混在
Visual Basic(VBA)
-
5
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
6
VBAのコードを教えてください
Visual Basic(VBA)
-
7
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが
Visual Basic(VBA)
-
8
VBA UserFormからの転記で
Visual Basic(VBA)
-
9
select case について
Visual Basic(VBA)
-
10
Cellsのコードが打てません
Visual Basic(VBA)
-
11
コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、
Visual Basic(VBA)
-
12
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
13
近似した文字列を置換するエクセル関数またはVBAについて
Visual Basic(VBA)
-
14
VBA
Visual Basic(VBA)
-
15
エクセルVBAでデータ転記
Visual Basic(VBA)
-
16
VBAで特定のシート以外のシート名を変更したい
Visual Basic(VBA)
-
17
VBA実行後に元のセルに戻りたい
Visual Basic(VBA)
-
18
マクロについて質問です。 セルの内容をクリアするコマンドボタン(AX) を作成しました。 指定範囲が
Visual Basic(VBA)
-
19
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
20
配列のペースト出力結果の書式について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
ExcelのVBAコードについて教え...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
VB6のComboBox関連の書き方をVB...
-
HTML電卓で1文字消す方法
-
VLookup関数を使ってラベルに表...
-
access2003 クエリSQL文に...
-
Excel VBA素人です。VBAで図形...
-
pythonにてseleniumを使うも、...
-
ExcelVBAで「Shift_JIS(MS932)...
-
エクセルに見えない文字(JISX0...
-
レポートでグループレベルの変...
-
chatgptでつくってもらったコー...
-
JANコードとPOSコードは同じ?
-
ACCESSで、履歴事項を管理する...
-
1、Rstudioで回帰直線を求める...
-
videopadについて
-
VBAでファイルオープン後にコー...
-
CheckBoxのコントロール配列に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
access2003 クエリSQL文に...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
pythonにてseleniumを使うも、...
-
ExcelのVBAコードについて教え...
-
ExcelのVBAコードについて教え...
-
chatgptでつくってもらったコー...
-
欠番の抽出について
-
JANコードとPOSコードは同じ?
-
JavaScriptの定数名が取り消し...
-
1、Rstudioで回帰直線を求める...
-
特定行の背景色を変えたいのですが
-
変数名「cur」について
-
PreviewKeyDownイベントが2回...
-
将来AIが進歩してくるにつれて...
-
ACCESSユニオンクエリでORDER B...
-
COBOLの文法
-
VBAでファイルオープン後にコー...
-
Nullの使い方が不正です。
おすすめ情報
説明が不足しておりました。
セル [C12] = "審査"は表示されると
非表示シート"確認質疑"と"行政回答確認"の両方が同時に表示される方法を教えてください。
宜しくお願い致します。