湖南龙网

  1. 首页 > 生活百科 > >

excel方括号在VBA中的妙处

小知识生活百科

在许多程序中，我们经常会看到像图1所示的代码片段，即出现了带方括号的字符串 。

excel方括号在VBA中的妙处

文章插图
图1
这些方括号里面的字符串为工作簿中定义的名称，方括号的作用就是告诉VBE编译器将名称转换成相应的单元格或单元格区域 。
其实，这是Evaluate方法的简写格式 。
根据VBA帮助文件指出，Evaluate方法将Excel名称转换为对象或值 。这样的解释确实有点模糊 。
其语法为：
expression.Evaluate(Name)
expression可以省略，即简写为：
Evaluate(Name)
参数不只限于名称，还可以是公式表达式字符串 。
如果参数中没有变量，还可以更简略地写为：
[Name]
使用Evaluate加上带引号的参数的方法的优点是，可以在表达式中使用变量 。而使用括号简写的优点是，不仅简短，而且在引用对象时会出现对象的属性和方法的智能提示且不会导致失败，例如代码：
Evaluate(“Sheet2”).Activate
运行失败 。而代码：
[Sheet2].Activate
成功运行，并且在输入[Sheet2].后会出现属性和方法的提示 。
其参数可以是：
A1样式引用 。可以使用A1样式引用中对单个单元格的任何引用，所有引用都应该是绝对引用 。
单元格区域 。可以使用引用单元格的区域、交叉和联合操作符（分别是冒号、空格和逗号） 。
定义的名称 。可以在宏语言中指定任意名称 。
外部引用 。可以使用！操作符指向其他工作簿中的单元格或者名称 。
图表对象 。可以指定任意图表对象名称 。
公式表达式 。代表任何有效的公式表达式的字符串 。
下面是VBA帮助中给出的一些示例代码 。
下列表达式是等价的：
[A1].Value=https://www.i8ku.com/2021/25
Evaluate(“A1”).Value=https://www.i8ku.com/2021/25
trigVariable=[SIN(45)]
trigVariable=Evaluate[“SIN(45)”]
Set firstCellInSheet =Workbooks(“BOOK1.XLS”).Sheets(4).[A1]
Set firstCellInSheet = Workbooks(“BOOK1.XLS”).Sheets(4).Evaluate(“A1”)
下面的代码演示了在Evaluate方法中使用变量，将工作表Sheet1中单元格A1变为粗体格式：
Worksheets(“Sheet1”).Activate
boldCell = “A1”
Application.Evaluate(boldCell).Font.Bold = True
为什么要使用Evaluate方法？
下面是几个使用Evaluate方法的优点：
1. 代码更简短
大多数情形下，Evaluate方法可以使用方括号的简写形式，使代码更简短 。
下面的代码在单元格A1中输入数值100：
[A1].Value = https://www.i8ku.com/2021/100
[A1] = 100
2. 可以在VBA中使用更多的工作表函数
在VBA中，通过WorksheetFunction对象可以使用很多在VBA中没有与之等价的工作表函数，但仍有一些工作表函数不能在VBA中使用 。然而，通过Evaluate方法却可以在VBA中使用这些函数，或者是工作表数组公式 。
例如，由于VBA有等效的IsEmpty函数提供了工作表函数ISBLANK相同的功能，因此不能通过WorksheetFunction对象使用ISBLANK函数 。但是，如果需要在VBA使用ISBLANK函数，可以使用代码：
Evaluate(“=ISBLANK(A1)”)
[ISBLANK(A1)]
如果工作表单元格A1为空，则返回TRUE，否则返回FALSE 。
3. 公式更直观
使用Evaluate方法比使用Application.WorksheetFunction更简单且更直观，其外观与工作表函数相同，就像在单元格中编写的公式一样 。
例如，在工作表中使用VLOOKUP函数：
=VLOOKUP(D1,A1:B4,2,FALSE)
通常，在VBA中的等效代码为：
Application.WorksheetFunction.VLookup(Range(“D1”),Range(“A1:B4”), 2, False)

推荐阅读


上一篇：excel柱形图的秘密

下一篇：莲雾好吃吗？莲雾食用方法和注意事项