麻辣家族討論版版 » Excel程式區 » [發問]如何用迴圈取出陣列值，不斷放到一個固定範圍

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

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

中學生 Rank: 2

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

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 的固定範圍內，一共六個空格，當放滿六個時則清除該飯圍的值
繼續再取出六個值放入該飯圍，直到取完陣列裏所有的值為止

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

樓主熱帖

收藏

中學生 Rank: 2

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

2^#

發表於 2011-7-16 17:29 | 只看該作者

請各位高手指導一下怎麼寫感謝

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-7-16 19:28 | 只看該作者

回復 2# yurckr
請附檔上來說清楚

中學生 Rank: 2

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

4^#

發表於 2011-7-17 17:26 | 只看該作者

arraytest.rar (17.35 KB) 回復 3# GBKEE

感謝您的關注，想表達的意司已經在檔案中請您指教謝謝

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-7-17 21:04 | 只看該作者

本帖最後由 GBKEE 於 2011-7-18 07:37 編輯

回復 4# yurckr

Sub 按鈕1_Click()
Dim Ar(), Rng As Range, i, ii
With 工作表1
If .Range("a2").End(xlDown).Row = Rows.Count Then Exit Sub '無資料
Ar = .Range("a3", .Range("a3").End(xlDown))
Set Rng = .Range("C3:C8") '輸入區
For i = 1 To UBound(Ar) Step 6 '陣列索引間隔6
Rng = "" '清除輸入區
For ii = i To i + 5 '
If ii <= UBound(Ar) Then Rng(ii - i + 1) = Ar(ii, 1)
'Rng(ii - i + 1) -> 依序為輸入區的 1,2,3,4,5,6 的Cells
Next
' .PrintOut '印列
Next
MsgBox "印列完畢"
End With
End Sub
Sub Ex()
Dim Rng As Range
With 工作表1
If .Range("a2").End(xlDown).Row = Rows.Count Then Exit Sub '無資料
Set Rng = .Range("A3") 'A列的數據的第1個位置
Do
.Range("C3:C8") = "" '清除輸入區
.Range("C3:C8") = Rng.Resize(6).Value '輸入區的值=Rng擴充6列後的值
' .PrintOut '印列
Set Rng = Rng.Offset(6) '設定A列的數據往下位移6列
Loop Until Application.CountA(Rng.Resize(6)) = 0
'loop 迴圈離開條件 Until(直到) -> A列 6列沒有數據
MsgBox "印列完畢"
End With
End Sub

複製代碼

靜思自在 : 得理要饒人，理直要氣和。

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