任務管理過程,vba編程解決查詢和任務確認

2021-01-11 江覓易見

前面介紹了如何做任務發布。

本節介紹任務管理過程中的查詢和驗收功能。

相對對發布來說,查詢和驗收是一個過程當中必不可少的工作。

想要在管理當中及時了解發布任務的工作情況,就要時刻跟進任務的處理進度。

任務查詢

使用方法為,選擇任務名稱,然後任務代碼會自動篩選出來,然後選擇任務代碼。

單擊查詢按鈕,本任務的信息就顯示到下面文本框裡了。

後臺代碼通過對發布任務表進行處理,找出任務代碼的的條目。

其執行過程交給計算機來操作,我們只要對任務進行一個仔細檢查就可以。

至於,要修改任務,接下來再進行編碼。

任務驗收

通過對任務進行完成後的一些操作,本任務就完成了。

如下圖:

驗收通過修改任務信息表中的完成時間,確認人和任務狀態來確定任務完成情況。

表單中應用了一個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的一些數據分布有了一個基本的了解。

本次編碼也顯得十分笨拙,不過在完成功能前提下,不要求什麼算法問題了。畢竟使用這個程序不需要太多的數據。

歡迎關注、收藏

相關焦點

  • 全能招聘訓練系列7:時間管理和任務管理
    時間管理和任務管理在我看來,招聘同營銷的結合,最貼切的方式是同項目營銷相結合。招聘工作者不能視為一個獨立的銷售人員,因為我們承擔的責任遠遠大於一個銷售承載的責任。因為對於工作成效更不易量化的職能崗位來說,在日常的時間管理中,遵從概念理論行事,方能讓自己從容不迫,使得工作過程有記錄,工作結果的成因好查詢。如果還有朋友對這些概念不了解,那就趕緊去惡補一下,能對你的日常工作,有比較標準的指導意義。
  • VBA編程如何輸入輸出字符集,兩函數要掌握
    如何輸入字符,在vba編程過程中是一個基本常識。本節主要介紹一下,字符集對應的數值,以及如何輸入字符。很顯然,函數Chr即可輸出相應數值的字符。如 :Asc("Asc") 返回數值65字符掌握比較簡單,主要是對常用的字符進行一下記憶,其它不常用的需要的時候查詢對應表格即可以。
  • 工作中為什麼有必要學點VBA
    從office97開始,VBA作為MS的標準內置配置,彌補了excel內在的基本函數不足以支持的複雜計算,提供了一種相對輕量級的、所見即所得的解決方案,濤哥在21世紀初因內部工作需要(統計代碼行數記工作量)第一次接觸了VBA,並在以後的工作中多次出色的完成相關任務,甚至給濤嫂編的幾個小程序大大提升了她們的工作效率,還受到了時任行長的讚許,現在想來還歷歷在目。
  • OneNote日程管理—什麼是時間流和任務流?
    即「頻率派」和「貝葉斯派」。兩個對概率的不同的認識導致了後續具體處理方式上的顯著差異。 可惜,行文至此,就此打住,本文並不是講數據分析的。 但多少引出了一個基本事實。即:即便面對相同的問題,不同的切入思路,處理起來就會導致不同的結果。
  • 第二條 (村委會的性質和任務)
    【釋義】本條是關於村委會的性質、自治內容、自治方式和主要任務的規定。        一、村委會是農村基層群眾性自治組織        村民委員會是在人民公社進行政社分開、建立鄉政權的過程中,在全國農村逐步建立起來的。農村實行家庭承包經營等責任制形式後,對以三級所有隊為基礎的人民公社體制進行改革。
  • 如何將Excel數據表單元格保存為數組,VBA數組進階應用
    No.1在vba編程中,數組應用是一個十分有用的方法。如何把數據表作為數組進行處理,是編程過程中的一個重要技能。學會之後,將大大提高編程技術,也將使數據處理的過程變得更加流暢。No.2上圖為例,把表格內容作為數組值進行保存,然後通過流程編碼對成績進行一個比較判斷,最終得出一個成績等級的判定。
  • 常用的機器人編程方法
    運用示教學習編程+遷移學習的方法,通過人手拖動機器人實現快速的示教學習編程學會指定的任務,通過遷移學習實現不同任務之間的編程經驗遷移,實現基於經驗遷移的機器人編程。首先建立模具的CAD模型,以及機器人和模具之間的幾何位置關係,然後根據特定的工藝進行軌跡規劃和離線編程仿真,確認無誤後下載到機器人控制中執行,實踐證明取得了較好的效果。
  • 我國最新深空探測任務—嫦娥七號和小行星探測任務
    國家航天局等七部門7月29日發布《關於開展嫦娥七號和小行星探測科普試驗載荷創意設計徵集活動的通知》,通知顯示,探月工程四期嫦娥七號任務和行星探測重大工程小行星探測任務正在啟動實施。現在其體積尚未完全確認,其長度可能是40到100米。彗星133P是一顆周期彗星,它的軌道位於火星和木星之間的小行星帶,於1979年被發現。
  • 微軟開源 Quantum Katas,領先的量子編程解決方案
    據外媒報導,微軟近日推出了一套先進的量子編程解決方案,讓編程人員可以更好地學習量子計算及其相關的 Q# 程式語言。
  • 你在使用四象限時間任務管理工具嗎?
    大家在工作或生活過程中,有沒有時常遇到如下場景:(1)事情很多,永遠處理不完(2)每件事都很緊急,但每件事都沒有做好(3)不懂得拒絕所以當你發現自己工作活生活很亂的時候,其實是自己的時間管理出了問題,自己沒有管理好自己有個情景劇叫《亂了頭緒的經理人》,感興趣的朋友可以百度下,整個課程在指導我們如何使工作、生活變得更加有條理,主要有六個步驟:自我管理、制定計劃、確定先後次序、合理安排時間、管理他人、授權。
  • 堅持問題導向 強化過程控制 全力以赴完成全年目標任務
    他強調,相關地區和部門要堅持問題導向、突出問題導向,強化過程控制,進一步繃緊工作體系,咬定目標不放鬆,全力以赴完成全年目標任務。調度會上,相關地區和部門匯報了「重實幹、強執行、抓落實」專項行動、市政府工作報告任務分解落實、盤活存量土地攻堅、生活垃圾分類、農村人居環境整治和華晨寶馬新工廠建設等13項重點工作進展情況,現場解決存在的難點、堵點問題,對攻堅克難、高效推進工作的地區和部門給予表揚,對重點工作推進不力的地區和部門提出批評,要求限期整改。姜有為要求,各地區各部門要重點抓好以下工作。
  • PLC編程如何減少工作量?高手編程必須掌握的硬核知識
    PLC結構化編程是對應於典型的控制要求,將過程要求中的類似或相關的任務歸類,在功能或功能塊中編寫通用的程序塊,這些程序塊可以反覆被調用,以控制不同的目標,形成通用的解決方案。這些的通用的程序塊就稱為結構,利用各種結構組成程序就稱為結構化編程。可以通過不同的參數調用相同的功能或通過不同的背景數據塊調用相同的功能塊。
  • 為嫦娥五號任務的順利執行,默默耕耘有這樣一群北理工人
    在嫦娥五號探測器研製過程中,王勇負責軌道器和返回器的導航制導與控制分系統,主要完成了地月轉移、月地轉移、月球軌道交會對接和跳躍式再入返回等關鍵任務。在北理工的七年時間,我收穫頗多。非常感謝我的導師匡鏡明教授,他對科研嚴謹認真、堅持不懈的態度深深感染著我。在遇到困難時,我總能保持信心,堅持不懈找到解決問題的辦法。
  • 為什麼每一位工程師都應該學習分析和編程技能?
    因此,筆者強烈推薦非計算機科學工程師和專家們都去學習分析和編程技能,並且希望它同樣能給你們帶來一定幫助。「連接人類、技術,與商業。」作為一名工業和系統工程師,筆者的主要目標是將工程與管理聯繫起來,並且分析和改造其聯繫過程,或者創造全新的聯繫。
  • 彩虹小馬:和諧任務玩不了怎麼辦 彩虹小馬:和諧任務黑屏閃退解決...
    導讀:最新手遊彩虹小馬:和諧任務吸引了大批玩家進駐遊戲,有些玩家下載安裝遊戲之後會遇到閃退或者黑屏的一些小問題導致遊戲玩不了,都在問小編彩虹小馬:和諧任務玩不了怎麼辦,想知道這款遊戲黑屏閃退解決方法,今天小編就來說一下彩虹小馬:和諧任務黑屏閃退解決教程,教各位玩家遇到這款遊戲黑屏閃退的所有解決方法技巧以及
  • 檔案管理:檔案保管到底有多重要?它的具體任務是什麼?
    以及保管工作的任務是什麼?文尾也會告訴大家一個新型的方法,看完記得收藏,這裡是「案多星」話不多說。進入正題!可見,檔案的長久保存和利用的需求,成為了首要目標,隨即「檔案保管」工作出現。 專門對於各類型的檔案,進行維護。如果檔案保存不好,那麼後續的利用就是一個縹緲的事情, 所以保管工作是極其重要的!
  • 當領導交代任務的時候,該怎麼說讓領導耳目一新呢?
    在回答領導交代的任務時,注意從以下四點內容來回應,不僅讓領導耳目一新,還讓領導對你讚賞有加。01 學會確認關鍵信息和期望當領導給你布置一項任務,要學會在領取任務時複述領導所提到的具體性要求,同時明確其期望值是多少。
  • 無人機集群研究,不可不知的多無人機任務規劃設計
    目前出現的並行運算方法雖然可以暫且解決求解問題但是需要較寬的信道和大量的數據交換,這在飛行過程中是不容易做到的,並且在敵方區域內飛行時會增加暴露機率。因此,集中式控制方法對於較大的機群控制是不適用的,而集散式控制方法可以較好的解決此類問題。
  • 實驗室信息管理系統LIMS助力獸藥檢測業務管理
    (一)實驗室檢驗業務管理實驗室檢驗業務管理作為LIMS系統的核心功能之一,主要可實現:(1)業務預受理:委託單位送樣人員通過給定的帳號登錄系統,將單位信息、樣品信息等錄入到系統中,錄完並確認無誤後提交至質檢管理員確認。(2)業務預受理確認:質檢管理員核對客戶填寫的信息是否正確,確認無誤後提交並列印委託書供客戶確認籤字。
  • 自學編程必看!Python學習5點思路(內附思維導圖)
    越來越多的人,都想加入到編程的行業中。如果說你現在已經有了想學習編程的想法,那麼接下來我們就談談如何去學習編程。小會在這裡為大家提供一個Python學習思路:1、了解編程基礎概念首先要對計算機有個基本的認識,了解編程基礎概念及用編程解決現實問題的基本流程。