下記の2つのVBAコードを一つにまとめる方法を教えてください。
下記のコードは以前教えて頂いたコードを少しアレンジして作成しております。
1つ目のコードは
セル「F18」に各「昇降機_エレベーター」「昇降機_エスカレーター」「昇降機_ダムウエーター」
「昇降機_いす式昇降機」のいずれかが表示された場合に、非表示シート「昇降機第2号様式」が表示又は、「F18」の各表示がなければ「昇降機第2号様式」が非表示となります。
2つ目のコードも同じく
セル「F18」に各「昇降機_エレベーター」「昇降機_エスカレーター」「昇降機_ダムウエーター」
「昇降機_いす式昇降機」のいずれかが表示された場合に、非表示シート「昇降機第2号様式」が表示又は、「F18」の各表示がなければ「昇降機第5号様式」が非表示となります。
このコードを
「F18」に各「昇降機_エレベーター」「昇降機_エスカレーター」「昇降機_ダムウエーター」
「昇降機_いす式昇降機」のいずれかが表示された場合に、非表示シート「昇降機第2号様式」と「昇降機第5号様式」の2つのシートが表示又は、「F18」の各表示がなければが非表示となるように出来る方法を教えてください。
1つ目のコード
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F18") = "昇降機_エレベーター" Or _
Range("F18") = "昇降機_エスカレーター" Or _
Range("F18") = "昇降機_ダムウエーター" Or _
Range("F18") = "昇降機_いす式昇降機" Then
Sheets("昇降機第2号様式").Visible = xlSheetVisible
Else
Sheets("昇降機第2号様式").Visible = xlSheetHidden
End If
2つ目のコード
If Range("F18") = "昇降機_エレベーター" Or _
Range("F18") = "昇降機_エスカレーター" Or _
Range("F18") = "昇降機_ダムウエーター" Or _
Range("F18") = "昇降機_いす式昇降機" Then
Sheets("昇降機第5号様式").Visible = xlSheetVisible
Else
Sheets("昇降機第5号様式").Visible = xlSheetHidden
End If
End Sub
以上となります。
宜しくお願い致します。
No.2
- 回答日時:
解決しているようなので、蛇足的な回答ですが。
以下のような書き方もあるということで。
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("F18").Value
Case "昇降機_エレベーター","昇降機_エスカレーター", _
"昇降機_ダムウエーター","昇降機_いす式昇降機"
For Each WS In _
Worksheets(Array("昇降機第2号様式", "昇降機第5号様式"))
WS.Visible = True
Next
Case Else
For Each WS In _
Worksheets(Array("昇降機第2号様式", "昇降機第5号様式"))
WS.Visible = False
Next
End Select
End Sub
参考サイト
https://www.relief.jp/docs/excel-vba-or-statemen …
https://daitaideit.com/vba-sheet-hidden/#mokuzi4
No.1
- 回答日時:
以下のようにしてください。
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F18") = "昇降機_エレベーター" Or _
Range("F18") = "昇降機_エスカレーター" Or _
Range("F18") = "昇降機_ダムウエーター" Or _
Range("F18") = "昇降機_いす式昇降機" Then
Sheets("昇降機第2号様式").Visible = xlSheetVisible
Sheets("昇降機第5号様式").Visible = xlSheetVisible
Else
Sheets("昇降機第2号様式").Visible = xlSheetHidden
Sheets("昇降機第5号様式").Visible = xlSheetHidden
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- DIY・エクステリア 大きいpcデスクをdiyで作りたいです 4 2022/07/19 04:51
- 会計ソフト・業務用ソフト Excelで縦軸と横軸の両方で昇順降順を並べ替えたい時に使う機能はピボットテーブルですか? 縦軸だけ 1 2024/01/30 19:58
- Excel(エクセル) エクセルでの順番入れ替え 5 2024/01/16 12:11
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2024/03/18 17:57
- 貨物自動車・業務用車両 【トラック運転手さんに質問です】法改正で2トン以上の積載量のトラックを運転する場合は 2 2023/10/08 13:05
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2024/03/13 09:23
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- その他(人文学) 昇降機、か、人力か、、30階なら人力です。 1 2022/08/14 23:47
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
-
4
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
5
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
6
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
7
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
8
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
9
VBA レジストリの値の読み方について教えてください
Visual Basic(VBA)
-
10
エクセルについて
Visual Basic(VBA)
-
11
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
12
VBA一覧取得 再投稿
Visual Basic(VBA)
-
13
Excel関数またはVBAでの質問になります
Visual Basic(VBA)
-
14
VBAの質問になります メッセージボックス
Visual Basic(VBA)
-
15
VBAの質問になります Userform内で
Visual Basic(VBA)
-
16
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
17
エクセルの合計を自動で表示させたいです
Visual Basic(VBA)
-
18
Excelのマクロについて教えてください。 下記のマクロを実行すると 別ブックに指定セル値をコピーで
Visual Basic(VBA)
-
19
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
20
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
access2021 VBA メソッドまたは...
-
access2003 クエリSQL文に...
-
過剰なオブジェクト指向脳から...
-
1、Rstudioで回帰直線を求める...
-
ペンダントライトのコードの色...
-
JavaScriptの定数名が取り消し...
-
Excel VBA 空白をセルを探して...
-
特定行の背景色を変えたいのですが
-
Nullの使い方が不正です。
-
エクセルVBA ユーザーフォーム...
-
マクロ 連続印刷
-
ASCIIコードを文字に変換したい
-
sinカーブの表示のさせ方
-
SQL
-
chatgptでつくってもらったコー...
-
pythonで同じコード内で複数の...
-
Excel VBA素人です。VBAで図形...
-
オートフィルタで抽出結果に 罫...
-
JIPS-Eコードのコード表について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
過剰なオブジェクト指向脳から...
-
1、Rstudioで回帰直線を求める...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
access2003 クエリSQL文に...
-
pythonにてseleniumを使うも、...
-
access2021 VBA メソッドまたは...
-
chatgptでつくってもらったコー...
-
パイソンプログラム
-
Gitのクローンについて
-
ExcelのVBAコードについて教え...
-
JANコードとPOSコードは同じ?
-
sinカーブの表示のさせ方
-
COBOLの文法
-
特定行の背景色を変えたいのですが
-
JavaScriptの定数名が取り消し...
-
アルファベットに付いて質問し...
-
◾️Excel VBA 統合について Cons...
-
変数名「cur」について
おすすめ情報