信息增刪改查系統-VBA實現效果

本期，小編將通過一個很全面的實例-信息增刪改查系統，來帶大家熟悉VBA編程。相信，只要你掌握了這個實例，基本上就掌握了70%的VBA知識，剩下的就只是查查資料的事情，從此不再害怕VBA編程。

為了讓大家清楚該實例的功能，先看一下操作的動態演示吧：

信息增刪改查系統，功能操作演示

OK，看完了動態演示，相信大家想知道如何通過VBA代碼的方式實現的吧，其實套路很簡單。

1. 準備工作 - 界面創建

界面搭建

插入工號文本框，命名為EmplNo，請記住這個控件名稱，因為VBA代碼中會通過控件名稱獲取該文本框輸入之

插入查詢，保存，刪除 按鈕，并且指定各自按鈕的單擊事件。單擊事件，指的是當某個按鈕在點擊的時候，需要系統自動執行的代碼。例如，我們指定了各自按鈕單擊時，執行的事件分別為：查詢_Click(), 保存_Click(),刪除_Click()。

關于表格，自己可以畫，就略過了。

接下來，就是介紹一下，如何在查詢_Click(), 保存_Click(),刪除_Click()三個事件方法中，添磚加瓦。

2. 代碼具體實現

VBA-查詢

查詢_Click()：

獲取員工號文本框[EmplNo]的值，然后去[員工考核信息表2]Sheet中的第一列查找EmplNo的值。查到的話，將所處行號賦予全局變量[destCurRow]，并調用[findi]方法；找不到的話，提示信息："not found!"。

findi():

從[員工考核信息表2]Sheet中，獲取行號為全局變量[destCurRow]，列號為1，2，3，4的單元格的值，分別賦予[員工考核信息新增修改查詢刪除2]Sheet中的A6, B6, C6, D6單元格。

VBA-保存

保存_Click()：

在[員工考核信息新增修改查詢刪除2]Sheet中，從第六行開始循環讀取。

在循環體內，將讀取的行號賦給變量[sourceCurRow]，直到單元格(sourceCurRow, 1)為空白單元格的時候，即表格內員工為空的時候退出循環。

在循環體內，根據員工去[員工考核信息表2]Sheet中的第一列查找。找不到的話，在[員工考核信息表2]Sheet最后一行下面新增一條數據；找的到的話，更新[員工考核信息表2]Sheet中對應的數據。

VBA-刪除

先詢問用戶是否確認刪除，如果確認的話，就刪除；如果拒絕的話，就不刪除。

3. 代碼調試

通過代碼調試，有助于幫助你清楚的知道每一行代碼的作用，請看下面的代碼調試的演示：

VBA-代碼調試

4. 代碼如何寫，如何查資料：

很多人會問，這些代碼都是怎么查到的，要我寫的話，我根本就不會啊。這里有幾種方法查VBA的資料：百度，Excel VBA官方幫助，通過錄制宏探析代碼。這里主要介紹一下第二種方式，如下圖：

VBA幫助

Alt+F11打開VBA代碼編輯器后，點幫助進來后，可以搜索關鍵字搜索想要查詢的方法含義。

通過多接觸實例，自己可以將實例中用到的代碼片段，根據功能實現點，按照關鍵字總結歸納在云筆記中，供以后參閱。例如本例中，有幾個功能點：單元格讀取，插入，單元格查詢，循環