ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 66179|回复: 81

快来参加 Excel VBA 秘笈接龙

[复制链接]

TA的精华主题

TA的得分主题

发表于 2006-7-24 11:47 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:数据类型和基本语句

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

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

接龙原则:

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

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

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

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

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

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


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

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-7-24 11:49 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-7-24 11:51 | 显示全部楼层

GetOpenFilename 方法FileFilter参数的具体使用方法:

先来一个,抛个砖:

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编辑过]

TA的精华主题

TA的得分主题

发表于 2006-7-24 13:35 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

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

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

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

添加一个

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

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

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

TA的精华主题

TA的得分主题

发表于 2006-7-24 13:43 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

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

VBE窗体下,工具---选项---编辑器格式:

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

由你自己决定了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-7-24 15:34 | 显示全部楼层

标签控件标题垂直居中

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

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

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

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

TA的精华主题

TA的得分主题

发表于 2006-7-24 22:44 | 显示全部楼层

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

TA的精华主题

TA的得分主题

发表于 2006-7-25 12:55 | 显示全部楼层

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

对象库不同,VBA库中没有Sum函数
[此贴子已经被清风_ll于2006-7-26 11:38:17编辑过]

TA的精华主题

TA的得分主题

发表于 2006-7-25 16:28 | 显示全部楼层

传递参数到OnTime方法和OnAction属性所调用的宏程序中

在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宏程序将不能找到该变量参数。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2006-7-25 17:08 | 显示全部楼层

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

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

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

[此贴子已经被作者于2006-7-26 12:14:55编辑过]
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 22:30 , Processed in 0.052883 second(s), 12 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表