VBAコードについて教えてください、 下記のコードを一つにまとめる方法を教えてください セルＦ18に

VBAコードについて教えてください、
下記のコードを一つにまとめる方法を教えてください
セルＦ18に "ﾌﾗｯﾄ設計審査_標準計算" が表示され
又は
セルＦ18に"ﾌﾗｯﾄ設計審査_仕様基準" が表示されると
マクロ　フラットシート表示が実行出来る方法を教えてください　
現状の別々のコードです
If Range("$F$18").Value = "ﾌﾗｯﾄ設計審査_標準計算" Then
Call フラットシート表示
End If
If Range("$F$18").Value = "ﾌﾗｯﾄ設計審査_仕様基準" Then
Call フラットシート表示
End If
よろしくお願いします

No.1 ベストアンサー 回答者： zongai 回答日時： 2024/03/06 20:58

Orで繋げたこういうのでいいのかな？

If Range("$F$18").Value = "ﾌﾗｯﾄ設計審査_標準計算" Or Range("$F$18").Value = "ﾌﾗｯﾄ設計審査_仕様基準" Then
　　Call フラットシート表示
End If

この回答へのお礼

早速の回答ありがとうございます
試させて頂きます

お礼日時：2024/03/06 21:01

No.2 回答者： 北ウイング 回答日時： 2024/03/09 20:33

お好みで Select Case もどうぞ。

Select Case Range("F18").Value
    Case Is = "ﾌﾗｯﾄ設計審査_標準計算", "ﾌﾗｯﾄ設計審査_仕様基準"
        Call フラットシート表示
End Select

この回答へのお礼

回答ありがとうございます
参考にさせて頂きます

お礼日時：2024/03/10 08:55