出貨單合併列印輸出問題,有無直接操作方法,或需採用VBA解決。
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 12# Baracuda
是一維陣列, 非二維陣列.
- Sub Ex()
- Dim Ar(2), i%, y%, a
- Ar(0) = Array(1, 2, 3, 4)
- Ar(1) = Array("A", "B", "C", "D")
- Ar(2) = Array("甲", "乙", "丙", "丁")
- For i = 0 To UBound(Ar)
- For y = 0 To UBound(Ar(i))
- [a1].Offset(i, y) = Ar(i)(y)
- Next
- Next
- End Sub
複製代碼 |
|
|
|
|
|
|
|