Part15 - VBA 学习第十四回 - 不同的解决方法 ( 简体 )

~ 上傳‧分享‧網賺 ~

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

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

~ 声明事项 ~

如各位想把以下本文章转贴 , 请记得要注明出处.

本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.

由于图片制作需时, 所以更新会比较慢.

存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.

呵呵呵 ~ 你好吗 ~ 头有痛吗 ~ 哈哈 ~ 又来到给你答案的时候了哦 ~ 看好了 ~


( Pic15_1 )

如果你想出了上面的一堆程序代码 , 就足以证明你真的用心尝试过了 , 不过我想跟你说 , 有时候 , 在我们编写程序时所遇到的问题 , 解决方法不一定只有一个的 , 我们应该要向着小一点的程序代码来想 , 如果想出了一个成功解决问题而且程序代码比较少的 , 我们都应该要采用 , 因为这样才可以加快程序的运作时间 , 如果你的程序功能很庞大而且复杂 , 你就更加要想出一切可能的方法 , 选一个最好的 .


( Pic15_2 )

正如上面程序代码 , 这是有同样功能但是只需要一句程序代码的解决方法 , 先解释一下 , Worksheets("Sheet1").Range(Cells(LastRec + 1, 1), Cells(LastRec + 1, 11)).Value = "" 这句程序代码内 , Range 的部份很奇怪吧 , 为什么会有 Cells 这个字的 , 其实 Cells 就是指储存格了 , Cells(LastRec + 1, 1) LastRec + 1 就是我们要的列 , 后面的 1 是指行 "A" , 如果是 2 的话就是指行 "B" 了 , 嘿嘿嘿 ~ 很有趣吧 ~ 哈哈 ~ 一句程序代码就可以代替了十多句的程序代码哦 ~

你一定要记住 , 当你所认识到的指命越来越多的时候 , 你就一定要学会变通 , 使用最少的程序代码来做最多的事情 , 这样你的程序就一定可以跑得更快 , 使用者还会送你一句 " 利害 ~ " 哈哈哈 ~~~

哦 ~ 对了 ~ 忘了告诉你 , 记得要在 模块 DataEntry 内的 Sub Entry() 的 FIRST: 部份加回启动 AddRecord 的程序代码哦 ~


( Pic15_3 )

下面多了一句程序代码 ?? 自己想想有什么用吧 ~ 没用的我就不放在这里噜 ~ 嘿嘿嘿 ~ 之前有说过的 XD

下一回 , 我们就来一个总结吧 ~ 还有要告诉你一些在使用 EXCEL - VBA 时 , 你必须要知道的限制 ~ 下一回再见噜 ~ 88 ~