12
返回列表 上一主題 發帖

關於動態陣列程式碼的問題

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-9-8 12:45 | 只看該作者

關於動態陣列程式碼的問題

Sub yy()
Dim rng, arr, i%, j%, k%
With Sheets("1")
rng = .Range(.[c10], .[m83].End(3))
End With
ReDim arr(1 To UBound(rng), 1 To 10)
For i = 1 To UBound(rng)
If rng(i, 11) - rng(i, 10) <> 0 Then
k = k + 1
問題 >這裡的k的起始值並沒寫...這樣沒有寫的狀況是不是代表k是從0開始
For j = 1 To 6
arr(k, j) = rng(i, j)
Next
arr(k, 8) = rng(i, 8) - rng(i, 6)
arr(k, 9) = arr(k, 8) - arr(k, 6)
arr(k, 10) = rng(i, 11) + rng(i, 10)
End If
Next
Sheets("2").UsedRange = ""
Sheets("2").[a5].Resize(k, 10) = arr
問題 >這裡的k不是已經跳出for-next迴圈..且該回圈也沒有Preserve...那不是k值就沒記憶?k不就是空的嗎?
End Sub
收藏 分享

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

論壇贊助勳章論壇榮譽勳章
12#
發表於 2010-9-10 19:50 | 只看該作者
回復 11# Hsieh


    小弟試試
感恩喔~~~~

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
258  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-28 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
11#
發表於 2010-9-9 21:00 | 只看該作者
回復 10# oak0723-1


    用F8逐行來看變數變化
你才會了解迴圈
學海無涯_不恥下問

TOP

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

論壇贊助勳章論壇榮譽勳章
10#
發表於 2010-9-9 20:33 | 只看該作者
本帖最後由 oak0723-1 於 2010-9-9 20:36 編輯

回復 8# Hsieh


    那在請教大大
由這個程式碼
Dim a, r%, i%, arr()
    a = Sheets("1").[c10].CurrentRegion
    r = 1
    For i = 1 To UBound(a)
        ReDim Preserve arr(1 To 3, 1 To r)
        arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
        r = r + 6
    Next
    [j9] = r
得到r445
那請教
下列這個程式碼for-next後的r(紅字標示)也是445嗎
    Dim a, r%, i%, arr()
    a = Sheets("1").[c10].CurrentRegion
    r = 1
    For i = 1 To UBound(a)
        ReDim Preserve arr(1 To 3, 1 To r)
        arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
        r = r + 6
    Next
    Sheets("2").[c4].Resize(r - 6, 2) = Application.Transpose(arr)
    Sheets("2").[k4].Resize(r - 6, 1) = Application.Transpose(Application.Index(arr, 3))
以上詳附件

990909-2.rar (17.2 KB)

TOP

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

論壇贊助勳章論壇榮譽勳章
9#
發表於 2010-9-9 20:00 | 只看該作者
本帖最後由 oak0723-1 於 2010-9-9 20:04 編輯

回復 8# Hsieh


  為何有空的陣列儲存位置是因為顯示是將每個陣列儲存位置都顯示
因為r每次都加6
所造成部分儲存位置顯示是空的
是這個意思嗎?
那數值跟數值間應該有5*3=15個陣列儲存位置是空的囉?
所以才顯示16個逗號
因為每2個逗號間有1個空的數值存在?
嘿嘿
懂了
感恩~~~~

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
258  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-28 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
8#
發表於 2010-9-9 18:03 | 只看該作者
回復 7# oak0723-1


    你r每次加6你說會跑遍每個陣列元素嗎?
你要去思考變數的變化值
逗號是因為我程式中mystr是將陣列元素用逗號連接
當元素是空值時自然只產生逗號沒有值
學海無涯_不恥下問

TOP

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

論壇贊助勳章論壇榮譽勳章
7#
發表於 2010-9-9 15:47 | 只看該作者
本帖最後由 oak0723-1 於 2010-9-9 15:52 編輯

回復 6# Hsieh


小弟還有個疑問
在第1個測試的含有Preserve程式碼中執行後
為何在數值與數值間還會出現許多逗號?(表示資料是空的?)
例如:,a-1,b-1,c-1,,,,,,,,,,,,,,,,a-2,b-2,c-2,,,,,,,
For i = 1 To UBound(a)
        ReDim Preserve arr(1 To 3, 1 To r)
        arr(1, r) = a(i, 1)
        arr(2, r) = a(i, 2)
        arr(3, r) = a(i, 3)
        r = r + 6
Next
在以上這段程式碼中...不是把陣列的每個資料位子都指定填滿了嗎?
為何資料與資料間還有那多個逗點(小弟算了1下..有16個)

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
258  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-28 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2010-9-9 14:03 | 只看該作者
回復 5# oak0723-1

arr是個二維陣列
ReDim arr(1 To 3, 1 To r)跟
ReDim Preserve arr(1 To 3, 1 To r)
都是在改變arr陣列的第2維數量
只不過當每次redim後若沒有使用preserve關鍵字
則會清除所有陣列元素內容
但數量還是有增加
所以你測試2個程序後有使用preserve關鍵字的程序
msgbox內容會有你要的文字
只有redim的程序都只有逗號(表示arr的內容都是空值)
所以[j9][j12]會得到相同的值
也就是arr陣列的第二維大小
學海無涯_不恥下問

TOP

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

論壇贊助勳章論壇榮譽勳章
5#
發表於 2010-9-9 11:42 | 只看該作者
回復 4# Hsieh


    請問[j9]和[j12]所顯示數值的意義是?

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
258  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-28 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2010-9-9 10:25 | 只看該作者
回復 3# oak0723-1
  1. Private Sub CommandButton2_Click()
  2. Dim a, r%, i%, arr()
  3.     a = Sheets("1").[c10].CurrentRegion
  4.     r = 1
  5.     For i = 1 To UBound(a)
  6.         ReDim Preserve arr(1 To 3, 1 To r)
  7.         arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
  8.         r = r + 6
  9.     Next
  10.     [j9] = r
  11.        For j = 1 To UBound(arr, 2)
  12.    For i = 1 To 3
  13.       mystr = mystr & "," & arr(i, j)
  14.       Next: Next
  15.       MsgBox mystr


  18. End Sub

  20. Private Sub CommandButton3_Click()
  21. Dim a, r%, i%, arr()
  22.     a = Sheets("1").[c10].CurrentRegion
  23.     r = 1
  24.     For i = 1 To UBound(a)
  25.         ReDim arr(1 To 3, 1 To r)
  26.         arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
  27.         r = r + 6
  28.     Next
  29.    [j12] = r
  30.    For j = 1 To UBound(arr, 2)
  31.    For i = 1 To 3
  32.       mystr = mystr & "," & arr(i, j)
  33.       Next: Next
  34.       MsgBox mystr
  35. End Sub
複製代碼
分別執行此2程序就知 道Preserve的效果
學海無涯_不恥下問

TOP

        靜思自在 : 甘願做、歡喜受。
12
返回列表 上一主題