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

行了 ~ 什么都行了 ~ 呵呵呵呵呵 ~

好了 ~ 这次的分享又要告一段落了 ~ 下一次拿什么对实际工作有用的东西来写好呢 ~ 还未想到哦 ~ 有空的话 , 你告诉我你想知道什么吧 ~ 哈哈 ~

下一次再见啰 ~