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

　暱稱: VBA向前衝

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

3^#

發表於 2010-12-9 09:32 | 顯示全部帖子

回復 3# oobird

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

　暱稱: VBA向前衝

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

4^#

發表於 2010-12-9 09:43 | 顯示全部帖子

回復 5# oobird

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

array 陣列應用.rar (7.76 KB)

　暱稱: VBA向前衝

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

5^#

發表於 2010-12-9 10:39 | 顯示全部帖子

回復 7# oobird

謝謝大大的說明~

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

　暱稱: VBA向前衝

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

6^#

發表於 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)