懶人計劃 2 - 自動製作文件進化版 PART 06 - 動起來吧2 ~

~ 上傳‧分享‧網賺 ~

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

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

~ 聲明事項 ~

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

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

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

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

緊接住上一編文章 ~ 我們繼續寫程式 ~

現在我們已經得到了兩個很有用的東西 ( LastRec 和 LastRec2 ) , 現在我們要利用這兩個東西來做要做的事 , 首先 , 加入一些程式碼 ~

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

For PrintLoop = LastRec2 + 1 To LastRec

If Worksheets("Summary").Range("H" & PrintLoop).Value = "" And Worksheets("Summary").Range("I" & PrintLoop).Value = "" Then Worksheets("Invoice").Range("A2").Value = Worksheets("Summary").Range("A" & PrintLoop).Value

Next PrintLoop

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

PrintLoop 這個變數的值 , 是由 LastRec 和 LastRec2 組成的 , 每次的 LastRec 和 LastRec2 都會記錄到不同的東西嘛 ~ 所以全部都用變數來處理會方便很多 ~ 這是我的個人經驗 , 如果你不信的話 , 大可以試試把 PrintLoop 這個變數的值設定為 2 到 LastRec , 三兩個記錄還好 , 三兩百個就死定了 ~ 哈哈 ~ 想一想就知道了嘛 ~ 這是一個不折不扣的事實呢 ~

在懶人計劃1 中 , 我們在 invoice 頁面設定了很多很多的 vloopup 函數式 , 如果按照上面的幾句程式碼來看 , invoice 頁面中儲存格 A2 的值就會跟隨記錄位置而改變 .

什麼 ? 沒看懂上面的程式碼 ?? 不是吧 ~ 好 , 我來解釋一次 ~

如果 SUMMARY 頁面中的儲存格 H?? 和 I?? 的值都是空白 , 那麼 , INVOICE 頁面儲存格 A2 的值就改變成 SUMMARY 頁面 A?? 的值 . 懂了吧 ~ 就是這麼簡單了 ~

好 ~ 現在在編程畫面一下一下的按下 F8 , 看看 INVOICE 頁面的儲存格 A2 有沒有根據我們的要求來改變 ~


( Pic6_1 )

嘿嘿嘿 ~ 成功了 ~ 哈哈哈哈哈哈 ~~~~~

等等哦 ~ 先別發瘋了 ~ 我們還有一個問題還未解決呢 ~

什麼問題 ?? 就是還未打印嘛 !!! 對了 ~ 怎樣打印 ?

忘了嗎 ?? 懶人計劃中的其中一個功能哦 ~ copy 過來就成了 ~

ActiveSheet.PrintOut from:=1, To:=1, copies:=1

嗯 ~ 可以了 ~ 但是有一個問題 , 現在操作的頁面是 summary , 那麼 ActiveSheet.PrintOut 不就變成打印 summary 頁面了嗎 ? 對哦 ~ 你真聰明 ~ 情況就是這樣 , 所以我們要在這句程式碼上面 , 再加一句 : Worksheets("Invoice").Activate

當程式碼在執行 PrintOut 之前 , 就會先把 invoice 頁面轉成使用中的狀態 , 那麼 , ActiveSheet.PrintOut 就不再有問題了 ~

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

Private Sub CommandButton1_Click()

Worksheets("Summary").Range("A3").Select
ActiveCell.End(xlDown).Select
LastRec = ActiveCell.Row

Worksheets("Summary").Range("H3").Select
ActiveCell.End(xlDown).Select
LastRec2 = ActiveCell.Row

For PrintLoop = LastRec2 + 1 To LastRec

If Worksheets("Summary").Range("H" & PrintLoop).Value = "" And Worksheets("Summary").Range("I" & PrintLoop).Value = "" Then Worksheets("Invoice").Range("A2").Value = Worksheets("Summary").Range("A" & PrintLoop).Value

Worksheets("Invoice").Activate
ActiveSheet.PrintOut from:=1, To:=1, copies:=1

Next PrintLoop

End Sub

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

你的程式碼應該跟我的都一樣吧 ~ 當你第一次測試執行之後 , 又會發現 , 操作頁面停留在 invoice 頁面 , 對使用者做成不便哦 ~

簡單嘛 ~ 在 End Sub 上面再加一句 : Worksheets("Summary").Activate

行了 ~ 什麼都行了 ~ 呵呵呵呵呵 ~

好了 ~ 這次的分享又要告一段落了 ~ 下一次拿什麼對實際工作有用的東西來寫好呢 ~ 還未想到哦 ~ 有空的話 , 你告訴我你想知道什麼吧 ~ 哈哈 ~

下一次再見囉 ~

懶人計劃 2 - 自動製作文件進化版 PART 05 - 動起來吧 ~

~ 上傳‧分享‧網賺 ~

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

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

~ 聲明事項 ~

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

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

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

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

如果你有看清楚上一次 , 我在文章中所提到的習題提示 , 那你就應該明白到 , 要做到我們想要的 " 符合條件 " 只需要把程式碼修改一下就可以了 ~

上一次的程式碼 :

if Worksheets("Summary").Range("H??").value ="Y" and worksheets("Summary").Range("I??").value <>""

這句程式碼當中 , 意思是當 H?? 的值是 Y 而且 I?? 的值不是空格就做 , 但是 , 這個應該是程式完成後 , 電腦幫我們增加上去的記錄來的 , H?? 是記錄 " 已打印 " , I?? 是記錄 " 打印日期 " , 那很明顯 , 這是程式執行完之後 , 電腦要增加的操作記錄來的 .

現在想一下 , 我們要的條件是 H?? 是空格 , I?? 是沒有東西 , 那麼 , 程式碼的修改就應該變成這個樣子

if Worksheets("Summary").Range("H??").value ="" and worksheets("Summary").Range("I??").value =""

很簡單的 , 就是當 H?? 和 I?? 都是空格 , 那就執行程式吧 ~ 情況就是這麼簡單了 ~

因為這次的進化版是利用上一個板本的數據記錄作測試的 , 所以 , 我們的記錄當中 , 現在有的記錄都是已經打印的 , 那我們在測試之前 , 就先把其中的幾個記錄的 " 已打印 " 和 " 打印日期 " 修改一下 , 成為 Y 和日期 .


( Pic5_1 )

好 , 現在來確認一下 , 我們到底要做些什麼 ~

1.) 要電腦尋找有多少個記錄

2.) 有多少個記錄需要打印

第一個要求實在是太簡單了 ~ 之前的都有教過怎樣解決嘛 ~

看一看上面的圖 , 假設格式不再改變 , 就按這個樣子來做程式 , 那麼 A3 到 I3 的儲存格就肯定是不動的 , 而且 , 每做一個記錄 , 都會有 記錄編號 ( REF# ) , 那就用最簡單和直接的方法 , 用 A 來數一數吧 ~

好 ~ 來吧 ~ 看看我們的程式碼 ~

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

Worksheets("Summary").Range("A3").Select
ActiveCell.End(xlDown).Select
LastRec = ActiveCell.Row

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

好 ~ 這三句程式碼已經做到我們的要求了 , 找到最後一個記錄在第幾列之後 , 再利用變數 " LastRec " 來記錄 ~ 再來就是第二件事 " 有多少個記錄需要打印 "

這個要先想一下 , 到底要怎樣做 , 如果你真的有用心看 , 只要變通一下就可以了 ~ 當打印之後 , 我們會要求電腦去把那個 " 已打印 " 和 " 打印日期 " 加上對應資料 , 所以 , 已經打印的記錄在 H?? 的儲存格內 , 都必定會有一個 Y 字 , 未打印的當然就沒有了 ~ ( 這句是廢話 ~ 呵 ~ )

到這裡 , 又是發揮我們修改程式的能力的時候 , 把上面的三句程式碼修改成 :

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

Worksheets("Summary").Range("H3").Select
ActiveCell.End(xlDown).Select
LastRec2 = ActiveCell.Row

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

今次利用了 LastRec2 這個變數來記錄最後一個已打印的位置 , LastRec2 的結果應該是 5 來的 , 如果你要問我為什麼 , 我說哦 ~ 你要看看我之前寫的初學者編哦 ~ 我不想再解釋呢 ~ 打字很累人 ~ 呵呵 ~

現在 LastRec 和 LastRec2 的記錄分別會是 7 和 5 , 7 是最後一個列 , 5 是已打印的最後一個列 , 所以 , 要打印的記錄其實就是 LastRec2 + 1 到 LastRec 這段距離 ~ ( 這裡我不說為什麼了 ~ 自己想想哦 ~ 哈 ~ )

好 , 這次的目的我們是要直接地把上次做出來的程式升級 , 所以 , 我們就不修改 invoice 頁面 , 而且還要好好的利用它 ~

懶人計劃 1 中的設計 , 你應該都明白程式的運作原理了吧 ~ 就是在 invoice 頁面輸入對應的記錄編號就打印出來 , 那這次我們就利用程式 , 來修改 invoice 頁面當中 , 儲存格 A2 的值 .

嗯 ~ 文章好像太長了 ~ 分成兩段吧 ~ 哈哈 ~

順道騙一個頁面展示量 ~ 哈哈哈哈 ~ 這次真的沒廢話哦 ~ 會不會有點不習慣 XD

懶人計劃 2 - 自動製作文件進化版 PART 04 - 尋找條件 if then else ~

~ 上傳‧分享‧網賺 ~

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

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

~ 聲明事項 ~

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

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

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

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

大家好嗎 ~ 這一回要開始寫程式囉 ~~~

如果大家有想過上一次我給你的提示 , 那這一章在開始之前 , 你應該也嘗試過自己動手做了 ~

最初學習的時候 , 我有給你說過 , 其實電腦也很笨的 , 你不叫它做 , 它就什麼也不做 , 你要它做 , 它就什麼也會做 , 只是你要先告訴它怎樣做 . 所以 , 我們第一件要做的事情 , 就是要利用程式碼 , 告訴電腦要怎樣做 .

第一 , 上次我們增加了 " 已打印 " 和 " 打印日期 " 這兩個東西 , 這兩個東西的資料 , 理論上來說是電腦加上去的 , 看的也只是電腦 , 不是使用者 .


( Pic4_1 )

按照上一回所說的條件 , 和之前的準備功夫 , 第一件要做好的事 , 就是要告訴電腦 , 條件在那裡 .

看一看上面的圖 , " 已打印 " 和 " 打印日期 " 分別是 "H" 和 "I" , 條件的位置已經知道了 , 之後我們來想一想上次給的提示 : 如果 xxx 成立 , 就進行 xxx , 否則就進行 xxx . 英文是 if ~ then ~ else . 也就是說 : 如果 " 已打印 " 的值出現 "Y" , " 打印日期 " 有記錄 , 那就不用打印 . 兩個都沒有記錄的話就要打印 .

條件有了 , 尋找的方法都有了 , 那麼 , 現在就開始動手把 VBA 程式做出來吧 ~

在懶人計劃 1 的時候 , 大家應該明白到如何讓電腦分辨出條件是否成立吧 , 今次 , 我們的第一個任務 , 就是教電腦怎樣才是條件成立 . 上面有說過 , 今次的衡量條件是 , 只要記錄 " 已打印 " 和 " 打印日期 " 都沒有資料 , 就給我把文件打印出來 . 就是這麼簡單 , 如果我們要告訴電腦 , 請你記得一件事情 : 電腦是很笨的 !

對 , 就是要你抓住它的手 , 一步一步的教它向前走 . 有沒有發覺 , 你用幾千塊買了一台高頻低能回來 ?? 哈 ~ 當然 , 程式完成後 , 它就不是高頻低能 , 而是終於有點實用價值 ~

好吧 ~ 廢話又太多了 ~ 來 , 開始吧 ~

確定條件成立的方法 :

if Worksheets("Summary").Range("H??").value ="Y" and worksheets("Summary").Range("I??").value <>""

簡單地解釋一下這句是什麼東西 , 如果 SUMMARY 頁面的 H?? 的值是 Y 和 SUMMARY 頁面的 I?? 不是空白 .

開始明白了吧 ~ 配合一下之前說過的 , IF 之後是 THEN 之後是 ELSE ( IF ~ THEN ~ ELSE ~ ) , 這次 , 我們只需要用到 IF ~ THEN ~ 就可以了 . 不過 , 由於條件多於一個 , 所以 , 中間多了一個 AND , 目的就是要告訴電腦 , 要多條件成立的情況下才做 .

等等 ! 上面說的是不是有問題 ?? H 是記錄 " 是否已打印 " , I 是記錄 " 打印日期 " , 那麼 , 上面的程式碼不就是廢話了嗎 ?

呵呵呵 ~ 當然囉 ~ 我可不會便宜你的 ~ 你要懶嘛 ~ 就要自己學會技術哦 ~ 哈哈哈哈哈 ~

習題 !!!!

上面的是例子 , 你要做的 , 就是寫一句當 " 已打印 " 沒有記錄 , " 打印日期 " 又沒有記錄的程式碼 . ( 只要你細心地想一下就會想到了 , 其實是很簡單的 XD )

下一回 , 我們就跟上次的懶人計劃 1 一樣 , 不廢話 ( 又是小一點吧 ~ 哈哈 ~ ) , 直接來寫程式 , 然後 , 就再一次把你每天都在重複中步驟一次過消滅 ~ 讚美吧 ~~~~~~~~

哈 ~~~ 利路亞 ~~~ 哈 ~~~ 利路亞 ~~~ 哈利路亞 ~~~ 哈利路亞 ~~~ 哈利 ~~~~ 路亞 ~~~

懶人計劃 2 - 自動製作文件進化版 PART 03 - 條件成立就做 ~

~ 上傳‧分享‧網賺 ~

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

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

~ 聲明事項 ~

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

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

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

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

我又來了哦 ~ 有沒有想我 !? 哈哈 ~ 快 ~ 給我說一說你對我寫的 EXCEL VBA 教學 有什麼感覺 ~~ 沒有 !? 有沒有搞錯 ~ 那寫一句到此一遊吧 ~ 等我知道有你來過 ~ 呵呵 ~

好 ! 廢話完畢 , 開始 !

上一次準備的東西快給我找出來 ~ 快 ~ 我可不等你了哦 ~ 呵呵 ~

直接開始吧 ~ 在 SUMMARY 頁面的按鈕點兩次 , 進入程式編寫的畫面 ~

進入之後 , 先停一下 ~

別急嘛 ~ 呵呵呵 ~

要我分享我這兩年的鑽研成果 , 起碼都要給我拍一拍掌了吧 XD ( 廢話病又來了 ~ 哈 ~ )

記得我在引言中有提過的一個重點嗎 ?? 就是 " 符合條件就做 !! " , 對吧 , 對於條件這個東西 , 如果你看過了我寫的 VBA 教學 , 應該也開始明白這個是什麼意思了 , 這次我們要做的 , 就是要電腦去找那些符合條件的記錄出來 , 再進行相關的工作 , 而我們 ( 即使用者 ) 就只需要按一個按鈕就可以了 .

在懶人計劃 1 中的條件是由使用者輸入 " 開始 " 和 " 結束 " , 來確定程式的執行次數 , 再利用 VBA 變更 INVOICE 頁面儲存格 A2 的值 , 使 INVOICE 頁面的 VLOOKUP 的尋找條件改變 , 從而做到我們想要的效果 .

而今次的懶人計劃 2 中 , 我們將會把條件的設定為新加上去的 " 已打印 " 和 " 打印日期 " , 如果打印了就在 " 已打印 " 的那個部份加上一個 "Y" 作為記號 , 再加上打印日期 , 如果要電腦去把單子打印出來 , 就必須要符合 " 已打印 " 的部份沒有 "Y" 字 , 和 " 打印日期 " 沒有東西 , 打印完成的話就在 " 已打印 " 的那個部份加上一個 "Y" 作為記號 , 再加上打印日期 .

現在只要你細心地理解一下 , 就會發現 :

1.) 要打印的 : 在 " 已打印 " 和 " 打印日期 " 這兩個部份 , 儲存格必要條須要是空白的 .

2.) 當須要打印的記錄被打印之後 : 在 " 已打印 " 和 " 打印日期 " 這兩個部份分別加上 "Y" 和 日期記錄

3.) 不用打印的 : 在 " 已打印 " 的儲存格中會有一個 "Y" 字作為記號 , " 打印日期 " 也會有東西的 .

當條件 1 成立 , 就會進行步驟 2 , 步驟 2 完成後 , 就會使條件 3 成立 , 明白嗎 ?? 沒有搞亂了吧 ~ 呵呵呵 ~

好了 , 現在我們要做的就是要先把之前準備好和想像出來的東西實踐 .

先處理一下之前的舊有記錄 ( 你的檔案應該是之前已經做好的吧 , 所以之前已經打印了的就全部都用你的雙手加上一個 "Y" 和日期 )


( Pic3_1 )

現在我們要想一下 , 到底程式要怎樣寫才能做到 : 先檢查條件 , 條件成立就做 .

這次的題目可能比較困難一點 , 給你一點提示吧 ~ 如果 xxx 成立 , 就進行 xxx , 否則就進行 xxx . 英文是 if ~ then ~ else

呵呵呵 ~ 提示很明顯了吧 ~ 先想一想 , 下一回就開始寫程式 ~

懶人計劃 2 - 自動製作文件進化版 PART 02 - 增加新項目

~ 上傳‧分享‧網賺 ~

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

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

~ 聲明事項 ~

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

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

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

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

記得上一次我教你們做出來的東西嗎 ?? 有沒有試過修改 ?? 哈哈 ~ 不可能沒有吧 , 對不對 , 沒有的話根本就沒可能應用在你的日常工作哦 ~

我在寫這些 EXCEL - VBA 教學的時候 , 很多時都有提過程式的運作速度問題 , 程式的運作速度關係到工作效率的提升 , 和你有多少時間去偷懶 , 所以我們在每一次寫程式的時候 , 都必須要記得 , 不要用太多重複的程式碼 , 免得程式在運作的時候 , 做太多沒意義的動作 .

另一個提升運作速度的方法就是要使用者的操作步驟再減少一點 , 我們在 懶人計劃 1 中的程式 , 其實程式的多餘步驟已經沒什麼了 , 所以今次要做的 , 就是想個辦法把使用者要做的操作步驟再一次進一步減少 .

首先 , 為保安全 , 先把你做出來的那個檔拷一份 , 用複製出來的檔來做今次的實驗吧 ~


( Pic2_1 )
現在 , 加入兩列 , 再加上一個按鈕 .

這一次的按鈕要加在 SUMMARY 頁面 , 為的是要方便使用者 , 當然 , 你也可以把 INVOICE 頁面的 " 開始 " 和 " 結束 " 等的東西都轉過來 , 不過我今次要教你的是用另一種方法 , 把使用者的操作步驟再次減少 .

之前的程式今次應該就沒什麼用途了 , 等一下我們再處理 INVOICE 頁面的問題吧 ~ 呵呵 ~

好 , 加了一個按鈕之後 , 現在在總價的後面 , 加兩個東西 . " 已打印 " 和 " 打印日期 "


( Pic2_2 )

這兩個東西是今次進化版的重點 , ok 了嗎 ??

好 , 我們又再繼續我們的偉大建築 ~

先休息一下 , 下一回再來 ~ 啊哈哈哈哈 ~~~

懶人計劃 2 - 自動製作文件進化版 PART 01 - 引言

~ 上傳‧分享‧網賺 ~

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

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

~ 聲明事項 ~

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

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

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

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

在開始這一章之前 , 請你先確定 , 你已經搞定了 懶人計劃 1 的教學 , 因為這次是 懶人計劃 1 的進化版 , 如果你還未搞清楚的話 , 我怕你會不知道我在說什麼 ~ 哈哈 ~

如果你成功完成了屬於自己的一個 自動製作文件 的程式 ( 按照我所說的來做吧 ~ 哈哈 ~ ) , 那麼你可能已經想到了一個問題 , 為什麼這個程式還會有進化版 ?? 不是已經很好了嗎 ??

的確 , 對於第一次做到這個效果的你 , 可能已經感到滿足了 , 不過我要告訴你 , 因為我在很久之前已經做到了 ( 大概都有五到六年了吧 ~ ) , 所以這個自動製作文件的程式 , 對我來說 , 已經不能滿足我的要求和欲望了 , 我要的是更加懶 , 更加不用思考的程式 , 最好就是多按一個 REF# 也不用 . 什麼開始結束的 , 我通通都不要 ~

有了這樣的一個訴求 , 我的懶惰性格又開始產生作用了 ~~ 一定要想出一個方法 , 要電腦自己幫我把我要打印的東西都找出來打印 , 不用我告訴它 , 情況就要接近 AI .

進化版的目的 :

1. ) 我的操作步驟越少越好 !! 要比之前再少一點 ~

2. ) 程式運作越快越好 !!

3. ) 我可以再抽多點時間偷偷睡一睡更好 !!

那到底要怎樣做呢 !? 我們可以怎樣做呢 ?? 答案就只有一個 ~~~~~~~

符合條件就做 !!

對於 符合條件就做 這句話 , 如果你看過我之前所寫的十多篇教所謂的教學文 , 你就應該會發現 , 其實我經常都有強調這一點的 , 不過 , 今次我們要做的 , 是比之前的更奇怪 , 要電腦幫我製造所需要的條件和不需要的條件 ~

嗯 , 好像有點讓人搞糊塗了的感覺 , 我再解釋得清楚一點 , 就是要電腦去找出符合條件的東西來做事 , 做完了做加一個記號 , 讓該記錄符合不需要考慮的條件 , 藉此提高程式運作速度 .

你可能會在想 , 為什麼要不停地強調提高程式運作速度 ?? 好煩耶 ~

其實有一個很簡單的重點吧 ~ 只要程式運作速度越快 , 就代表你會有更多的時間來偷懶 ~ 哈哈 ~ 這個符合我的要求呢 ~ 再加上 , 如果程式運作速度慢 , 倒不如自己動手做了 ~ 要這個程式來幹嘛 ~ 對不 ? 就正如我在最初的時候有說過 , 如果 VBA 只能做到 +-*/ 這四個東西 , 那我用一台計數機就做不到呢 !? 肯定比 VBA 還要快呢 ~

所以提高程式運作速度是很重要的一個課題 , 現在我教你們做的 , 都只不過是一個簡單的 , 而且是單一功能的東西吧 ~ 往後 , 我們會向著更多功能的 VBA 著手玩一玩呢 ~ 想一想 , 如果功能越來越多 , 工作又越來越多 , 但是程式的執行速度一天慢過一天 , 我看你到時候是一邊哭 , 一邊自己動手做了 ~ 還有可能會跑過來怪我亂教人呢 ~ 哈哈 ~

給你說一下我的往事 , 我做過一個自動統計的報表出來 ( 嗯 , 應該是很多吧 ~ 呵呵 ~ ) , 第一次做出來的那個程式 , 統計大概三千條記錄好像是十五分鐘左右 ( 一方面是電腦太慢 , 另一方面是程式設計很不濟 ) , 由於每次做統計都要分我十多分鐘的時間 , 如果晚上跟朋友有約會就肯定會遲到了 ~ 所以我對於那個程式非常的不滿意 , 但是做一個新的所需要的時間並不是泡一個方便麵的時間 , 所以嘛 , 只好一邊忍耐一邊做一個新的 .

最後肯定是進化版本比第一個版本的運作速度提高了啦 ~ 數據量多了一倍 , 但是運作時間只是原來的三分之一 , 呵呵 ~ 那時候我真的樂透了 ~ 真的真的樂透了 ~ 哈哈 ~ 這個設計到今天還在使用 , 當然了 , 懂得使用的就只有我 , 我都沒有教人用的 ~ 哈哈 ~ 這是我懶惰的秘密哦 ~ 別給我說出去 ~ 哈 ~ 程式只要稍為做一點改動 , 或者做好一點 , 我就多了十分鐘來偷懶了 ~ 哈哈 ~ ( 難聽點是偷懶 , 動聽點是提高工作效率 XD 老闆會喜歡這句哦 XD )

當然 ~ 我並不期望現在還是初學的你會跟我一樣 , 對程式速度會太過執著 , 但是當你的程式功能一天多過一天 , 很快你就會發現問題在不知不覺間出現了 , 而且到時候是被迫把程式運作時間推快了 ~ 這是很正常的事情呢 ~

所以今次這個進化版的目的 , 就是要教你學會怎樣去把速度提高 ~ 來吧 ~ 跟我一起加速 !! ( 我在 BT 嗎 !? )