作者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/m.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