关闭屏幕的更新动作：

application.ScreenUpdate=False

解决大小写比较的问题（A=a）,将下面语句添加到顶部：

Option Compare Text

防止出现错误消息框，在顶部添加：

application.EnableCanelKey=xlDisabled

强制函数不断重新计算

application.Volatitle True

自定义函数中接受可选参数

function ABC( Optional Ref1 As Variant)

判断是否传入了可选参数

if ismissing(Ref1) then

返回VBA数组的函数:

function ABC()

ABC=ARRAY（1，2，3，4...）

将水平方向的数组转置为垂直方向

application.transpose(Abc)

设置ARRAY的下界(默认值为0)

option Base

接受不定数量的参数的函数,使用数组作为最后一个参数，且...

 function abc(patramArray list)

找到大小可以变化单元格子的边界

Range("A1").CurrentRegion.Copy Sheet(2).Range("A1")

Range(ActiveCell, ActiveCell.End(xlDown)).Select  'xlUp,xlToLeft,xlToRight

从某个过程执行函数(函数以及参数可以是字符串数字或者变量)

tt=application.run("finc_1","abc")

计算选中单元的数目

Selection.Count

Selection.Columns.Count

Selection.Rows.Count

一些有用的函数

FileExists

FileNameOnly  ' 从带路径的文件名中抽出文件名

 PathExists

RangeNameExists

SheetExists

WorkbooklsOpen

 通过单元格内容选择内容：
Public Function SelectCell(nindex As Integer)
SelectCell = Cells(nindex, 1)
End Function

评论