Excel编写自定义函数
Excel是我们日常工作中常用的工具,其提供了许多常用宏,能够满足我们的大部分工作需求,但往往我们会有一些独特的需求,这个时候自定义一个宏往往能够极大提高工作效率
1、打开Excel进入函数编写界面
在开发工具中找到Visual Basic(或者用快捷键Alt + F11进入工作台)

单机Visual Basic,进入工作台

此时右击Microsoft Excel对象,然后单击“插入”–>模块


函数实战
样例编写一个将一列多个单元格内容合并到一个单元格(以逗号隔开)

讲解
函数常用定义样式
FunctionHebing(A_Start, A_End)
执行语句
Hebing=Str
EndFunction
Hebing 是函数名,直接在函数中Hebing = Str,将Str的值作为返回值
[A_Start].Row 获取单元格A_Start的行号
[A_Start].Column 获取单元格A_Start的列号
Cells(Start_Row, Start_Column).Value 获取行号为 Start_Row,列号为 Start_Column 的单元格的值
If语句
If a =b Then
语句1
Else
语句2
End If
For循环
For i = 1 To 10
语句1
Next i
声明变量
Dim Str
不需要区分不同变量的类型,操作时系统会自动区分
字符串拼接 + & (a = b+c, a=b &c)
将函数保存,之后就可以在文档中使用了
可以在文档中使用Hebing(A1,A30)函数了

网友评论