4.2 简单的VBA函数编写及调用
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
EXCEL VBA
编程入门
第四章：Excel VBA中自定义函数
4.2 简单的VBA函数编写及调用
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
一、函数的存放地？
•
自定义函数的实质，是创建一个函数过程。创建 的步骤与创建一个SUB过程相类似，在函数创建完成
后，该函数就可供其它过程调用了。
函数与SUB过程一样，整个代码也都是在存放在模块中。
'利用MsgBox函数弹出对话框，告诉用户圆的面积计算结果 MsgBox "圆的面积＝" & Area
End Sub
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
三、在VBA中使用自定义函数（实例）
3、程序运行
(1)、按F5键，让Main()运行起来。 (2)、程序运行后，会弹出如下的一个对话框，让用户输入圆的半径值。
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
三、在VBA中使用自定义函数（实例）
1、定义函数CircleArea
Function CircleArea(r As Integer) As Double '定义常量圆周率PI，并赋值为3.1415926 Const PI As Double = 3.1415926
(3)、程序调用函数，运算后程序弹出一对话框，告诉圆的面积结果。
浙江省普通高中选修课网络课程
'通过公式计算圆周率，并把计算结果作为函数的返回值 CircleArea = PI * r * r
End Function
百度文库
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
三、在VBA中使用自定义函数（实例）
2、调用函数CircleArea
Sub Main() '定义变量，r作为圆的半径，Area作为圆的面积 Dim r As Integer Dim Area As Double '利用InputBox函数提示用户输入圆的半径值，并把它赋给先前定义的变量r r = InputBox("请输入圆的半径：") 'Main主过程调用自定义函数CircleArea，用以计算圆的面积，并把它赋给变量Area Area = CircleArea(r)
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
二、在VBA中使用自定义函数的过程
可分为二步：
1、定义函数
2、调用函数
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
三、在VBA中使用自定义函数（实例）
本实例是一个让用户输入圆的半径值，然 后通过调用自定义函数CircleArea来计算圆的 面积。
编程入门
第四章：Excel VBA中自定义函数
4.2 简单的VBA函数编写及调用
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
一、函数的存放地？
•
自定义函数的实质，是创建一个函数过程。创建 的步骤与创建一个SUB过程相类似，在函数创建完成
后，该函数就可供其它过程调用了。
函数与SUB过程一样，整个代码也都是在存放在模块中。
'利用MsgBox函数弹出对话框，告诉用户圆的面积计算结果 MsgBox "圆的面积＝" & Area
End Sub
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
三、在VBA中使用自定义函数（实例）
3、程序运行
(1)、按F5键，让Main()运行起来。 (2)、程序运行后，会弹出如下的一个对话框，让用户输入圆的半径值。
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
三、在VBA中使用自定义函数（实例）
1、定义函数CircleArea
Function CircleArea(r As Integer) As Double '定义常量圆周率PI，并赋值为3.1415926 Const PI As Double = 3.1415926
(3)、程序调用函数，运算后程序弹出一对话框，告诉圆的面积结果。
浙江省普通高中选修课网络课程
'通过公式计算圆周率，并把计算结果作为函数的返回值 CircleArea = PI * r * r
End Function
百度文库
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
三、在VBA中使用自定义函数（实例）
2、调用函数CircleArea
Sub Main() '定义变量，r作为圆的半径，Area作为圆的面积 Dim r As Integer Dim Area As Double '利用InputBox函数提示用户输入圆的半径值，并把它赋给先前定义的变量r r = InputBox("请输入圆的半径：") 'Main主过程调用自定义函数CircleArea，用以计算圆的面积，并把它赋给变量Area Area = CircleArea(r)
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
二、在VBA中使用自定义函数的过程
可分为二步：
1、定义函数
2、调用函数
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
三、在VBA中使用自定义函数（实例）
本实例是一个让用户输入圆的半径值，然 后通过调用自定义函数CircleArea来计算圆的 面积。