VBA学习记忆点小记:www.51zxw.net

 2023-09-05 阅读 92 评论 0

摘要:关于: udf: UDF顾名思义,就是Userdefined Function,用户定义函数。 其实没必要把udf转化成VBA的写法,直接用你会的语言写完后编译成dll在excel中用即可 1、变量的定义 语法 Dim [WithEvents]varname[([subscripts])] [As[New] type] [, [WithEvents]varname[([s
关于:
udf:
UDF顾名思义,就是Userdefined Function,用户定义函数。
其实没必要把udf转化成VBA的写法,直接用你会的语言写完后编译成dll在excel中用即可
1、变量的定义

语法

Dim [WithEvents]varname[([subscripts])] [As[New] type] [, [WithEvents]varname[([subscripts])] [As[New] type]] . . .

type是可选的。变量的数据类型;可以是 Byte、 Boolean、Integer、Long、Currency、Single、Double、Decimal(目前尚不支持)、Date、String(对变长的字符串)、String* length(对定长的字符串)、Object、Variant、用户定义类型、或对象类型。所声明的每个变量都要一个单独的As type 子句。

对象类型:应用程序通过自动化显露的对象的类型,例如,ApplicationFileRange,和 Sheet。使用对象浏览器或引用应用程序的文档可得到这些对象的列表。

也可以使用 Dim 语句来声明变量的对象类型。下面的语句为工作表的新建实例声明了一个变量。

Dim wsh As WorksheetFor Each wsh In Worksheetsn = n + 1Sheet1.Cells(n, 2) = wsh.NameNext
-------以上为取当前工作表集合中的每个成员名写到sheet1的第二列中---------------------
Dim rng As Range ‘为定义了一个单元格类型的变量rng
Dim rng As RangeFor Each rng In Sheet1.Range("a2:a10")If rng = "good" Then rng.Interior.ColorIndex = 3Next
------'a2:a10单元格中,把值为good的单元格填充红色Worksheet 对象是 Worksheets 集合的成员。Worksheets 集合包含某个工作簿中所有的 Worksheet 对象。Worksheet 对象也是 Sheets 集合的成员。Sheets 集合包含工作簿中所有的工作表(图表工作表和工作表)。workbook与workbooks

2函数的调用

调用EXCEL工作表函数:Application.WorksheetFunction.

Application.WorksheetFunction.Sum

调用VBA函数(VBA自身函数):VBA.

如:VBA.Abs

 

 

3\运算符

NOT\AND\OR\Xor(异或)\IMP\EQV

 3 mod 2表示3除以2的答数。

通配符:?:任何单一字符;*:零个或多个字符;#:任何一个数字;[charlist]:charlist中的任何单一字符;[!charlist]:不在charlist中的任何单一字符。

 

like比较两个字符串,区分大小写

4\ workbook,worksheet,cell

1-工作薄(workbooks)

 Workbooks (N)第N个工作薄
Workbooks ("工作薄名")
ActiveWorkbook活动工作薄
ThisWorkbook代码所在的工作薄

2-工作表(worksheets)

Worksheets (N)第N个工作表
Worksheets (" 工作表名")工作表名
sheetN
ActiveSheet活动工作表


3-单元格(cells)

 
Range ("单元格地址")
Cells(rowinedx,columnindex)
[A1]单元格简写
ActiveCell活动单元格
Selection当前选取的单元格

 

版权声明:本站所有资料均为网友推荐收集整理而来,仅供学习和研究交流使用。

原文链接:https://808629.com/105.html

发表评论:

本站为非赢利网站,部分文章来源或改编自互联网及其他公众平台,主要目的在于分享信息,版权归原作者所有,内容仅供读者参考,如有侵权请联系我们删除!

Copyright © 2022 86后生记录生活 Inc. 保留所有权利。

底部版权信息