我有試過用全文檢索的,但我祇找到用傳回陣列的方法。<br>我見有人說過到vbguide download 身份證 程式,但不知怎解,我不能進入該網...<br>能夠幫幫小弟嗎?
你現在想要的是甚麼?
Demo Function One Option Explicit Private Sub Form_Load() Dim c c = a End Sub Public Function a() As String a = "1" a = a & "," & "2" End Function Demo Function Two Private A As A Private Type A a1 As Long a2 As Long End Type Private Sub Form_Load() C End Sub Public Sub C() A.a1 = 1 A.a2 = 2 End Sub
陣列不救可以包含一狗以上的數值!還要找什摩?
因我要傳回兩個陣列...
是兩個不同大小的陣列
可以! Private Sub Form_Load() Call a Debug.Print "第一個陣列(大小="; UBound(a(0)) + 1; ")" For i = 0 To UBound(a(0)) Debug.Print a(0)(i), Next i Debug.Print Debug.Print "第二個陣列(大小="; UBound(a(1)) + 1; ")" For i = 0 To UBound(a(1)) Debug.Print a(1)(i), Next i Debug.Print End Sub Function a() As Variant a = Array(Array(1, 2, 3), Array("a", "b", "c", "d", "e")) End Function
除了Method 回傳值外,您可以考慮使用 參數回傳的方式,這時,您就要特別注意參數是否為 ref
可以利用兩各方法 1. 和上面相同...宣告兩各矩陣傳入陣列..為ref...執行完副程式後得到想要的陣列值 2. 宣告成廣域陣列...