- 帖子
- 33
- 主題
- 10
- 精華
- 0
- 積分
- 74
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-6-9
- 最後登錄
- 2020-12-3
|
陣列回傳
請問一下，我要如何將天數這個陣列回傳到上面然後繼續使用呢?- Public Sub 結束日期1()
- lastrow = Sheet4.[I65536].End(xlUp).Row
- For 筆數 = 2 To lastrow
- 批次 = Sheet4.Cells(筆數, 12)
- SDay = Sheet4.Cells(筆數, 14)
- 各天數 筆數
- End Sub
- Private Function 各天數(筆數)
- aa = Cells(筆數, 9)
- 第幾行 = [a:a].Find(aa).Row
- 右邊幾欄 = Cells(第幾行, 1).End(xlToRight).Column - 2
- ReDim Preserve 天數(右邊幾欄 - 1)
- 天數細項 = 3
- For i = 0 To 右邊幾欄 - 1
- 天數(i) = Cells(第幾行, 天數細項)
- 幾天 = 幾天 + 1 '加一列
- Next i
- 各天數 = 天數
- End Function
|
|
發表於 2016-4-21 17:08
| 
