統計是一個很繁雜的工作,Excel制表過程也是一個十分困難是事件,如何用一種簡單的辦法讓統計更有高效呢!辦法是有的,通過VBA可大大地将數據有規律地組合起來。
本節介紹如何利用VBA對數據表的統計,顯示和打印操作。
上圖為要進行數據統計的工作表,也可以自己定義工作表。
下圖為統計工作表,利用VBA編碼來對工作表進行數據管理,按不同字段進行一個數據統計,然後自動生成下表。
實現這個過程我們使用了下面的功能窗口,此窗口設置了一些控件,根據這些控件,可以實現選擇,計算,打印等操作。
本窗體中是将統計的數據表結果進行一個合理化顯示,也可以選擇不同年份來進行統計,然後自動将統計結果顯示出來,這樣,我們就是不必要在工作表中進行操作,直接在這裡查看就達到統計的目的了。
下面我們了解一下重點代碼,如果沒有代碼,統計就是一個很麻煩的事情,不僅要對工作表進行選擇還要在表中查找不同的統計項目。
主程序:
Public Sub xCount(sYear As String)
ReMonth sYear '刷新月統計
ReMachine sYear '刷新設備統計
ReUnit sYear '單元統計
ReIsTrue sYear '完成率統計
End Sub
很簡單,主程序分别調用四個過程,也就是要進行統計的四個項目。
設備統計過程:ReMachine()
打印效果,下圖為最終打印結果,可以清楚地看到,數據表統計完成後的樣子。
這樣就得到了一份完整的統計結果。
實際在操作中,隻需要點幾點鼠标,至少數據是如何被計算的,根本不用去管,這就是辦公自動化的一大優點。
把人從複雜的勞動當中解脫出來。
代碼當中,我們運用了數組操作方式,遍曆方法,單元格Range的操作方法,還運用了一個Application.WorksheetFunction.Sum()函數,對統計進行求和。
整體思路就是要對單元格定位,然後取值,再求和計算。
有興趣可實踐操作一下,本示例是設備維護管理當中的一個小分支,統計頁的制作。
完整的設備維護管理功能在視頻裡可查找觀看。
歡迎關注、收藏
---END---
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!