返回列表下一主題上一主題發帖

[發問] [發問]如何用迴圈取出陣列值，不斷放到一個固定範圍

yurckr

中學生 Rank: 2

帖子: 16
主題: 9
精華: 0
積分: 60
點名: 0
作業系統: winxp
軟體版本: office2007
閱讀權限: 20
註冊時間: 2010-5-19
最後登錄: 2023-10-21

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-7-13 16:57 | 顯示全部帖子

[發問] [發問]如何用迴圈取出陣列值，不斷放到一個固定範圍

請教以下寫法

For i = 1 To

myarray = Split((Sheets(moneyprlist).Cells(i + 2, 14)), ",", , 1)

For j = 0 To UBound(myarray)

Sheets(moneyprlist).Cells(i + 2, j + 13) = myarray(j)
timer = timer + 1

Next j

If timer = 6 Then

MsgBox "已經搜集六個了可以印囉"

Call ptprint

endif

end sub

我想讓這程式的作用是將陣列裏的值放到 m3:m8 的固定範圍內，一共六個空格，當放滿六個時則清除該飯圍的值
繼續再取出六個值放入該飯圍，直到取完陣列裏所有的值為止

不知道該怎麼寫請指導謝謝