• Excel VBA入门(六)过程和函数


    前面讲过,VBA代码有两种组织形式,一种就是过程(前面的示例中都在使用),另一种就是函数。其实过程和函数有很多相同之处,除了使用的关键字不同之外,还有不同的是:

    • 函数有返回值,过程没有
    • 函数可以在Excel表格中像一般的Excel函数那样使用,但过程不可以
    • 过程可以指定给Excel表格中的按钮或者图片等对象,但是函数不可以
    • 函数只能在被调用时执行,比如在过程中调用,或者在另一个函数中调用,或者在Excel表格中调用。但不能直接执行,而过程是可以的

    虽然可以把所有代码都放在一个过程,或者一个函数里面,但是这样会使代码难以维护,特别是非常不便于其他人查看修改。而有时一些重复性的代码,也应该把它们独立出去,作为一个子过程或子函数来组织。使用子过程和子函数的目的,就是为了便于组织代码、便于维护。

    1. 过程 Sub

    过程以Sub开头,End Sub结束,过程中需要执行的代码放在中间。格式如下:

    Sub 过程名()
        ' 需要在过程中执行的代码
    End Sub
    

    过程名后面的括号是必须的,过程可以带参数,就放置在括号里面,稍后会有说明。

    过程示例:

    Sub test()
        Debug.Print "Hello"
    End Sub
    

    2. 函数 Function

    与过程类似,函数的格式如下:

    Function 函数名(参数1, 参数2, ...) As 数据类型
        ' 需要在函数中执行的代码
        函数名 = 函数执行后的结果
    End Function
    

    函数名后面的括号是必须的,函数通常都带有参数,放置在括号里面。函数也可以不带参数。

    括号后面的 As 数据类型 虽然并不是必须的,但是我强烈建议加上。因为函数通常都需要有返回值,这个数据类型就表示着返回值的数据类型。

    函数体最后通常都带有一条返回值语句,把函数执行的结果赋值给函数名,就可以在调用这个函数的地方得到这个函数的执行结果。这个返回结果的数据类型应该与函数名后面As的数据类型一致,否则可能会出错。

    函数示例:

    Function my_sum(n1 as Integer, n2 as Integer) As Integer
        Dim s As Integer
        s = n1 + n2
        my_sum = s
    End Function
    

    上例中定义了一个名为my_sum的函数,它接受两个类型为Integer的参数,并且返回值是Integer类型。在函数内部计算了这两个参数相加的和,并把这个和作为返回值赋给my_sum。可以通过调用这个函数,并传递相应的参数,获得它的返回值。

    定义函数后,就可以在VBA中的过程,或者其它函数,或者在Excel表格中使用这个函数了。

    在Excel表格中使用:

    在VBA过程中使用:

    再次强调,函数是不能直接执行的。上例中,如果试图把鼠标光标放在my_sum函数中,再按F8,或者点击工具栏中的执行按钮,都不会执行这个函数,而是会弹出一个运行宏的选择对话框,而在这个对话框中,是没有任何函数可供选择的,只有过程:

    3. 过程和函数的调用

    前面说过,过程和函数,都可以是被相互调用的。

    3.1 过程的调用

    格式1:

    Call 过程名
    

    格式2:

    Call 过程名(参数1, 参数2, ...)
    

    如果过程不带参数,那么可以使用第1种格式,过程名后面不需要括号

    如果过程带有参数,则要按照参数的顺序依次把参数写到过程名后面的括号中。即使用第2种格式。

    3.2 函数的调用

    函数的调用在本章第2节中有示例。函数的调用通常会在调用时把其赋值给一个变量,以获取函数返回值。

    Sub test()
        Dim s As Integer
        s = my_sum(5, 5)
        Debug.Print s
    End Sub
    
    Function my_sum(n1 As Integer, n2 As Integer) As Integer
        Dim s As Integer
        s = n1 + n2
        my_sum = s
    End Function
    

    这里应该提出的是,函数应当要有返回值的,因为如果不需要返回值,那就应该直接使用过程而不是函数了。

    4. 参数的使用

    参数和使用对于过程和函数都是一样的。所以本节的内容对过程和函数都适用。

    参数可分为可选参数和必选参数两种。必选参数在调用(过程或函数时)必须加上,否则会报错。可选参数则可写可不写。默认是必选参数,可选参数在定义时用Optional关键字声明,并且可选参数必须放在参数列表的最后面。

    4.1 必选参数

    必选参数在定义时放置在过程或函数名后面的括号中,格式为:

    参数名 As 参数类型
    

    如:

    Sub sub_test(s As String)
        Debug.Print s
    End Sub
    

    在调用时,必须传入参数:

    Sub test()
        Call sub_test("hello")
    End Sub
    

    4.2 可选参数

    格式与必选参数类似,只是在参数名前面用Optional声明参数是可选的。

    Optional 参数名 As 参数类型
    

    如:

    Sub sub_test(Optional s As String)
        Debug.Print s
    End Sub
    

    在调用上述过程时,可以不传入参数,此时则不会输出任何东西,也不会报错,因为参数是可选的。如果传入了参数,则会输出这个参数。

    可选参数还可以设置默认值,即如果在调用时不显式传入这个参数的话,那么就使用定义时所使用的值。如下过程:

    Sub sub_test(Optional s As String = "Hello, World")
        Debug.Print s
    End Sub
    

    带参数调用

    Sub test()
        Call sub_test("I am a boy")
    End Sub
    

    输出:I am a boy

    不带参数调用

    Sub test()
        Call sub_test
    End Sub
    

    输出:Hello, World

    4.3 同时使用可选参数与必选参数

    此时可选参数必须放在最后

    Sub sub_test(var As Integer, Optional s As String = "Hello, World")
        Debug.Print var
        Debug.Print s
    End Sub
    

    只传入必选参数

    Sub test()
        Call sub_test(50)
    End Sub
    

    输出:

    50

    Hello, World

    同时传入可选参数与必选参数

    Sub test()
       Call sub_test(50, "Hi, Meinv")
    End Sub
    

    输出:

    50

    Hi, Meinv


    本系列教程其它文章

    Excel VBA 入门(零)
    Excel VBA 入门(一)数据类型
    Excel VBA 入门(二)数组和字典
    Excel VBA 入门(三) 流程控制1-条件选择
    Excel VBA 入门(四)流程控制2-循环控制
    Excel VBA 入门(五)Excel对象操作
    Excel VBA 入门(六)过程和函数
    Excel VBA 入门(七)注释、宏按钮及错误处理
    Excel VBA 入门(八)单元格边框
    Excel VBA 入门(九)操作工作薄
    Excel VBA 入门(十)用户窗体开发

  • 相关阅读:
    Codeforces
    (水题)Codeforces
    【拓展欧几里得】方程的解
    洛谷P3216 [HNOI2011]数学作业
    洛谷P1719 最大加权矩形
    洛谷P1369 矩形
    洛谷 P1236 算24点
    洛谷P2014 选课
    洛谷 P1573 栈的操作
    洛谷P1531 I Hate It
  • 原文地址:https://www.cnblogs.com/wuzhiblog/p/vba_six.html
Copyright © 2020-2023  润新知