前面介紹了如何做任務發布。
本節介紹任務管理過程中的查詢和驗收功能。
相對對發布來說,查詢和驗收是一個過程當中必不可少的工作。
想要在管理當中及時了解發布任務的工作情況,就要時刻跟進任務的處理進度。
任務查詢
使用方法為,選擇任務名稱,然後任務代碼會自動篩選出來,然後選擇任務代碼。
單擊查詢按鈕,本任務的信息就顯示到下面文本框裡了。
後臺代碼通過對發布任務表進行處理,找出任務代碼的的條目。
其執行過程交給計算機來操作,我們只要對任務進行一個仔細檢查就可以。
至於,要修改任務,接下來再進行編碼。
任務驗收
通過對任務進行完成後的一些操作,本任務就完成了。
如下圖:
驗收通過修改任務信息表中的完成時間,確認人和任務狀態來確定任務完成情況。
表單中應用了一個ListBox對象來對未進行任務確認的信息進行選擇。
通過對任務表的選擇遍歷,把未完成的任務加載到ListBox對象裡,這個方法還是很友好的。
比起ListView可能不太可能出現找不到控制項的問題。
相關代碼
確認驗收按鈕代碼
Private Sub CommandButton8_Click()Dim C3 As String, C4 As StringC3 = VBA.Trim(Me.ComboBox3.Value)C4 = VBA.Trim(Me.ComboBox4.Value)Dim V As StringV = VBA.Trim(Me.ListBox1.List(Me.ListBox1.ListIndex, 1))If VBA.Len(V) = 0 Or VBA.Len(C3) = 0 Or VBA.Len(C4) = 0 Then Exit SubDim s As WorksheetSet s = ThisWorkbook.Worksheets("check")s.ActivateDim r As Range, vR As Range, ro As Longro = s.Range("C65535").End(xlUp).rowSet vR = s.Range("C2:C" & ro)Set r = vR.Find(V)If Not r Is Nothing Thens.Range("K" & r.row).Value = C3s.Range("I" & r.row).Value = C4s.Range("G" & r.row).Value = "已完成"MsgBox "驗收成功「, vbInformation, "提示"ThisWorkbook.SaveEnd IfEnd Sub
代碼的使用,多種方法,通過不同的實現過程,可以得到不同的代碼體驗。
ListBox
下面主要介紹一下ListBox一些設置
With Me.ListBox1.Clear.Top = 20.Width = Me.Frame3.Width - 40.Height = 260.ColumnCount = 7'共有7列.ColumnHeads = True.ColumnWidths = "120,60,80,90"For Each Rx In rIf VBA.Trim(Rx.Value) <> "已完成" Then.AddItem Rx.Offset(0, -5).Value '添加一條list.List(i, 1) = Rx.Offset(0, -4).Value '添加第1列數據.List(i, 2) = Rx.Offset(0, -2).Value '添加第2列數據.List(i, 3) = Rx.Offset(0, -1).Value'添加第3列數據.List(i, 4) = Rx.Offset(0, 3).Value.List(i, 5) = Rx.Offset(0, 5).Value.List(i, 6) = Rx.Value '添加第6列數據i = i + 1End IfNext RxEnd With
ListBox添加一條信息使用AddItem(Item,Index)
其中Item為信息顯示的名稱,Index是索引號。
如果是多列List,就需要對ColumnCount進行設置,如本列中7,表示有7列。
ColumnWidths為各列的寬度,中間有」,「相隔。
ColumnHeads=True表示顯示標題欄,False隱藏。
重點要掌握一下list()
list(0,0)表示第一條信息第一列。
其中list(0,1)表示第一條信息的第2列,第1列為Additem添加的Item值。
第一條信息的第三列就用list(0,2)來表示。
第二條信息第2列用list(1,1)表示。
這個要特別記憶一下,通過實際操作,就對listbox的一些數據分布有了一個基本的了解。
本次編碼也顯得十分笨拙,不過在完成功能前提下,不要求什麼算法問題了。畢竟使用這個程序不需要太多的數據。
歡迎關注、收藏