[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
的指令也是在版上找到的

其实大家分享一下如何有效率的完成工作 对团队比较好事事都留一手对谁都没好处 毕竟上班时间写的东西都算是公司的财产 不是员工的

之前line跟他说有兴趣来问我，不来问。最早我在写的时候，跟我说，不用去写程式，主管没说要写程式。不过，谢谢你的意见。

你可以去跟主管讲你做了这个，至少功劳不会先被抢走

去跟主管讲+1。说不定主管觉得你的方法好，自己做就可以，让你再去替别人做些简化流程的工作。你就会慢慢变得不可取代！

楼上让人吓一跳.....不可取......................代!

XDD....正好就被切掉了！

就大方分享吧!有很大的可能性是妳给他看他也看不懂！

感觉不是分享问题，而且对方不礼貌惹恼楼主其实程式给他看应该没问题除了公司要卖钱的程式，其他我都是公共给其他人copy

其实真的不用管他 他对你的职涯一点影响都没有就大方分享出来 然后给你的老板知道吧

自己程式自己写

?

给你一个方向~用增益集~程式放在自己电脑,资料没有程式就算你用密码锁~用openoffice一样看光光~

谢谢，结果同事调别组了。及同事因健检 视网膜破损，请假就医。