懒人计划 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 ~

嗯 … 干嘛文章老是这么长的 … 是我的废话太多吗 ? 肯定不是了吧 ~ 是的话也不要告诉我 ~ 哈哈 ~

下一编再继续吧 ~ 等你好好地吸收一下 ~ 慢慢来 , 其实我也觉得这次的改版蛮复杂的 ~