写一写新手的我两周来写vba的心得，并总结学的东西！更新代码！！很多很冗繁，求精简

sunsikaibox · 发表于 2012-8-13 19:30

本帖最后由 sunsikaibox 于 2012-8-14 17:46 编辑

今天，把完成的vba代码打印了出来，默认的字体大小，整整十页，看着它们，感慨万千，于是想写一下整个心路历程和学到的一点东西！
两周前，部门老大对我说：”咱部门这些大妈岁数都大了，天天手动一点一点处理数据有点累，眼睛也受不了，小孙，你弄个自动化的处理程序出来！解决这个问题！”
接到任务，诚惶诚恐！vba这玩意儿，从来没弄过，咋办？但是我有钻劲，我下决心一定要弄好！第一步，进excelhome论坛的vba区，开始我的代码学习生涯！
还记得认真仔细看的第一个帖子是（以后补上），我还把它打印出来，逐字逐句的阅读了好多遍！
手机打字太慢，老婆儿子霸占电脑，没办法，明天上班再写吧！

AVEL · 发表于 2012-8-13 19:44

-_-||| 部门老大还真是轻松一句话忙死一群人啊。目前就忙死你一个。。

sunsikaibox · 发表于 2012-8-13 20:06

学到的东西

选择打开电脑上任意地方的数据表的方法；

弹出下拉菜单，选择操作人员姓名  并把复合框的文本赋值给指定单元格

判断数据表中是否存在判断该表有效与否的两个标签表同时存在，任一个或者两个都不存在退出，同时存在进入下一步

把所需要的数据从指定的原表中复制到计算表的指定区域，只复制文本

计算表中的表格赋值所打开的源表的路径，另一表格赋值指定源表中的重要的单元格，并改变am  pm类的时间格式为24小时制的！！

带公式的数据行选择性粘贴文本到另一行！

根据计算表中的三个单元格条件判断使用计算表中的4个不同的计算标签表！使用对的计算后，激活对应表，复制

根据单元格中记录的源表路径文本，判断如果包含关键字“某某”，就打开结果表中含有“某某”字的标签页，把刚才的计算结果复制到最后一个非空单元格的下一行！
保存结果表，并退出结果表！中间关闭屏幕更新，关闭警告信息！

中间flag  msgbox许多次人机对话框！

其他的继续补充，具体的实现方式我一一补上，新人可以借鉴一二，高手可以来指点一二，我本人可以巩固一二，一箭三个雕何乐而不为？？

sunsikaibox · 发表于 2012-8-13 20:16

由于代码写在公司内网，我会重新打一遍，复制到这上面，加上注释，逐步说明！同时也请高人优化一下！！！

LMY123 · 发表于 2012-8-13 21:33

期待着楼主的代码和附件。{:soso_e163:}

〖天→晓】 · 发表于 2012-8-13 21:54

哇塞。。。。楼主你这么厉害啊。。。。2周就能写出10页纸的代码啊。。。佩服佩服

sunsikaibox · 发表于 2012-8-14 09:46

上班不自由，写贴子就只能空闲的时候弄一点！十页是没问题的，呵呵，待会把十页打印出来的纸拍个照传上来，没办法，代码是在公司内网里写的，不能马上传上来，等我一个一个的再重新打在电脑上，再重新做一次整个工作，就把附件和代码全弄上来！万恶的迂腐的公司内网制度，让我做任何事情都要弄两遍！！！

sunsikaibox · 发表于 2012-8-14 09:51

当然，期间也问了很多问题，感谢论坛的各位的帮助，才有今天的小小成果，感谢各位！

wxglyhn · 发表于 2012-8-14 10:43

学习精神可佳

sunsikaibox · 发表于 2012-8-14 17:47

本帖最后由 sunsikaibox 于 2012-8-15 09:36 编辑

具体拒绝了看看据统计

		自动登录	找回密码
密码			免费注册