懶人計劃 3 – 自動製作文件的二次進化 PART 04 – 第一次執行 2

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 聲明事項 ~

如各位想把以下本文章轉貼 , 請記得要注明出處.

本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.

由於圖片製作需時, 所以更新會比較慢.

存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.

現在先假設 REF # 1 的資料已經做好了打印的過程 , 我們現在要做的 , 是在 SUMMARY 頁面的 “ 已打印 ” 和 “ 打印日期 ” 中增加對應資料 , 一個 “ Y ” 字和打印日期 . 程式碼 :

==========================================

Counter = 4

For LoopCount = 1 To Ref2TTL

Worksheets("Summary").Range("I" & Counter).Value = "Y"
Worksheets("Summary").Range("J" & Counter).Formula = "=today()"
Worksheets("Summary").Range("J" & Counter).Value = Worksheets("Summary").Range("J" & Counter).Value

Counter = Counter + 1.

Next LoopCount

==========================================

先設定一個變量 COUNTER 的值是 4 , 為什麼是 4 ?? 想一想嘛 ~ 很簡單的耶 ~ 就是因為 SUMMARY 頁面的第一個記錄位置是 4 囉 ~


( Pic4_1 )

嗯 , 講解一下程式碼在做什麼吧 ~ 首先 , 設定好變數 LoopCount 的值是由 1 到 變數 Ref2TTL 的值 , 之後 , 在儲存格 I 什麼的地方放上一個 “ Y ” 字 , 這個 Y 什麼就是 4 , 因為是第一次執行 , 在儲存格 Y4 放好一個 “ Y ” 字 , 在儲存格 J4 加上一個函數公式 =today() , 然後 , 再把儲存格 J4 的值變成儲存格 J4 的值 … 嗯 … 很煩嗎 ?? 不煩不煩 ~ 這個 把儲存格 J4 的值變成儲存格 J4 的值是有必要的 , 因為如果你只保留著函數式 , 你所見到的值是會變的 , 所以要把它的值固定 , 由函數公式變成一個純粹的值 .

做完之後 , 變量 COUNTER 的值就變成 COUNTER 的值加 1 , 如果現在 COUNTER 的值是 1 , 那麼在 Counter = Counter + 1. 執行後 , COUNTER 的值就變成 2 , 如果 COUNTER 的值是 2 , 那就變成 3 .

做到這一步 , 程式碼的第一次執行就順利完成了 , 看一下我的程式碼 , 這是已經做好排序的 ~


( Pic4_2 )

然後 , 如果是按照現在我的這個例子 , 我們還有 REF # 2 , #3 和 #4 的資料要處理 , 所以 , 我們還要再繼續增加程式碼 , 來完成餘下的資料處理 .

借助剛才用作尋找數據位置的變數 COUNTER 找出下一個數據的位置 :

==========================================

Worksheets("Summary").Range("A" & Counter).Select

==========================================

我很確定這句程式碼沒有錯 , 肯定 ~ 因為我測試過 ~ 哈哈 ~ 想一想就知道沒錯了 , 因為剛才每增加一次資料到 “ 已打印 ” 和 “ 打印日期 ” 之後 , 變量 COUNTER 的值都會增加 1 , 就這樣 COUNTER 的值到最後一個資料都增加完成後 , 還是會再加 1 的 , 也就是說 , 如果最後一個增加資料的位置是儲存格 J7 ( 7 是變量 COUNTER 的值 ) , 在完成增加的動作之後 , 變量 COUNTER 的值就會變成 8 .

而選擇行 A 是因為我們的主要記錄號碼是放在 A 的 , 之前在 PART 01 中增加到 INVOICE 頁面的 CONCATENATE 函數設定 , 會自動按照 INVOICE 頁面的儲存格 A2 的值增加 A , B , C , D 等等的字母在後面 , 使更改過的 VLOOKUP 函數有正確的條件在 SUMMARY 頁面查找資料 .

==========================================

TempRec = ActiveCell.Value

==========================================

再加多一個新的變量去把現在選取了的儲存格中的值記下來 , 現在我肯定它記下來的是 2 ~ 哈哈 ~ 測試過是準確無誤的 ~ 哈哈 ~

增加幾句程式碼 :

==========================================

Worksheets("Invoice").Select
Worksheets("Invoice").Range("G6:G15").Value = ""
Worksheets("Invoice").Range("A2").Value = TempRec

==========================================

選擇 INVOICE 頁面 , 把 INVOICE 頁面的儲存格 G6 到 G15 的值刪掉 , 把儲存格 A2 的值改成變量 TempRec 的值 , 現在實驗結果又再一次證明 , INVOICE 頁面中的儲存格 A2 的值會變成 2 ~

嗯 … 幹嘛文章老是這麼長的 … 是我的廢話太多嗎 ? 肯定不是了吧 ~ 是的話也不要告訴我 ~ 哈哈 ~

下一編再繼續吧 ~ 等你好好地吸收一下 ~ 慢慢來 , 其實我也覺得這次的改版蠻複雜的 ~