Array 陣列應用

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2010-12-8 17:13 | 只看該作者

本帖最後由 hugh0620 於 2010-12-8 17:22 編輯

回復 1# hugh0620

大大們

後來我看到一些大大以前寫的方式,幫忙看一下有沒有需要改進的  (若是陣列中的資料有幾十筆時,有否更好的方式呢?????)
N = 0
   I = 0
   Do Until Sheet1.Cells(3 + I, 4) = ""
         For Each R In Array("F", "O", "P")
            Sheet1.Cells(3 + N, 1) = R
            Sheet1.Cells(3 + N, 2) = Sheet1.Cells(3 + I, 4)
            N = N + 1
         Next
      I = I + 1
   Loop

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2010-12-8 20:05 | 只看該作者

這個不是解決過了嗎？怎麼又來一次？

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

4^#

發表於 2010-12-9 09:32 | 只看該作者

回復 3# oobird

大大這是我第一次發    我在發之前有現找尋過後
         沒有查到相關的資料我才發帖
      請勿誤會

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2010-12-9 09:39 | 只看該作者

那麼應該是你傳錯文件了。
你的文件中並沒有你說的
1. Customer 資料有兩筆 (大約需放大至100筆)
2. 狀態資料有三筆
3. AB欄是我展開後所需要的結果

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

6^#

發表於 2010-12-9 09:43 | 只看該作者

回復 5# oobird

抱歉唷~ 是我傳錯檔~ 讓大大誤會了~
重傳一次

array 陣列應用.rar (7.76 KB)

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

發表於 2010-12-9 10:05 | 只看該作者

陣列的意義在於把資料存取置於記憶體中運算，運算完後再一次寫入工作表上，主要是縮短操作時間，程式碼不一定能精簡。
你的須求可以這樣：

Private Sub CommandButton1_Click()
Dim a, b, arr(), i%, j%, m%
a = [e3:e5]
b = [d3:d4]
For i = 1 To UBound(b)
For j = 1 To UBound(a)
m = m + 1
ReDim Preserve arr(1 To 2, 1 To m)
arr(1, m) = a(j, 1)
arr(2, m) = b(i, 1)
Next j, i
[a3].Resize(m, 2) = Application.Transpose(arr)
End Sub

複製代碼

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

8^#

發表於 2010-12-9 10:39 | 只看該作者

回復 7# oobird

謝謝大大的說明~

另請教一個問題,若我資料是浮動的 (如customer 是未知筆數,狀態還是固定三種時)
這樣大大程式碼跑起來就無法達到需求,這樣的問題該如何解決呢???

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

發表於 2010-12-9 10:54 | 只看該作者

03.a = [e3:e5]

04.b = [d3:d4]
改這兩行
a=range([e3],[e3].end(4))
b=range([d3],[d3].end(4))

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

10^#

發表於 2010-12-9 11:07 | 只看該作者

本帖最後由 hugh0620 於 2010-12-9 11:15 編輯

回復 9# oobird

   真的很感謝大大~ 真的是厲害~
   最後再請教大大語法的意思
   1. Dim a, b, arr(), i%, j%, m%                i%的意思是什麼呢? (我沒用過這樣的寫法,請大大教導一下)
         a = [e3:e5]
         b = [d3:d4]
      For i = 1 To UBound(b)
                  For j = 1 To UBound(a)
                  m = m + 1
   2.          ReDim Preserve arr(1 To 2, 1 To m)          ReDim 與 Preserve 的意思與用法??
                           arr(1, m) = a(j, 1)
                           arr(2, m) = b(i, 1)
         Next j, i
      [a3].Resize(m, 2) = Application.Transpose(arr)