　暱稱: VBA向前衝

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

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-12-8 16:59 | 只看該作者

Array 陣列應用

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

Dear 大大

   小弟對於陣列的應用方式不熟悉,所以,有些地方可以使用到陣列簡化程式碼的撰寫,卻寫了一堆程式碼,
   雖可以答達目的,還是請教大大如何使用array(陣列)來解決問題,也可以讓小弟吸收一下

附件是我工作上的一個舉例
1. Customer 資料有兩筆    (大約需放大至100筆)
2. 狀態資料有三筆
3. AB欄是我展開後所需要的結果

請大大們指導一下

多資料匯整成在同data中.zip (989.78 KB)

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

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

15^#

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

回復 14# oobird

謝謝大大詳細的說明

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

14^#

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

ReDim Preserve arr(1 To 2, 1 To m)
在迴圈內重新宣告陣列的大小。
假設不能預知程式運行的結果須要的陣列大小(雖然可以先算出來，但用動態陣列就不用)
每一次的迴圈m=m+1，所以這個陣列是不斷的長大的，必須要注意陣列只能改變最後一維的大小，這裡就是指第二維。所以最後要把這個陣列轉置寫入工作表中。

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

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

13^#

發表於 2010-12-9 18:40 | 只看該作者

回復 12# oobird

大大~ 我都有先使用F1看說明~ 可是....公司的電腦~ 在OFFICE的說明~ 無法跳出
所以~ 才先請教大大們

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

12^#

發表於 2010-12-9 13:30 | 只看該作者

dim i% = dim i as integer
把游標定在redim上按f1,看說明。
要學vba首先學如何看說明。

TOP

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兔年全勤獎章

11^#

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

回復 10# hugh0620
Dim i As Integer
Integer 的型態宣告字元是百分比符號(%)。
Preserve 選擇性引數。當改變原有陣列最後一維的大小時，仍然保有原來的資料的關鍵字。

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

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

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)

TOP

oobird