懒人计划 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 吗 !? )