VBA·Function的基础使用

最新推荐文章于 2023-10-12 11:56:17 发布

SCscHero

最新推荐文章于 2023-10-12 11:56:17 发布

阅读量3k

点赞数 1

分类专栏： # VBA 文章标签： VBA基础

本文链接：https://blog.csdn.net/qq_33391499/article/details/119838445

版权

VBA 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

本文详细介绍了VBA中Function的基本结构和使用方法，包括如何声明参数、返回值以及可选参数。通过一个Demo示例展示了如何在Sub中调用Function，并在Function中实现逻辑。适合初学者了解和掌握VBA函数的编写技巧。

摘要由CSDN通过智能技术生成

阅文时长	\| 0.27分钟	字数统计	\| 440字符
主要内容	\| 1、引言&背景 2、基本结构 3、Demo示例 4、声明与参考资料
『VBA·Function的基础使用』
编写人	\| SCscHero	编写时间	\| 2021/8/18 PM12:43
文章类型	\| 系列	完成度	\| 已完成
座右铭	每一个伟大的事业，都有一个微不足道的开始。

一、引言&背景完成度：100%

a) 应对问题

今天想封装一个VBA的函数，却忘了有参函数怎么声明，返回值怎么声明，类型怎么声明？

b) 应对场景

使用到Function的场景。

二、基本结构完成度：100%

Function [函数名称]([参数] AS 参数类型,...... , Optional [可选参数名称] As [可选参数类型]) [可选：AS 返回值类型]
[函数逻辑]
可选：[函数名称]=[返回值]
End Function

三、Demo示例完成度：100%

'18.Function Demo-Sub Call the Function
Sub SCFunctionCall()
    Dim SCVar1 As String
    Dim SCVar2 As Range
    Dim SCVarOptional As Integer
    
    Dim Res As Long
    Res = SCFunctionName(SCVar1, SCVar2, SCVarOptional)
    MsgBox Res
End Sub

'18.Function Demo-Function
Public Function SCFunctionName(SCVar1 As String, SCVar2 As Range, Optional SCVarOptional As Integer) As Long
    Dim FunctionLong As Long
    FunctionLong = 22222222
    SCFunctionName = FunctionLong
End Function