Part14 - VBA 学习第十三回 - 增加新记录 ( 简体 )

~ 上傳‧分享‧網賺 ~

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

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

~ 声明事项 ~

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

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

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

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

上一回的习作没有把你搞疯了吧 XD 哈哈 ~ 在学新的东东之前 , 先告诉你答案吧 ~


( Pic14_1 )

看到了吧 ~ 很简单的判断方法 , 如果没有输入对应的资料 , 那就显示一个讯息 , 和自动选择 A2 到 K2 所有的储存格 , 把数据删掉 ~ 呵呵呵 ~ 就是这么简单了 ~ 如果你想到了 , 那么我就有真心的祝福你 ~ 你自己开发的工具很快就可以诞生噜 ~ 不是现在的这一个哦 ~ 这只是练习来的 ~

好了 ~ 收拾一下心情 ~ 我们又要搞一个新的模块了 ~

这一次是放在 模块 AddRecord 里面的 , 名称就定义为 AddNewRecord 吧 ~ 上一次做出来的是在报表什么都没有的时候使用的 , 那么 , 如果现在已经出现了第一行记录 , 我们之前所编写的 FirstRecord 根本就不能应用在这里 , 因为 FirstRecord 是针对第二列 ( 就是第一个记录位置 ) 来计设的 , 如果我们就这样使用的话 , 一定会出问题的 , 所以我们要作出修改 .


( Pic14_2 )

由于第一个记录出现了之后才会使用到这个模块 , 所以我们就要利用 End(xlDown) 这个命令来配合我们的需要 . 首先我们要让程序选取 B1 的储存格 ( 为什么吗 ? 之前有说过的 ~ 想一想哦 ~ ) , 之后 , 利用 ActiveCell.End(xlDown).Select 这句程序代码 , 命令计算机找出最后一个有数据而又是 B 行的储存格 . 因为我们不会知道找出来的是 B 什么的储存格 , 但是我们必须要让计算机记住这个数值 , 所以 , 程序代码就出现了 LastRec = ActiveCell.Row , 利用 LastRec 这个变量 , 记录找到出来的储存格的 "列" 的值 .

之后 , 利用 Worksheets("Sheet1").Range("A" & LastRec + 1).Value = LastRec 这一句程序代码 , 使计算机自动在适当位置把应该要有的数值加上去 , 打个比喻 , 如果 LastRec 的值是 7 , 那么刚才的一句程序代码 , 就是要计算机在 储存格 "A" & 7 + 1 , 即储存格 A8 内的值变成 7 . 这里对于初学者来说会有点烦人 , 因为利用这个方法的话 , 很多时要很细心地去想清楚 , 什么时候要 +1 什么时候要 -1 还有什么时候不用更改 . 所以要好好的想清楚才加进程序代码 , 否则你一定会觉得烦死了 ~ XD

往下的一大段 , 和之前在做 FirstRecord 时没有什么分别 , 只是把原本指定了 A2 B2 的东西全部改过来 , 变成 "B" & LastRec + 1 等等 , 所以这里就不再作详细解释了 , 值得再说一遍的 , 是怎样利用 LastRec 等等的变量 , 使计算机按照我们的指示工作 , 紧记 , 如果要利用变量来取得不确定的数据位置 , 在使用时一定要先想清楚什么时候要加或者减 , 还有就是要紧记程序代码的编写方法 .Range("A" & LastRec ) , 假设你要在 "A" 这行使用 , 就要用 "" 给括住 , 再用 & 来告诉计算机后面的是变量 , 合起来才是我们想要的位置 .

嘿嘿嘿 ~ 呵呵呵 ~ 习题又来噜 ~~~~

这一之和上一次没什么分别 , 分别就在于这次的记录位置是一个不确定的数值 , 今次的比较麻 , 你就慢慢想一想吧 ~ 下一回 , 我再告诉你答案 , 先试试自己动脑筋想一想哦 ~ 否则你是学不会的 ~ 加油 ~ 加油 ~ 加油 ~

如果你上一次的习题搞定了 , 这一次都一定可以的 :) 今次的提示嘛 ... 嗯 ... 嗯 ... 嗯 ... 就记住 LastRec 吧 ~ 答案都差不多说出来了耶 ... ... ...