返回列表 上一主題 發帖

出貨單合併列印輸出問題,有無直接操作方法,或需採用VBA解決。

這個方式在這��  Work,只是我沒看過有人這樣用
可搜尋 Array 看看

TOP

回復 12# Baracuda
是一維陣列, 非二維陣列.
  1. Sub Ex()
  2.     Dim Ar(2), i%, y%, a
  3.     Ar(0) = Array(1, 2, 3, 4)
  4.     Ar(1) = Array("A", "B", "C", "D")
  5.     Ar(2) = Array("甲", "乙", "丙", "丁")
  6.     For i = 0 To UBound(Ar)
  7.         For y = 0 To UBound(Ar(i))
  8.             [a1].Offset(i, y) = Ar(i)(y)
  9.         Next
  10.     Next
  11. End Sub
複製代碼

TOP

        靜思自在 : 做好事不能少我一人,做壞事不能多我一人。
返回列表 上一主題