No.1 任務管理
任務管理是生產過程中的一個很重要的管理過程。
在大量的維修任務需要分派的時候，系統的任務管理就帶給我們，很方便的操作。
也會使得在工作當中不會變得一團亂麻，而且，任務越多，效率越高。
下面介紹一下任務管理過程，如何利用vba代碼來構建一個過程方法。
首先要製作一個任務表，信息有任務名稱、任務時間、執行人、設備、單元名稱、遺留問題等等欄位。
內容根據不同的工作需求而定。
可參考下圖製作自己的任務記錄表。
No.2 發布任務
通過上圖，可看到，所有的欄位列表也顯示在發布任務操作頁裡了。
這裡用到自動獲取欄位功能，所以無論什麼表都可以提取欄位。
功能簡單，通過對不同內容添加，可添加相應內容。
下圖為後臺製作效果，似乎看不到什麼內容，運行後會自動獲取。
No.3任務查詢
很顯然，發布後的任務，要隨時查看進度。是否完成，是否取消等等。
這個查詢還沒有完成，由於Listview對象的使用兼容性不好，正在考慮是否利用另一種方法來表現。
任務驗收和統計是對發布後的任務進行的操作。
驗收就是說任務完成或未完成的操作，這裡要對任務進行一個確定性操作。
所以，這也是後續統計的一個變量。
驗收過程不是很難，只需要對任務狀況進行一下修改。
任務統計是一個最終的輸出，我們可以對任務統計結果進行分析之後，得到一個宏觀的結果。
也就是說可以直觀地了解到，哪些任務是比較頻繁地在處理，哪些任務不經常出現。
這樣對生產過程也能起到一個綜合判斷的結果。
No.4代碼
任務信息發布代碼
Private Sub SaveWork()Dim n As Long '定義欄位數Dim R As Range, s As WorksheetSet s = ThisWorkbook.Worksheets("check")n = s.Range("AX1").End(xlToLeft).ColumnDim arrVReDim arrV(0 To n)s.ActivateSet R = s.Range("A1")Dim i As LongDim frText As ObjectFor Each frText In Me.Frame1.ControlsIf TypeName(frText) = "TextBox" ThenFor i = 0 To nIf frText.Name = R.Offset(0, i).Value ThenarrV(i) = frText.ValueEnd IfNext iEnd IfNext frTextDim vR As Range, ro As Longro = s.Range("B65535").End(xlUp).RowSet R = R.Offset(ro, 0).Resize(1, n)R = arrVEnd Sub
由於代碼量大，這裡貼出一個簡單的任務信息保存的代碼，配合相應的表進行。
今後會完善這個功能，以使整個任務管理過程基本實現可視化效果。
歡迎關注、收藏