用VBA實現(xiàn)公司文檔資料管理

1、正確學會Excel VBA的16堂課用用VBA實現(xiàn)公司文檔資料管理實現(xiàn)公司文檔資料管理讀者信息管理文檔資料信息管理借閱信息管理讀者信息管理讀者信息管理 建立“讀者信息”工作表 讀者信息數(shù)據(jù)管理 1添加命令按鈕 2. 實現(xiàn)添加讀者的功能 3實現(xiàn)查詢讀者的功能 4實現(xiàn)刪除讀者的功能實現(xiàn)查詢讀者的功能實現(xiàn)查詢讀者的功能具體操作步驟如下：步驟1：在【開發(fā)工具】選項卡的“控件”選項組中，單擊【設(shè)計模式】按鈕 ，使添加的命令按鈕進入編輯狀態(tài)，雙擊【查詢讀者】按鈕進入該按鈕的代碼編輯窗口，在其中輸入查詢讀者功能的程序代碼。步驟2：在代碼輸入完畢后，單擊工具欄中的【退出設(shè)計模式】按鈕 ，使添加的命令按鈕退出編

2、輯狀態(tài)，關(guān)閉VBA代碼窗口返回“讀者信息”工作表中。如果在A3單元格中輸入一個存在的讀者編號，如“SM016”，單擊【查詢讀者】按鈕，即可彈出“找到了該讀者信息”的提示框，并將光標定位在已經(jīng)找到的讀者信息上，如圖12-19所示。實現(xiàn)查詢讀者的功能實現(xiàn)查詢讀者的功能具體操作步驟如下：步驟2：如果在A3單元格中輸入一個不存在的讀者編號，如“SM520”，單擊【查詢讀者】按鈕，即可彈出沒有查詢到符合條件的讀者信息提示框，如圖12-20所示。實現(xiàn)刪除讀者的功能實現(xiàn)刪除讀者的功能具體操作步驟如下：步驟1：在【開發(fā)工具】選項卡的“控件”選項組中單擊【設(shè)計模式】按鈕 ，使添加的命令按鈕進入編輯狀態(tài)，雙擊【刪

3、除讀者】按鈕，進入該命令按鈕的代碼編輯窗口，在其中輸入刪除讀者功能的程序代碼。步驟2：在代碼輸入完畢后，單擊工具欄中的【退出設(shè)計模式】按鈕 ，使添加的命令按鈕退出編輯狀態(tài)，關(guān)閉VBA代碼窗口返回“讀者信息”工作表中。步驟3：如果在A3單元格中輸入一個存在的讀者編號，如“SM012”，單擊【刪除讀者】按鈕，系統(tǒng)在刪除了讀者信息后會彈出“讀者信息已刪除”提示信息，并將光標定位在下一條讀者信息上，如圖12-21所示。單擊【確定】按鈕，即可將第3行記錄信息清空。實現(xiàn)刪除讀者的功能實現(xiàn)刪除讀者的功能具體操作步驟如下：步驟4：如果在A3單元格中輸入一個不存在的讀者編號，如“SM012”，然后單擊【刪除讀者

4、】按鈕，系統(tǒng)將自動彈出沒有該讀者信息，即無法刪除的提示信息，如圖12-22所示。文檔資料信息管理文檔資料信息管理 建立“文檔資料信息”工作表 文檔資料信息管理 1添加命令按鈕 2實現(xiàn)資料訂購功能 3實現(xiàn)資料查詢的功能 4實現(xiàn)刪除資料的功能實現(xiàn)資料訂購功能實現(xiàn)資料訂購功能具體的操作步驟如下：步驟1：在“文檔資料信息”工作表中按鈕的設(shè)計模式下雙擊添加的【訂購資料】按鈕，進入其代碼編輯窗口，在其中輸入實現(xiàn)訂購資料的功能代碼。步驟2：在代碼輸入完畢后，單擊工具欄中的【退出設(shè)計模式】按鈕 ，使添加的命令按鈕退出編輯狀態(tài)，關(guān)閉VBA代碼窗口返回“文檔資料信息”工作表，如果在B3單元格中輸入一個已經(jīng)存在的資

5、料名稱，如黑客攻防實戰(zhàn)解析，單擊【訂購資料】按鈕，即可彈出如圖12-30所示的提示信息。在中可以看出，系統(tǒng)會自動將光標定位在已經(jīng)找到的文檔資料信息所在行上，并完成其入庫時間的自動更新功能。實現(xiàn)資料訂購功能實現(xiàn)資料訂購功能具體的操作步驟如下：步驟3：如果在B3單元格中輸入一個不存在的資料名稱，如“攝影技巧108招”，然后單擊【訂購資料】按鈕，即可彈出如圖12-31所示的提示信息，同時將光標定位在剛剛添加的文檔資料信息行上，而且系統(tǒng)自動將該文檔資料的入庫時間 設(shè)置為當前日期。步驟4：如果在B3單元格中不輸入任何內(nèi)容，單擊【訂購資料】按鈕，即可彈出如圖12-32所示的提示信息。且系統(tǒng)對該文檔不執(zhí)行任

6、何操作，因為該數(shù)據(jù)表關(guān)鍵字是“資料名稱”，即該項目內(nèi)容不能為空。借閱信息管理借閱信息管理 借閱信息工作表處理 實現(xiàn)借閱資料的功能 實現(xiàn)借閱資料查詢的功能 實現(xiàn)歸還資料的功能 1實現(xiàn)資料歸還功能 2. 歸還資料VBA代碼的運行結(jié)果實現(xiàn)借閱資料查詢的功能實現(xiàn)借閱資料查詢的功能具體的操作步驟如下：步驟1：在【開發(fā)工具】選項卡的“控件”選項組中單擊【設(shè)計模式】按鈕 ，使添加的命令按鈕進入編輯狀態(tài)，雙擊【借閱信息查詢】按鈕進入該命令按鈕的代碼編輯窗口。步驟2：單擊工具欄中的【退出設(shè)計模式】按鈕 ，使添加的命令按鈕退出編輯狀態(tài)，關(guān)閉VBA代碼窗口返回“借閱信息”工作表中。步驟3：在E3單元格中輸入一個已存

7、在的讀者編號，如“SM017”，單擊【借閱信息查詢】按鈕，即可得到符合條件的借閱記錄并將其他不符合條件的記錄隱藏，如圖12-46所示。步驟4：如果在E3單元格中輸入一個不存在的讀者編號，如“SM520”，單擊【借閱信息查詢】按鈕，即可彈出如圖12-47所示的提示信息，并隱藏了不符合條件的所有記錄信息。實現(xiàn)歸還資料的實現(xiàn)歸還資料的功能功能具體的操作步驟如下：步驟1：單擊【設(shè)計模式】按鈕 ，使添加的命令按鈕進入編輯狀態(tài)，雙擊添加的【歸還資料】按鈕，進入該按鈕的代碼編輯窗口，在其中輸入如下程序代碼。步驟2：在上述代碼窗口中添加實現(xiàn)資料歸還的代碼。步驟3：如果在E3單元格中輸入讀者編號“SM007”，

8、單擊【歸還資料】按鈕，即可彈出【資料名稱】對話框，在其文本框中輸入資料名稱“數(shù)碼單反主題攝影”，如圖12-49所示。實現(xiàn)歸還資料的實現(xiàn)歸還資料的功能功能具體的操作步驟如下：步驟4：單擊【確定】按鈕返回到“借閱信息”工作表中，如圖12-50所示。系統(tǒng)自動將搜索到的借閱信息返回到第3行單元格中，并將光標定位在搜索到的單元格上。專家課堂（常見問題與解答）專家課堂（常見問題與解答）點撥點撥1：對某單元格設(shè)置了數(shù)據(jù)有效性后，為什么設(shè)置結(jié)果無效？解答：解答：當出現(xiàn)這種情況時，請檢查在【數(shù)據(jù)有效性】對話框設(shè)置的有效數(shù)據(jù)內(nèi)容中，有效數(shù)據(jù)的分隔符是否是半角狀態(tài)下的“，”，如果此時用戶輸入了全角狀態(tài)的“，”，則設(shè)置將會無效。點撥點撥2：在查詢借閱資料后，如果想查看所有借閱信息，應(yīng)該如何操作？解答：解答：如果想查看所有的借閱信息，則需將代碼中的“Selection.EntireRow.Hidden = True”修改為“Selec