Excel定义了很多特定的名称，其作用是代码Excel不同的功能属性或者对象。
本文介绍一个对象，可以将Excel中的某些专用名称返回为一个对象或者是值。
似乎并不太容易理解，也可以这么理解，有一个人叫张三，当你叫的名字的时候，对方答应了你，并且，它可以回答你任何他知道的信息，那么你叫他的这个过程就是本文的内容。
如上图所示，我们要了解Evaluate方法，此方法就是你叫张三的一个过程，不叫他，他是不会回答你的。
具体可以参考下表：
上述内容还是不很清楚表达如何使用，我们看下图示例：
本示例有两个功能，一个是单元格引用，另一个是定义名称引用 。
当然了，还可以进行其它方式引用，上表中7类引用方法。
单元格引用也就是A1 样式引用，是通过单元格地址返回一个Range对象。
简单示例：
ActiveSheet.Evaluate ("A1")
复杂示例：
Sub Evaluate()
'单元格引用
Dim s As Worksheet
Set s = ActiveSheet
Dim xAd As String
xAd = "A1"
MsgBox s.Evaluate(xAd).Value
Set s = Nothing
End Sub
同样，都是返回一个A1单元格Range对象。
返回定义名称代码：
Sub 定义名称()
'定义名称引用
Dim s As Worksheet
Set s = ActiveSheet
Dim xAd As String
xAd = [B1].Value '定义引用名称名字
Dim i As Integer
Dim xName As Object
Set xName = s.Evaluate(xAd) '返回引用名称
s.OLEObjects("ListBox1").Object.Clear
For i = 1 To xName.Count '添加名称项目到列表框
s.OLEObjects("ListBox1").Object.AddItem s.Evaluate(xAd).Item(i)
Next i
Set xName = Nothing
Set s = Nothing
End Sub
严格来说，Evaluate方法对初学者并不适用，因为它太过于难理解，而且许多可直接引用的方法并不需要用这个方法来实现。
但是到更加深入的编程，或者说需要灵活运用一些编程技巧的时候，用到它就显得十分灵活了。
END
如你对本文有独特见解，欢迎关注、收藏。
也可通过私信来获取如下免费应用：
办公文件管理
结婚礼单管理
年会抽奖
工作日志管理