vba - 我希望 msgBox 显示单元格的定义名称，而不是 2010 年的单元格地址

Question

我正在使用下面的代码来验证单元格在保存工作簿之前是否具有信息。该程序运行良好，但显示单元格地址（$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

Answer 1

如果您的意思是单元格的定义名称是您添加文本的列中的第一行（即“A1”、“B1”等）（例如您提到的“公司名称”），您可以这样做：
Target.Worksheet.Cells(1, Target.Column).Value

如果您指的是特定单元格的“给定名称”，即从（例如）“A1”重命名为“uncleFOO”，那么您必须参考
[object].Name.Name
例如，myRange.Offset(0, 0).Name.Name。

希望这可以帮助！