員工信息管理,VBA編程一步一步製作-01

2021-01-09 江覓易見

員工信息管理在企業或公司裡面是一個基本管理項目。

如果是一個小型公司或企業，完全可以用Excel來進行管理，畢竟人員流動不算太頻繁，管理流程也較簡單。

下面我們對整個管理流程及VBA實現過程進行一個整體介紹。

No.1

員工管理系統：

主要功能包括機構管理、信息錄入、批量處理、查詢輸出、工資管理、系統管理、職務管理等。

本篇主要介紹功能有員工信息錄入和機構管理兩個模塊。

信息錄入是整個員工管理的入口，除了一些設置外，這裡就是對人員信息管理的起步階段。

包含了一個人的基本信息內容，有些做了預設處理，如編號、性別、學歷、職務等。

顯示控制項大多以代碼自動生成，根據數據表欄位變化，也以任意擴展，所以普遍適用性比較強。

表單大小也隨欄位變化而自動調整。

No.2

職務管理很簡單，單獨拿來定義一個表進行處理。

只有三個欄位序號、部門編號和部門。

表單內有添加、修改、刪除三個常用功能。

可以對數據表進行增刪改操作，調試完全通過。

根據本示例可擴展對其它表操作。

No.3

下面重點介紹代碼實現

添加ListBox控制項代碼

Dim lobj as objectSet lobj = Me.Controls.Add("Forms.ListBox.1")'添加ListBox控制項With lobj.Top = tobj.Top + tobj.Height + 10.Width = Me.Width - 50.Left = 20.Height = Me.Height - .Top - 150.ColumnCount =3.ColumnHeads = True.BackColor = RGB(111, 222, 112).BorderStyle = fmBorderStyleSingleWith .Font.Size = 11.Name = "微軟雅黑"End With.RowSource = R.Offset(1, 0).Resize(R.Rows.Count, R.Columns.Count).AddressEnd With

由於ListView控制項實在不太友好，所以本次對數據表的顯示應用ListBox控制項來製作，希望對於不同的Excel版本有更加適用性。

添加ListBox方法就是下面這一句：

Me.Controls.Add("Forms.ListBox.1")

Me 代表當前窗體變量，也可以寫作如下代碼：

ThisWorkbook.VBProject.VBComponents ("FormName")

其中FormName是當前窗體名。

添加Label控制項

Me.Controls.Add("Forms.Label.1")

添加TextBox控制項

Me.Controls.Add("Forms.TextBox.1")

方法雷同，主要是添加類型要寫正確。

信息錄入按鈕代碼

Private Sub SaveInof()Dim cObj As Object, cArr, x As LongReDim cArr(0)For Each cObj In Me.Controls'遍歷窗體控制項If TypeName(cObj) = "ComboBox" Or TypeName(cObj) = "TextBox" Then'如果是ComboBox或TextBox控制項就進行保存If VBA.Len(VBA.Trim(cObj.Value)) = 0 Then MsgBox cObj.Name & "：不能是空值！": Exit SubIf x = 0 ThencArr(x) = "=row()-2"ElseReDim Preserve cArr(x)cArr(x) = cObj.ValueEnd Ifx = x + 1End IfNext cObjDim inS As Worksheet, ir As Long, cr As Long, inR As RangeSet inS = SetAcsheet(Sinfo)inS.Activateir = GetRow(inS, 1) + 1cr = GetColumn(inS, 2)Set R = inS.Range(inS.Cells(ir, 1), inS.Cells(ir, cr))'定義輸入表格區域R.Value = cArr'添加信息End Sub

以上代碼是對員工信息錄入表單進行的一個數據保存代碼，要配合相應的表單進行處理，所以不要直接拿來用，會報錯，如果喜歡可以對程序代碼做一些相應的修改後再應用。

接下來會繼續做其它功能。

歡迎關注、收藏

相關焦點

  • 員工信息管理,VBA編程介紹,這樣做讓你工作更輕鬆-02
    No.1繼續做員工信息管理，本節主要有兩個功能，一批量處理，二個人信息查詢。做此兩個功能著實費了些心思。根據不同的表進行了一個查詢、找出、顯示功能。另外還增加了圖片導入導出功能。這裡需要用到Chart的一些圖片導入導出。
  • Excel vba編程製作,職工檔案管理
    檔案管理在公司管理當中是一項最基本的工作內容，無論公司大小都將會涉及到員工檔案管理。由於檔案涉及個人隱私，所以具有很高的隱秘性，所以在管理當中十分注意權限分配。新建檔案檔案建立分為新建和調入兩個部分，一個是本單位新建員工的檔案信息，另一個是從其它單位入職來的員工將原工作單位調來的檔案。新建檔案裡面列出了員工信息需要添加的內容，基本上是個人的一些相關信息。
  • excel VBA是什麼?VBA編程入門教程
    本篇將介紹excel vba是什麼？vba編程入門教程，有興趣的朋友可以了解一下！一、excel vba是什麼？VBA的英文全稱是Visual Basic for Applications，是一門標準的宏語言。VBA語言不能單獨運行，只能被office軟體（如：Word、Excel等）所調用。
  • 維修任務管理,vba編程如何構建任務管理過程
    No.1 任務管理任務管理是生產過程中的一個很重要的管理過程。在大量的維修任務需要分派的時候，系統的任務管理就帶給我們，很方便的操作。也會使得在工作當中不會變得一團亂麻，而且，任務越多，效率越高。下面介紹一下任務管理過程，如何利用vba代碼來構建一個過程方法。首先要製作一個任務表，信息有任務名稱、任務時間、執行人、設備、單元名稱、遺留問題等等欄位。內容根據不同的工作需求而定。可參考下圖製作自己的任務記錄表。No.2 發布任務通過上圖，可看到，所有的欄位列表也顯示在發布任務操作頁裡了。
  • vba編程,如何找出計算機ID,磁碟空間信息,一個函數的事情
    NO.1vba編程中，有時候需要獲取計算機系統信息，比如計算機名稱、ID、磁碟容量、磁碟類型等等，那麼如何來實現這個功能呢?下面講一下，關於獲取本地信息的一個簡單方法。還有一個功能就是列出本地硬碟的存儲信息，也就是存儲空間大小。實現這個功能首先是對註冊表進行了一翻查找，找到相關信息後再和計算機屬性對比了一下。然後利用GetObject函數調出對應數據，顯示到表格內。其過程有點麻煩，實現最終結果卻毫無波瀾。
  • VBA編程理論學習之談
    No.1 掌握對象方法和屬性VBA編程是一個即學即用的過程，幾乎不可能全面掌握所有對象的代碼，也不可能記住所有的對象屬性。所以，在實際應用中遇到哪些對象就對應去掌握這些對象的方法和屬性就可以，不需要完全學習。既浪費時間又沒有意義。
  • 圖書借閱用Excel vba管理,讓你輕鬆借書還書
    這篇文章將對圖書借閱一些基本操作，做一個過程管理。其中以Excel為軟體基礎平臺來製作，主要以vba代碼編程來對表格進行操作。管理首頁簡單設置添加書籍、借書、還書和設置四個功能模塊。當然，還設置了借書金額管理，既然借書就會產生費用。借書和還書功能都已經通過測試。添加圖書新增書籍入口，這裡是書籍的一些基本信息。添加信息是一個很費時費力的工作，而且還不能出錯。
  • 如何替換單元格內容,vba代碼幫你一步解決
    可以看到上圖，有一個按鈕控制項，一個文本框控制項，下面是個人信息表 。單擊按鈕執行查找姓名，並更改為文本框內容。這處把所有的姓名全改為文本框內容了，為了更好地表達編程意圖，這麼做也了，當然，在實際應用中只能改一個。實際上這個功能是查找B3單元格內容，然後把和B3姓名相同的全更改為文本框內容。
  • 系統思維在Excel vba編程中的思考
    文：江覓易見編程首先要考慮的問題是需求，正因為需求的存在，所以要做編程的工作，然後要分析需求以及實現需求而實施的方式方法，最終輸出需求結果。這是整個編程中要考慮的內容，也是解決需求的一般過程。系統思維的建立有助於編程思想的提高和理解需求的應用場景，進而對編程實施有一個全面而有效的方法布置。系統三要素：元素、關係、功能引用到Excel vba編程中。
  • 如何進行合同管理,Excel vba 輕鬆解決
    合同管理在公司運營過程中是一個很常見的工作內容。隨著公司交易次數增加，合同數量也會逐漸增加，各種不同的合同管理就顯得十分必要了。介紹一種合同管理方法，當然了，是一些最基本的Excel方法，主要利用vba代碼實現合同管理的一種工作方式。
  • VBA編程,如何插入刪除字符,一定要收藏
    具體內容可查看下圖：No.2下圖為例，對字符對象和屬性進行了一個編程學習。Characters既是一個屬性又是一個對象。作為Range對象的一個屬性，可以返回Characters對象。DeleteStr()Dim s As WorksheetSet s = ThisWorkbook.ActiveSheetDim r As Range, i As Integeri = 2Set r = s.Range("B3")With r.Offset(i, 0).Characters(1, .Characters.Count).DeleteEnd WithEnd Sub字符是最基本的信息單元
  • 一步一步安裝linux下samba共享文件伺服器實例，親測完美實現
    如下圖：u啟動溫馨提示："Syslinux"這一項選擇很重要，網絡上流傳的很多關於此類的教程由於都忽略了這一步，導致最終製作失敗。製作完成後需要修改下面兩個cfg文件裡面的label，（isolinux/syslinux.cfg文件和\efi\boot\grub.cfg）讓其和U盤名稱一致，這樣下一步安裝的時候才確定能找到安裝文件位置（這一步非常重要，否則無法啟動U盤安裝）。
  • Address屬性介紹,vba編程學習基礎知識
    No.1Address是Range對象的一個重要屬性，而用好這個屬性也是學習vba編程一個必修課。本章介紹關於Address的一些參數功能，對於全面了解和學習Range地址尋址方面十分必要。Address英譯為地址。
  • 工作中為什麼有必要學點VBA
    作者 l 濤哥來源 l 三壽的腦細胞授權轉載 l itker011001寫在前面VBA全稱是指Visual Basic for Applications，它是一個來自Microsoft的事件驅動的程式語言
  • OpenFlow下一步該怎麼走?
    OpenFlow下一步該怎麼走? 隨著SDN市場的逐漸成熟，ONF正在採取多種步驟繼續培育和加速數據網絡的這場革命。 作者：寧飛虹來源：it168網站|2017-01-18 12:16 隨著SDN實踐案例的擴展，OpenFlow
  • Excel vba 利用定義名稱實現用戶登錄功能
    文/江覓易見在vba 中實現用戶登錄，並對登錄用戶進行身份識別，然後對用戶進行分組管理，此類功能值得進一步思考。這裡介紹一種方法，利用Excel中的名稱管理來進行身份識別，起到用戶登錄次數以及增減用戶的功能。
  • Excel製作二維碼生成器,會vba就是不一般
    二維碼生成器，想必不陌生，用Excel vba 可以很好地生成二維碼。在一些信息記錄過程當中，也有一些實際的用處。下面介紹一下如何用vba代碼生成二維碼。下面看下效果圖左側是生成的二維碼，右側是一個文本框，輸入要二維碼存儲的信息。
  • 蘋果手機製作鈴聲,其實僅需一步
    今天，PHONE大師就在這裡為大家推薦一種製作蘋果手機鈴聲的簡單辦法。　　簡單到什麼程度呢？就需要一步即可。　　當然，大師兄說的一步不包含你下載軟體的部分哦。　　不過今天我們要使用的軟體也很容易能下載到，而且都是免費使用的軟體。　　軟體：itunes和iTools。
  • 無需VBA代碼,巧用錄製宏,30秒製作一個Excel高級查詢小程序
    很多時候，我們需要對表格數據進行查詢，如果每次進行篩選的話，操作不方便，我們可以製作一個簡易的查詢小系統，輕鬆的查詢想要的數據，秒變大神，製作的效果如下所示：即可以進行某個條件的查詢數據，比如，輸入你想要搜索的關鍵詞，員工小喬，點擊查詢即可查詢出小喬的信息，也可以進行多個條件滿足的同時查詢
  • VBA編程如何輸入輸出字符集,兩函數要掌握
    如何輸入字符，在vba編程過程中是一個基本常識。本節主要介紹一下，字符集對應的數值，以及如何輸入字符。很顯然，函數Chr即可輸出相應數值的字符。