作者t8810039 (琦)
看板Visual_Basic
标题[VBA ] 近期写EXCEL VBA心得及程式被同事看
时间Fri Oct 9 12:15:07 2015
[VBA ] 近期写EXCEL VBA心得及程式被同事看
因主管交代一项工作 每天汇入资料到EXCEL後,执行主管写的很繁复的操作指引
也就是一大堆的 表切换 复制 贴上 及贴上值 调整栏高 排序
判断字串及日期 加以删除等等
我第一次看着做 完全做不下去 快发疯
一开始发现有录制巨集功能
後来不够用 上网找指令
终於找到了 下面两个
Range(Cells(AdjustColumnEnd, StartColumn), Cells(AdjustColumnEnd,
EndColumn)).Select
ActiveWorkbook.Worksheets("清单").Sort.SortFields.Add Key:=Range("L2:L" &
lastrowA) _
, SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
因巨集没有设密码及隐藏,程式差不多写好时,某日下午
瞄到同事似乎印出了我的程式,还拿萤光笔画重点
为了确认,到印表机一看,果然还放了一张印有我的程式的A4纸
对於同事行为 我觉得很不爽
之後有次他还跟我说 我那程式是用录巨集的
明明很多地方不能录巨集 要写程式的 被他这样讲
我和他一个互轮 一人做一星期
我现在用程式巨集就可以做好主管交代的excel
他约要花一小时 且因是手动做 我检查到他常出错
巨集现在已设密码及隐藏
且该同事因诸多原因 与我交恶中
但我已没有要和他斗的心态了
先打到这
也谢谢Range(Cells.Cells).Select
的指令也是在版上找到的
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.136.121.65
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1444364110.A.7F6.html
※ 编辑: t8810039 (223.136.121.65), 10/09/2015 12:17:01
1F：推 troylee: 其实大家分享一下如何有效率的完成工作 对团队比较好10/09 21:08
2F：→ troylee: 事事都留一手对谁都没好处 毕竟上班时间写的东西10/09 21:09
3F：→ troylee: 都算是公司的财产 不是员工的10/09 21:09
4F：→ t8810039: 之前line跟他说有兴趣来问我，不来问。10/10 15
5F：→ t8810039: 最早我在写的时候，跟我说，不用去写程式，主管没说要写10/10 15:14
6F：→ t8810039: 程式。10/10 15:14
7F：→ t8810039: 不过，谢谢你的意见。10/10 15:15
※ 编辑: t8810039 (223.136.121.67), 10/10/2015 16:32:11
※ 编辑: t8810039 (223.136.121.65), 10/10/2015 19:26:34
※ 编辑: t8810039 (223.136.121.65), 10/10/2015 19:26:48
8F：→ gundan: 你可以去跟主管讲你做了这个，至少功劳不会先被抢走 10/12 21:05
9F：推 mraaa: 去跟主管讲+1。说不定主管觉得你的方法好，自己做就可以， 10/13 02:21
10F：→ mraaa: 让你再去替别人做些简化流程的工作。你就会慢慢变得不可取 10/13 02:21
11F：→ mraaa: 代！ 10/13 02:21
12F：推 Falagar: 楼上让人吓一跳.....不可取......................代! 10/13 23:22
13F：推 mraaa: XDD....正好就被切掉了！ 10/14 05:39
14F：推 alice78226: 就大方分享吧!有很大的可能性是你给他看他也看不懂！ 10/14 17:03
15F：推 johnpage: 感觉不是分享问题，而且对方不礼貌惹恼楼主 10/15 06:27
16F：→ johnpage: 其实程式给他看应该没问题 10/15 06:28
17F：→ johnpage: 除了公司要卖钱的程式，其他我都是公共给其他人copy 10/15 06:30
谢谢大家回应
上面有提 之前LINE跟同事说对我写的程式有兴趣 来问我
他完全没回应我 然後之後把程式印出来 还画重点
後来跑来跟我说 什麽我程式用巨集录的
我说你贬低我程式 不可能完全录巨集
我有写程式 他才说什麽跟我道歉
觉得同事幼稚又目中无人
另外再强调一次 当初我花时间写 他就跟我说 不用去写程式啊 主管没叫我写
那现在他种种的行为 算什麽?不是叫我不用写吗?
好在我当时没受他影向 坚持写程式
另再次强调 同事看操作指引叫 做出来的常常有问题
例如一个或数个步骤漏做
老实说也不怕他学 这同事无法静下心写程式的
也静不下心去学
※ 编辑: t8810039 (61.228.37.130), 10/17/2015 10:03:28
18F：推 gundan: 其实真的不用管他 他对你的职涯一点影响都没有 10/23 20:02
19F：→ gundan: 就大方分享出来 然後给你的老板知道吧 10/23 20:03
哈哈 谢谢gundan给的建议 那我会分享出来
好像也真的是对职涯一点影响都没有
其实我也喜欢上了在工作时间写程式 相对於做一些杂事 及开会啦 人际关系
只是那时心中会CARE这同事没礼貌
有关於让主管知道:
在我认为程式写完时 就已经由程式来执行
但後来 与同事手动做的比对 有些大小错误 也就是捉到了BUG
後来程式陆续有修改
所以有段时期制作出来的EXCEL是有些问题的
理论上现在也可花时间 用没有BUG的程式重新产生EXCEL
若我现在和主管说我开发了这个程式 之前有段时期做出来的EXCEL是有些问题的
这好像不好跟主管说
但我觉得是必要之恶 开发程式期间都会有BUG~
※ 编辑: t8810039 (61.228.37.210), 10/23/2015 21:57:03
20F：→ makeabomb: 自己程式自己写 11/04 09:48
21F：→ t8810039: ? 11/05 13:41
22F：→ m9556: 给你一个方向~用增益集~程式放在自己电脑,资料没有程式 11/08 21:46
23F：→ m9556: 就算你用密码锁~用openoffice一样看光光~ 11/08 21:48
24F：→ t8810039: 谢谢，结果同事调别组了。 11/12 19:28
25F：→ t8810039: 及同事因健检 视网膜破损，请假就医。 11/14 10:17