標題: 陣列回傳 [打印本頁]

---

作者: warhead    時間: 2016-4-21 17:08     標題: 陣列回傳

請問一下，我要如何將天數這個陣列回傳到上面然後繼續使用呢?

1. Public Sub 結束日期1()
   
2. lastrow = Sheet4.[I65536].End(xlUp).Row
   
3.     For 筆數 = 2 To lastrow               
   
4.         批次 = Sheet4.Cells(筆數, 12)
   
5.         SDay = Sheet4.Cells(筆數, 14)
   
6.         各天數 筆數
   
7. End Sub
   
8. Private Function 各天數(筆數)
   
9.           aa = Cells(筆數, 9)      
   
10.          第幾行 = [a:a].Find(aa).Row   
    
11.          右邊幾欄 = Cells(第幾行, 1).End(xlToRight).Column - 2
    
12.     ReDim Preserve 天數(右邊幾欄 - 1)  
    
13.               天數細項 = 3   
    
14.               For i = 0 To 右邊幾欄 - 1
    
15.             天數(i) = Cells(第幾行, 天數細項)
    
16.                 幾天 = 幾天 + 1 '加一列
    
17.                 Next i
    
18.               各天數 = 天數
    
19. End Function

複製代碼

---

作者: jackyq    時間: 2016-4-22 00:15

天數 = 各天數( 筆數 )

ok???

---

作者: warhead    時間: 2016-4-22 13:51

回復 2# jackyq

J大~

我改成 天數 = 各天數( 筆數 ) 後，程式變成會一直在 Private Function 各天數(筆數) 這裡面一直執行不會回到原來的地方，

後來把這段整各拿掉後，發現他就正常了，他其實是可以傳回去的。

謝謝:loveliness:

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)