接到隔離點任務的第一時間我給在外出差的老公打了電話,他說“去!肯定要去!你是黨員,在關鍵時刻就要發揮作用!”他,比我還要堅定!
在來之前,我很從容淡定,心想只是換個地方上班而已,但來的第一天就給我們一個下馬威,工作人員及隔離人員核酸取樣、接收隔離人員、解離隔離人員,都碰一塊了,據說是近幾日工作量最大的一天。作為醫務組組長,我不僅要熟練掌握這些基本工作流程,還要完成一些日常的工作,電腦桌面排列的整整齊齊的檔案夾和各種表格,工作交接時,我記了滿滿一頁A4紙。這一天我們從早上8點報到忙到晚上11點多才算停下來,很累,但很安心!
轉眼我們的工作結束了,這21天我們早已適應了任務隨時來,晚上幾點睡覺都有可能,凌晨也會被叫醒,總之,要時刻準備著!這21天,我和我的戰友們互相陪伴、鼓勵、安慰,家人不在,我們勝似家人,也很感謝三個點位長給我們工作的支援!願疫情早日散去,每一個在外奮戰不能回家的人,都能早日與家人團聚!
任何事物都在變化之中。宇宙在變,社會在變,人也在變……
我的家鄉也在變,而且越變越美,越變越可愛。
家鄉的路變了。原來的黃泥路,晴天走在上面一身灰塵,雨天走在上面一身汙泥……現在好了,我的家鄉通了硬化路,外面的商品運進來了,山裡的梨果竹木資源運出去了,家家買了摩托車、有的人家還買了大車跑運輸,不久,我們建寧還要通高速公路、鐵路呢。
家鄉的山變了。過去的荒山、茅草山變成了一片片翠綠的果山、竹山、杉林。這些山不僅好看,而且給農民帶來了好收入,春天挖筍、夏天摘梨、冬天砍竹……那山成了農民家裡的金山、銀山了。
家鄉人民的生活變了。現在村裡人都富了。家家戶戶都蓋起了新房子,而且都買了彩電,看上了數字電視,有的還裝了寬頻,可以在網上賣梨子、賣蓮子了,很多農民伯伯買了手機,上山下田穝有打。現在很多農民犁田可以用鐵牛,插秧用上了插秧機,收割時用上了收割機,實現了機械化了……
家鄉的這些鉅變,說到底是黨和國家的富民政策帶來的,是改革開放的好政策帶來的。展望未來,家鄉會變得更美好。
1. 使用 VBA 的前提:
Excel 要儲存成 格式
2. 應用 VBA 的原因:
滿是公式的 Excel 表格不注意刪除一兩個公式就會毀掉整個心血。
不想把自己辛辛苦苦整理好的 EXCEL 帶著公式一起發給別人,做了好久的公式,就這樣被別人輕鬆拿到。用了 VBA ,點選 F5 執行完公式,檔案另存為 格式再發給別人,他得到的就只是一堆資料而已。沒有任何加工痕跡,你的思路也不會被竊取。
節約時間。我雖然不是財務部門的,但是每個月也是處理很多相同的資料。或者是把很多相同模板的資料歸集到一個總表。雖然可以一個個的複製,但是太浪費時間了。所以我就寫了一個程式碼,把收到的所有EXCEL 放到一個資料夾,再建立一個總表,執行程式碼,將所有 excel 複製到總表中。我的 excel 有 20 幾個,平均每個 1MB 。不到 30秒就彙總進總表中,而且每個 sheet 的名字也編好了。
總而言之,你覺得想學點什麼打發時間 + 每個月還是有些資料需要歸集 + 不想把自己辛辛苦苦寫了好久的公式和 EXCEL 一起發給別人。學習 VBA還是一個不錯的選擇。
3. VBA 規則
Alt F11 開啟 VBA 編輯器
立即視窗,本地視窗,工具條都可以在工具欄找到。立即視窗可以按住滑鼠左鍵拖出來使用,也可以雙擊左鍵鑲嵌到 VBA 編輯器中。
F8除錯,就是一行一行的過。如果你寫了好幾個模組,除錯的時候總是跳到其他模組,點一下“工具欄第二行的小方塊”,就在一把三角板的左面。這個小方塊也是從頭除錯的意思。
F5 執行
4. VBA 編寫
--- 開頭第一句:
Sub 程式碼名稱
Private sub worksheet_change 這種 worksheet 的只能編輯到 sheet 裡。不能寫在模組裡。雙擊sheet1 ,直接在裡面寫,就可以執行。
--- 對變數進行定義:
Integer, string, range, worksheet, workbook
--- 單元格表示方法: cells, range ,
A1 單元格表示方法:
[a1] / [A1]
Cells(1,1)
Cells(1, “ A ” )/cells(1, ” a ” )
Range( “ a1 ” ) / range( “ A1 ” )
A1~B5 區域表示方法:
[A1:B5] /[a1:b5]
Range( “ a1:b5 ” ) /range( “ a1 ” , ” b5 ” ) / range ( “ a1:b ” &5)
--- 工作表 & 工作簿表示方法:
Sheet1 : VBA 專案欄對應的 Sheet1
Sheets(1)/ worksheets(1): excel 中第一個 sheet
Sheets( “工作表名字” )
Workbook1/ workbooks(1) /workbooks( “ ” ) 此處千萬不要忘記 !!!
--- 常用邏輯
If … /else(else if ) … /end if
迴圈 for … to … /next
迴圈 for each … /next
迴圈 do until loop
迴圈 do while loop
--- 常用跳過錯誤語句
layalerts=false (false 語句基本在第二行程式碼就用, true 在倒數第二行用 )
On error resume next( 你覺得哪條語句需要跳過錯誤就在它的後面寫一句 )
放上我自己編的例子,大家一起進步!網站有的例子我就不放了。放自己寫的,希望能幫上別人的。
1. excel 開機密碼。 5 次錯誤自動關閉
2. 隱藏所有工作表( =1 是取消隱藏)
3. 單元格變顏色
4. VBA change 函式的使用方法。之前一直在模組裡面編程式碼,不能執行,不能除錯。百度了好久終於找到原因了。就是 Worksheet開頭的不管是 Change 還是 selectionchange, 一定要在 sheet 下面編輯!!!雙擊 sheet(黃色部分),開始寫程式碼。既能除錯又能執行。