函数IsMissing对可选参数Optional判断问题

alchemy777

例如:
Public Function EEE(Optional c1 as string) As String
   If IsMissing(c1) Then
   c1 = Sheets("收入").Range("a1").Value
   End If
  EEE = "收入是:"+c1
End Function
如果给可选参数c1定义了类型,IsMissing函数就各种判断失败
请问高手,可选参数定义了类型,就已经初始化了吗?
如果不定义类型,会不会在应用过程中出什么纰漏？

liucqa

使用 IsMissing 函数来检测在调用一个程序时是否提供了可选 Variant 参数。如果对特定参数没有传递值过去，则 IsMissing 返回 True；否则返回 False。如果 IsMissing 对某个参数返回 True，则在其它代码中使用这个丢失的参数将产生一个用户自定义的错误。如果对 ParamArray 参数使用 IsMissing，则函数总是返回 False。为了检测空的 ParamArray，可试看一下数组的上界是否小于它的下界。

注意   IsMissing 对简单数据类型（例如 Integer或Double）不起作用，因为与Variants不同，它们没有“丢失”标志位的前提。正由于此，对于可选参数类型，可以指定缺省值。如果调用过程时，参数被忽略，则该参数将具有该缺省值，如下列示例中所示：

Sub MySub(Optional MyVar As String = "specialvalue")
    If MyVar = "specialvalue" Then
        ' MyVar 被忽略。
    Else
    ...
End Sub

liucqa

部分数据类型是不能判断ismissing的，因此如果一定要判断是否ismissing，可以考虑用默认数据类型，然后在函数里面用Cstr

alchemy777

上面的老兄,这段帮助我看过了
说实话,水平有限,看得不是太懂
而且帮忙上明确说了,"如果对特定参数没有传递值过去，则 IsMissing 返回 True；否则返回 False。"
我想确认一下，是不是定义参数类型,编译器就已经传递值了？

liucqa

alchemy777 发表于 2012-1-11 13:02
上面的老兄,这段帮助我看过了
说实话,水平有限,看得不是太懂
而且帮忙上明确说了,"如果对特定参数没有传递 ...

不是传递值，是部分数据类型不能判断是否ismissing

在你看来可能这个就是传递值吧

alchemy777

明白了
再问一个问题，可选参数的缺省值，是当前表的单元格引用
我试着用
Public Function EEE(Optional c1 as range =Sheets("***").Range("a1").) As String 之类的语句来表达，好像更不可行
如果不用IsMissing，那该怎么写？
  

maijinniu

原来如此，怪不得我的自定义函数声明integer的变量不起作用，用变体型就可以了

mythqiu

感谢,解决了一个判断不出的问题