你可知道，對於職場人士來講，什麼最折磨人？
對於30來歲的職場人來講，你的雄辯之才、圓通之道，真是無人能敵。
可讓你報個年報，報個日報，摳摳嗖嗖一天整理不完。
總是以任務多，困難多為藉口。
其實，報個表就像跟人講話一樣，一樣存在邏輯關係。
恰當使用編程技術，可助你完成瑣碎的報表任務。
今後，你不僅口才了得，報表展示，你樣樣精通。
真的是，不升你升誰。
編程，這個技術，一通百通。
你只要知道大致原理，瞭解一些基本結構，
相信，隨著你的深入瞭解，你遲早會綻放。
可是，你C#，VB.NET，JAVA，C語言，C++，PHP，Python……
這些編程語言你全都不會，能玩嗎？
答案是可以的，上述語言，必須得安裝軟件。
而我今天給你講的這個編程語言，是VBA。
只要你有office，不必下載任何插件，你通過編寫指定代碼。
幫你批量完成轉換任務，何樂而不為。
office2013-2019，都可以通過alt+f11打開編輯器進行編碼。
這真的是學會打字（編碼）享用一生。
給你舉個栗子：
2020年，培訓部門主管需要手下6個培訓師。
每人報一個2020年培訓計劃。
收上來的表格是這樣的：
思路講解
你新畫一個表格，左手右手畫個圈，表格出來以後。
你就從頭數吧，1,2,3,4,1,2,3,4。
第一行就是11,12,13,14。
第二行就是21,22,23,24。
第三行只有一個格，就是31。
要把這些數據填到excel表格裡。
你就需要按照圖例對應好關係。
還無防備的你，還就打算用crtl+C,ctrl+V複製黏貼到天荒地老。
- Dim wap As Object ' # 聲明word程序
- Dim wdc As Object ' # 聲明word文檔
- Dim tbl As Object ' # 聲明word表格
我在excel代碼編輯器裡跨軟件操控word，我就需要引用word對象。
我給大家演示一下後期綁定。
後期綁定雖然慢點，但是它不用配置參數。
把需要用到的 word程序、文檔、表格，
你都需要大聲叫一聲，我聲明一下，我要使用它們。
- Dim i, t, s As Integer, arr(1 To 200, 1 To 5) ' # 聲明循環變量、數組
- Dim ph$, fl$ ' # 聲明路徑、文件
像這些個循環變量，和路徑、文件變量都是喜聞樂見的了。
實例化階段
- If wap Is Nothing Then
- Set wap = CreateObject("Word.Application")
- Else
- Set wap = GetObject(, "Word.Application")
- End If
- wap.Visible = True ' # 窗口可見
這不，我就先判定一下是否存在word程序
存在，我就GetObject鎖定它，
不存在，我就CreateObject創建它。
想讓它出來見見人，我就true它。
因篇幅有限，下節繼續講。
閱讀更多 編程助力職場 的文章
