快来参加 Excel VBA 秘笈接龙

清风_ll

      一般情况下学习 Excel VBA 的帮手就是软件自带的帮助文档，帮助文档中大部分内容讲得很详细，而且还带有示例代码，看起来还都比较容易理解。不过也有相当部分的帮助内容说得不详细，或缺少示例，而有些即便有示例也无法囊括所有的使用方法，令很多人看过后依然是一头雾水无法真正的掌握。

      鉴于这种情况，为集思广益，让更多的人在学习过程中少走一些弯路，节省一些时间，特发此贴，请大家把您在学习中的心得或您所掌握的某些有关VBA应用方面的技巧和方法奉献给大家。

接龙原则：

总则：关于VBA使用和应用方面的心得。可以是以下几种内容：

1，帮助中没有提到的VBA应用技巧。可以是某个对象、方法、属性、甚至其中某个参数等等具体应用。
2，您在学习或实际应用中遇到过的具体问题的解决方法。
3，大家不大注意而您认为比较实用的技巧。
4，其它的您认为有用的示例、代码或者方法。

希望大家积极参与，分享您所知道的技巧。

优秀的秘笈将给予一定的积分奖励。

建议:每个技巧独立发贴,并给贴子添加一个适当的标题

您可就某个秘笈进行评论或发表自已的见解，但谢绝一切无意义的灌水（例如"谢谢"，"同意"，"顶"等等诸如此类的贴子，将会被删除）。

[此贴子已经被作者于2006-7-28 20:27:36编辑过]

清风_ll

本贴部分内容链接

*GetOpenFilename (GetSaveFilename)方法FileFilter参数的具体使用方法

*在VBE中快速得到帮助内容的法子

*标签控件标题垂直居中

*传递参数到OnTime方法和OnAction属性所调用的宏程序中    （精华） [em17]

*在单元格中快速输入带秒的时间

*VBE快速信息中显示对象隐藏成员

*使用动态数组代替Array()常量数组作为参数的方法

*查看VBE窗体的工具－－－－引用项目的帮助

*在设计时使用自已定义的颜色显示

*为Application.FileSearch的LookIn与Filename属性指定多个条件

*关于Dialogs集合对象

*关于AdvancedFilter 方法

*检查工作表是否保护

*不打开工作薄取数据

*一个":"符号 ,有时非常好用

*关于Workbooks集合

其它没有标题的贴子暂未链接,希望有更多的朋友来参与

[此贴子已经被作者于2006-8-17 15:09:21编辑过]

清风_ll

先来一个，抛个砖：

Sub GetFilesName()

x = Application.GetOpenFilename("Ico Files (*.ico), *.ico,Gif Files (*.gif), *.gif,允许的图片文件(*.ico; *.gif),*.ico; *.gif,

所有文件(*.*),*.*", 3, , , ture)

End Sub

[此贴子已经被作者于2006-7-24 15:36:35编辑过]

plxmm

在VBE中快速得到帮助内容的法子：

鼠标定位在语句的某个单词字串中，按F1键。

添加一个

快速显示窗体中某个对象的某个属性的帮助：

在窗体中选中该对象，在属性窗口中选中要查找的属性，按F1键。

[此贴子已经被清风_ll于2006-7-24 22:22:12编辑过]

plxmm

调整VBE窗体背景色，以适合自己习惯的操作：

VBE窗体下，工具－－－选项－－－编辑器格式：

代码颜色、字体、大小、背景色、前景色、标示色

由你自己决定了。

清风_ll

标签控件提供了一个TextAlign属性可以设置标题在水平方向的对齐方式,但没有提供一个属性来设置标题垂直居中.要达到这个效果,可以使用两个标签控件组合一起来完成.

首先,在窗体中添加一个标签控件Label1,Caption属性设置为空,再设置需要的背景颜色及边框颜色;
然后,再添加一个标签控件Label2,Caption属性设置为您想要的标题,AutoSize属性设置为True,BackStyle=0,TextAligh=fmTextAlignCenter,其它属性不改变;
接着,同时选中两个标签控件并右键,在弹出菜单中选择统一尺寸>>宽度相同,再右击选择对齐>>左对齐,重新右键对齐>>中间对齐.

您可以将两个控件生成组，Ok，现在达到效果了。

[此贴子已经被作者于2006-7-24 22:25:01编辑过]

qee用

看了清风兄6楼的妙思,刚想说顶,猛然想起前面的说明.不好,为了不被删贴,还得随便来点大家都知道的雕虫小技(不违规吧,呵呵)
大家一般可能都是在定义了Variant型变量x后用Array初始化String常量数组吧,
x = Array("","E", "X", "C", "E", "L")
当然可以,我们提到数组首先想到的是Array嘛,但这样生成的数组元素实际是Variant型(Array也可生成其它数据类型).
看看这样,生成的是String类型的呢,双引号也少写好几个~~.
x= Split(",E,X,C,E,L", ",")
我咯洛唆唆说这么多,大家知道我在说什么哈?
顶!
支持清风兄!!哈哈~~~

qlz110

当我们引用工作表函数时往往要加一句“Application.WorksheetFunction ”，但我发现把WorksheetFunction省略掉也可以。如把"Application.WorksheetFunction.sum()" 写成“Application.sum()”也可以，但写成vba.sum()则不行，不知道有什么差别没有？

对象库不同,VBA库中没有Sum函数

[此贴子已经被清风_ll于2006-7-26 11:38:17编辑过]

fanjy

在VBA帮助系统的OnTime方法介绍中，只对其参数EarliestTime, Procedure, LatestTime, Schedule进行了说明，并列举了定时运行某过程和撤销OnTime设置的三个代码示例。对OnAction属性的介绍中，也只简要介绍了单击某图形或菜单项时运行指定宏的示例。均没有介绍当OnTime方法或OnAction属性中设置的所要运行的宏带有参数时，如何传递参数到这些宏程序中。下面是自已前阶段所学到的一些参数的传递方法，供分享。即：

传递参数到OnTime方法和OnAction属性所调用的宏程序中
因为运用Application.OnTime或Object.OnAction调用宏程序的语法基本相似，因此，下面介绍的OnTime方法所使用的语法同样适用于OnAction属性。
为了便于理解，以下介绍均使用一段相似的代码，只不过传递给所调用宏程序MyProcedure的参数不同而已，以此来讲解传递给宏程序不同参数的方法。例如，下面的代码将使MyProcedure宏程序在从现在起的2秒后运行：
Application.OnTime Now + TimeValue("00:00:02"), "MyProcedure"
问题1：假设MyProcedure宏程序接受参数，如何传递参数到该宏程序中？有下面几种情形：
(1)所调用的宏程序接受一个参数
如果是在正常代码过程中传递参数给宏程序，可以使用" MyProcedure (42)"，其中“42”为传递给MyProcedure程序的参数。但如果这样的传递参数方法用在OnTime方法中，该程序将不会运行。
正确的语法是外层为双引号，内层再加上一组单引号，里面是程序名和程序所接受的参数。如下所示：
'MyProcedure宏程序接受一个数值参数
Application.OnTime Now + TimeValue("00:00:02"), "' MyProcedure 42'"
 (2)所调用的宏程序接受多个参数
如果所调用的宏程序接受几个参数，那么在这些参数之间应该用逗号分隔。如下所示：
'MyProcedure宏程序接受两个数值参数
Application.OnTime Now + TimeValue("00:00:02"), "'MyProcedure 42, 13'"
(3)所调用的宏程序接受字符串参数
如果所调用的宏程序所接受的参数是字符串，因为字符串已经带有一对双引号，因此应该将字符串包含在双层双引号中，即字符串参数周围有两对双引号。如下所示：
'MyProcedure宏程序接受一个字符串Hello!作为其参数
Application.OnTime Now + TimeValue("00:00:02"), "'MyProcedure ""Hello!""'"
问题2：当MyProcedure宏程序所接受的参数是变量，如何传递参数到该宏程序中？
(1)该变量为局部变量，用如下所示的方式。
'MyProcedure宏程序接受一个字符串变量strText参数，该变量为局部变量
strText = "Hello!"
Application.OnTime Now + TimeValue("00:00:02"), "'MyProcedure """ & strText & """'"
(2)该变量为全局变量，用如下所示的方式，即不必加双层双引号。
'MyProcedure宏程序接受一个字符串变量g_strText参数，该变量必须声明为公有的
g_strText = "Hello!"
Application.OnTime Now + TimeValue("00:00:02"), "'MyProcedure g_strText'"
注意，在这种情况下变量必须声明为公共变量，否则MyProcedure宏程序将不能找到该变量参数。

Long_III

在VBE书写代码时，当你输入appl的时候，可按Ctrl+空格，会自动出一个下列框，选择需要的（按空格即可快速选择，这时选择的是application这个单词了），其他类似

不过要用快捷键Ctal+空格，得先把输入法的快捷键改为其他的，我就设置为Ctrl+Shift+空格。这样的好处是在工作表里操作时，ctrl＋空格，选中整列，Shift＋空格，选中整行。

-在清风兄的提醒下，已修改。

[此贴子已经被作者于2006-7-26 12:14:55编辑过]