VBA提高篇_19 可选参数Optional_ IsMissing _MSgbox

pigerr杨

已于 2023-07-06 17:22:35 修改

阅读量1.6k

点赞数

分类专栏： # VBA基础和提高篇文章标签： VBA 学习 excel

于 2023-02-09 17:22:56 首次发布

本文链接： https://blog.csdn.net/pigerr/article/details/128897661

版权

VBA基础和提高篇专栏收录该内容

48 篇文章 15 订阅

订阅专栏

文章介绍了VBA中如何使用可选参数Optional，包括默认值设置及IsMissing函数用于判断参数是否提供的用法。同时，讲解了Msgbox函数的参数配置，如Prompt、Buttons和Title，并提到了VBA中的颜色常量表。

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

文章目录

1. 可选参数Optional

Optional 代表本参数是可选项 =False ; 代表参数若不指定,则默认为False

Function mySumProduct(r As Range, Optional useColumn As Boolean = False)
End Function

Function mySumProduct(r As Range, Optional useColumn As Boolean = False)
    Dim i&, j&, s&, k&
    s = 0
    
    If useColumn Then
        
        For j = 1 To r.Columns.Count
            k = 1
            For i = 1 To r.Rows.Count
                k = k * r.Cells(i, j)
            Next i
           s = s + k
        Next i
       
    Else
        For i = 1 To r.Rows.Count
            k = 1
            For j = 1 To r.Columns.Count
                k = k + r.Cells(i, j)
            Next j
            s = s + k
        Next i
    
    
     mySumProduct = s
     
End Function

Sub RegxTQ(Optional r, Optional c As Boolean = True)
    Dim myReg As Object, Num
    Set myReg = CreateObject("VBSCRIPT.REGEXP")
    
    If IsMissing(r) Then r = Range("A" & ActiveCell.Row)
    
    With myReg
        .Pattren = "\d+[.]\d+"
        .IgnoreCase = True
        .Global = True
        
        If c Then Num = .Execute(r)(0) Else Num = .Execute(r)(1)
        
    End With
    
    RegxTQ = Num
    
End Sub

2.IsMissing判断参数是否提供,只能判断变体类型

3. 使用 := 可以按参数名传递参数 a:=1,c:=3

Sub callDemo()
    Dim x
    x = myFun(3)
    'x = myFun(3, 4)
    'x = myFun(3, 4, 5)
    'x = myFun(a:=3, c:=1)
    
End Sub

Function myFun(a, Optional b = 0, Optional c = 0)

    myFun = a + b - c
      
End Function