0

以下のコードを使用して、ブックを保存する前にセルに情報があることを検証しています。プログラムは正常に動作しますが、セル アドレス ($P$14) が表示されます。セルの定義名 (CompanyName) を表示したい。

For Each myRange In .Range("P14,P20,P23,P26,P29,P32,P33,P39")

    If myRange.Value = 0 And myRange.Offset(0, 0) = "" Then

        MsgBox ("You must make an entry in ") & myRange.Offset(0, 0).Address

        Cancel = True

    End If

Next myRange
4

1 に答える 1