数组赋值(一维数组赋值)

VBA++ 題記：一剪閑雲一溪月，一程山水一年華。一世浮生一剎那，一樹菩提一煙霞。歲月靜好，現世安穩。縱算雲水流浪，心若安寧，亦可淡若清風。期望見者與不見者都能健康。靜下心，多學習有用的知識，多进步自己的水平缓才能，這才是正路。時間就像一張網，你撒在哪裡，你的收獲就在哪裡。謹記自己的方向，這是路之地点。適當節制自我的各種愿望,誰都逃不過時間的歷練，誰都是命運的行者，誰都是在人生的道路上一步一趨的行路人。你要做的，是悄悄地去尽力，等你變厲害之後，把自己也嚇一跳，才是你現在需求當作目標的事。把日子與作业打理好，不負年華。不要輕言你是在為誰支付和犧牲，其實一切的支付和犧牲最終的受益人都是自己。

600654股票,600654股票

綠色動力股吧,綠色動力股吧

今天內容是和大傢共享VBA編程中常用的 "積木"過程代碼，這些內容大多是我的經驗的記錄。來源於我多年的經驗。今天共享的是第NO.219，內容是：數組的賦值及回填

002411必康股份股票,002411必康股份股票

********************************************************************

VBA過程代碼219：數組的賦值及回填

Sub Mynz ()

Dim i As Integer, j As Integer

Dim arr(1 To 10, 1 To 2) As Integer '定義一個10*2的二維數組（10行，2列）

j = 1 '數組1 to 10的索引號

For i = 1 To 20 Step 2

arr(j, 1) = i '賦值

arr(j, 2) = i + 1 '賦值

j = j + 1 '索引號添加

Next

[a1:b65536].Clear '铲除原有數據

[a1].Resize(10, 2) = arr '將數組賦值給A1單元格向下10行，向右2列的區域

End Sub

代碼解析：mynz過程首要定義一個10*2的二維數組（10行，2列）並使用循環語句對數組進行賦值；然後對作业表中數據铲除，最後將數組賦值給A1單元格向下10行，向右2列的區域。

*******************************************************

VBA是實現自己小型辦公自動化的有用手法，我根據自己20多年的VBA實際使用經驗，現推出瞭四部VBA學習教程，這些是我多年編程經驗的記錄，也是我"積木編程"思维的體現。每一講都是一塊"積木"，能够獨立的完结某些或许某類的過程。使用這些能够大大进步自己的編程功率。

榜首："VBA代碼解決计划"是PDF電子版，是VBA中各個知識點的講解，覆蓋瞭絕大多數的知識點，是初學及中級人員必備的資料；

第二："VBA數據庫解決计划"是PDF電子版，數據庫是數據處理的利器，對於中級人員應該把握這個內容瞭。

第三："VBA數組與字典解決计划"是PDF電子版，講解VBA的精華----字典，是我們打開思路，进步代碼水平所必備。

第四："VBA代碼解決计划"視頻。是專門給初學者講解的視頻教程，通過147講的視頻學習能够讓你更快的把握這門技术。

*******************************************************

浮雲掠過，暗語無聲，唯有清風，驚瞭夢中啼鶯。望星，疏移北鬥，奈將往事雁同行。

阡陌人，昏燈明暗，忍顧長亭，多少VBA人，暗夜中，悄聲尋夢，盼卻天明，怎無憑！

這幾句詞是我借鑒過來的對VBA人員的寫照，正如一位朋友說的那樣：學vba之前蠻悠閑的，學之後就沒時間悠閑瞭。確實，還是很精確的比方，當你會瞭一門手藝，你就有瞭能够被使用的價值，這種價值的反作用便是自己價值的进步。願每位VBA人員都有這樣的價值吧！

懶惰是很古怪的東西，它使你以為那是闲适，是歇息，是福氣;但實際上它所給你的是無聊，是厌倦，是低沉。不要懶惰，還是多學習些有用的知識吧，哪怕隻是點滴。