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

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

4.Msgbox 常用参数

Prompt: 第一参数,字符串
Buttons: 第二参数, Msgbox风格代码(可用常量名称,可用风格代码)
Title:第三参数, 对话框标题栏
在这里插入图片描述

4.1 Msgbox的返回值代码

在这里插入图片描述

5.VBA颜色常量表

在这里插入图片描述

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

pigerr杨

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值