快来参加 Excel VBA 秘笈接龙

plxmm

在VBE窗体的工具菜单－－－－引用操作后，按F2键

对具体的某个引用不知道具体的意思或者使用方法时，点击图示的标示处即可。

那里是被引用项目的列表。找到需要帮助的项目后，在对象浏览器的左窗口，找到相关的属性、方法，或者右边窗体的某个条目，按F1键即可。但是有些项目，无法得到帮助信息。

lotustower

QUOTE:

以下是引用plxmm在2006-7-29 12:58:04的发言：

在VBE窗体的工具菜单－－－－引用操作后，按F2键

对具体的某个引用不知道具体的意思或者使用方法时，点击图示的标示处即可。

那里是被引用项目的列表。找到需要帮助的项目后，在对象浏览器的左窗口，找到相关的属性、方法，或者右边窗体的某个条目，按F1键即可。但是有些项目，无法得到帮助信息。

'---------------------------------------------------------------------------------------
' Module    : Module1
' DateTime  : 26/6/2006 12:07
' Author    : Emily
' Purpose   : List WorkBook GUID (Globally Unique Identifer) Reference
'---------------------------------------------------------------------------------------

Sub Grab_References()

Dim n As Integer
Dim x As Integer

On Error Resume Next

x = 1

For n = 1 To ActiveWorkbook.VBProject.References.Count

Cells(x, 1) = n
Cells(x, 2) = ActiveWorkbook.VBProject.References.Item(n).Name
Cells(x, 3) = ActiveWorkbook.VBProject.References.Item(n).Description
Cells(x, 4) = ActiveWorkbook.VBProject.References.Item(n).Major
Cells(x, 5) = ActiveWorkbook.VBProject.References.Item(n).Minor
Cells(x, 6) = ActiveWorkbook.VBProject.References.Item(n).fullpath

Cells(x, 7) = ActiveWorkbook.VBProject.References.Item(N).GUID

x = x + 1
Next n
Columns("A:G").EntireColumn.AutoFit

End Sub

fanjy

1、一般我们用来确定某对象变量中存储的对象类型时，使用TypeName函数，其实我们也可以使用TypeOf运算符进行判断，TypeOf运算符总是与Is关键字一起构造表达式，其语法为：TypeOf <对象变量> Is <对象类型>，若该对象变量属于给定的对象类型则为True。

在VBA帮助系统中，当您搜索TypeOf时，无法找到相应的帮助内容，其实该运算符的帮助文档资料在If...Then...Else 语句的帮助文档说明中，因为TypeOf…Is…判断总是放在If…Then…Else语句中当作条件判断使用。但帮助文档较简洁，下面再介绍几点供参考。

(1)TypeName函数和TypeOf运算符用于确定对象类型各有优点。其中，TypeName函数返回一个字符串，例如，文本框为”TextBox”，命令按钮为”CommandButton”等等。控件的类型名称一般与控件的缺省名或标题相同，但不是数字。例如，当您添加一个新的文本框到您的窗体中，缺省设置命名为TextBox1。您如果想要存储或者是显示对象的类型时，使用该函数是最好的选择。而TypeOf运算符是测试对象类型的最佳选择，因为使用它比使用TypeName函数进行字符串比较要快。

(2)TypeOf不能与不是Object类型的数据类型一起使用。而TypeName函数则可以返回其它数据类型以及数组数据类型。

(3)TypeOf直接返回的是对象类型而不是字符串。

(4)TypeOf支持智能识别，当您在VBE编辑器中输入完成“If TypeOf txtObj Is ”后，会自动产生一个可供选择的下拉列表。

(5)“If TypeOf…Is…Then”是If语句的一类特殊的语句。

 

2、大家知道Array函数是用来创建数组的，您可以在VBA的帮助文档中可以查阅。其实，Array也可作为方法来调用，这在VBA帮助文档和对象浏览器中均未列出，即使您在VBE编辑器中输入VBA.后，在出现的下拉列表中不会列出Array，但确实可以。其语法为：

VBA.Array()

在这种情况下，Option Base语句对指定数组的下限值没有作用，其下限为0。

 

3、在VBA的Dir函数的帮助文档中说明“不能以递归方式来调用 Dir 函数”。其实，可以递归调用Dir函数。例如，为了删除文件夹，可以递归调用Dir函数引导到文件夹中的子文件夹中。

清风_ll

QUOTE:

以下是引用fanjy在2006-7-31 14:31:11的发言：

2、大家知道Array函数是用来创建数组的，您可以在VBA的帮助文档中可以查阅。其实，Array也可作为方法来调用，这在VBA帮助文档和对象浏览器中均未列出，即使您在VBE编辑器中输入VBA.后，在出现的下拉列表中不会列出Array

2003中Array是VBA库的成员,在VBE编辑器中输入VBA.后，在出现的下拉列表中会列出Array

lotustower

VBA.Array()

在这种情况下，Option Base语句对指定数组的下限值没有作用，其下限为0。

Dim、Private、Public、ReDim 以及 Static 语句中的 To 子句提供了一种更灵活的方式来控制数组的下标。不过，如果没有使用 To 子句显式地指定下界，则可以使用 Option Base 将缺省下界设为 1。使用 Array 函数创建的数组的下界也受 Option Base 语句指定的下界的决定, 除非 Array 是由类型库（例如 VBA.Array ）名称限定，如果是由类型库名称限定，则 使用Array 函数创建的数组的下界不受 Option Base 的影响。

fanjy

2003中Array是VBA库的成员,在VBE编辑器中输入VBA.后，在出现的下拉列表中会列出Array

怎么在我的机子上不会,我装的是2003啊.

清风_ll

QUOTE:

以下是引用fanjy在2006-8-1 11:26:28的发言：

QUOTE:

2003中Array是VBA库的成员,在VBE编辑器中输入VBA.后，在出现的下拉列表中会列出Array

怎么在我的机子上不会,我装的是2003啊.

又仔细查看了一下,发现Array是VBA库的隐藏成员,不过其显示模式与其它的隐藏成员不一样,所以误以为是一般成员了.(MS的做法怎么如此难以捉摸啊),关于隐藏成员请参考18楼.

fanjy

在VBA的帮助系统中，对PrintPreview方法的语法为expression.PrintPreview，显示打印预览，但并没有指出它可以带参数。在对象浏览器中，出现的PrintPreview方法带有可选的参数EnableChanges，但没其用法说明。其实EnableChanges参数可用于禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮。

例如：ActiveSheet.PrintPreview Enablechanges:=False

     或ActiveChart.PrintPreview Enablechanges:=False

清风_ll

QUOTE:

以下是引用fanjy在2006-8-1 13:42:40的发言：

在VBA的帮助系统中，对PrintPreview方法的语法为expression.PrintPreview，显示打印预览，但并没有指出它可以带参数。在对象浏览器中，出现的PrintPreview方法带有可选的参数EnableChanges，但没其用法说明。其实EnableChanges参数可用于禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮。

例如：ActiveSheet.PrintPreview Enablechanges:=False

     或ActiveChart.PrintPreview Enablechanges:=False

这个方法在某些情况下有用,其实在VBE代码窗口中输入时有相应信息.

清风_ll

在设计阶段您会发现控件与颜色相关的属性中系统提供选择的颜色太少了。比如窗体的BackColor属性，如果您需要把窗体的背景颜色设置为淡蓝色RGB(52,150,203)，你可能会在窗体初始化过程中对之进行初始化。显然，这可以实现您想要的效果；但是如果您想在设计时就能看到最终效果该如何实现呢？其实BackColor属性（包括ForeColor以及BorderColor等等这些设置颜色的属性）允许您自已输入一个以十六进制表示的长整型数值，如果您想在设计时看到效果，可以使用以下步骤来实现：

首先获取您所需要的颜色值并以十六进制表示
还以上面的颜色为例,在立即窗口输入
? Hex(RGB(52,150,203))
可得到一个十六进制数据CB9634

然后把光标定位在窗体属性窗口的BackColor属性值中，删除原来的数值后，输入&HCB9634并回车确定效果立即就出现了。