[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一樣看光光~

謝謝，結果同事調別組了。及同事因健檢 視網膜破損，請假就醫。