ファイルを保存する前に、ワークシートの必須フィールドのテキストを確認したいと思います。セルB50:B53にテキストがある場合、対応するセルD50:D53は必須です。セルB50:B53が空の場合、列Dの対応するフィールドはオプションです。
このルールを1つの行に適用すると、次のコードで機能します。ただし、すべてのケース(B50とD50、B51とD51 ...)をテストしたいと思います。コードを4回コピーせずにこれを行うにはどうすればよいですか?
Dim MsgStr As String
Dim ws As Worksheet, r As Range, g As Range
Set ws = wb.Sheets("Allotment hotel")
Set r = ws.Range("B50").Cells
Set g = ws.Range("D50").Cells
If r <> "" And g = "" Then
MsgStr = "Room type was not found in the sheet 'Allotment hotel'"
End If