关于Sub参数的一个问题

mansohu

sub AA(P1,P2)

end sub

请问，如何制作一个可以忽略参数的Sub，如果以上Sub中的P2参数不是必要参数，调用时怎么能忽略它，如下句：
Call AA(P1)

maditate

Sub通常不用参数吧？

Sub AA()
  msgbox("AA 被调用了"}
end if

sub BB()
call AA
end sub

yaozong

自定义函数可设缺省参数
一般子程序(除事件),参数在程式中

joforn

在参数前添加Optional.
注意：在第一个Optional以后的所有参数应全部添加Optional；
　　　所有声明为Optional的参数都可以为其指定一个默认的参数值，即如果在调用时被省略则将使用那个值，如果没有被指明默认值，其默认值将为指定类型的默认初始值，如数值类型的参数为0,字符串型参数为VbNullString....

1. 
   
2. Sub AA(ByVal P1 As String, Optional ByVal P2 As String = "（默认参数）")
   
3.   MsgBox "AA过程被调用:" & vbCrLf & "参数一：" & P1 & vbCrLf & "参数二：" & P2
   
4. End Sub
   
5. 
   
6. Sub Test()
   
7.   AA "中国"
   
8. End Sub
   

复制代码

chenzyyysl

sub aa(ParamArray m())
end sub

crazy0qwer

注意： ismissing 仅对 variant类型变量有效。

1. Sub AA(P1 As Long, Optional P2 As Variant)
   
2.     If IsMissing(P2) Then MsgBox "参数二 P2 未传入"
   
3. End Sub
   
4. Sub AAA()
   
5.     Call AA(1)
   
6. End Sub
   

复制代码

joforn

第二种方式：

1. 
   
2. Sub AA(ByVal P1 As String, Optional ByVal P2 As String = "（默认参数）")
   
3.   MsgBox "你调用了AA过程，" & vbCrLf & "参数一：" & P1 & vbCrLf & "参数二：" & P2
   
4. End Sub
   
5. 
   
6. Sub BB(ParamArray varArr())
   
7.   Dim I       As Long
   
8.   Dim strTemp As String
   
9.   
   
10.   For I = 0 To UBound(varArr)
    
11.     strTemp = strTemp & vbCrLf & "第" & I & "个参数值：" & varArr(I) & " [参数类型：" & TypeName(varArr(I)) & "]"
    
12.   Next I
    
13.   
    
14.   I = UBound(varArr) - LBound(varArr) + 1
    
15.   MsgBox "你调用了BB过程，并传入了" & I & "个参数！" & strTemp
    
16. End Sub
    
17. 
    
18. Sub Test()
    
19.   AA "中国"
    
20.   BB "中国", 1, "美国", 1&
    
21. End Sub

复制代码

chenzyyysl

Sub aa(ParamArray m())
   For Each cc In m
      MsgBox cc
   Next
End Sub

Sub xx()
  Call aa(7, 6, 5)
End Sub

随风而行lulu

joforn 发表于 2013-4-5 10:52
第二种方式：

通俗易懂！感谢你

gj9590

请问可以生成K线图吗？