用VBA編制企業(yè)收支管理系統(tǒng).

1、正確學(xué)會Excel VBA的16堂課用VBA編制企業(yè)收支管理系統(tǒng)設(shè)計“企業(yè)收支管理”工作簿實現(xiàn)企業(yè)收支管理功能設(shè)計設(shè)計“企業(yè)收支管理企業(yè)收支管理”工作簿工作簿 設(shè)計收支登記工作表 設(shè)計收支匯總工作表 設(shè)計收支對比、收支項目工作表設(shè)計收支登記工作表設(shè)計收支登記工作表具體的操作步驟如下：步驟1：打開如圖16-1所示“收入登記”工作表，切換到【插入】選項卡，單擊“插圖”選項組中的【形狀】按鈕，在彈出列表中單擊“矩形”組中的【圓角矩形】按鈕 ，在第一行中繪制一個圓角矩形按鈕，如圖16-2所示。步驟2：單擊【格式】選項卡“形狀樣式”選項組中的【其他】按鈕 ，在彈出的列表中選擇相應(yīng)的形狀樣式，如圖16-3

2、所示。設(shè)計收支登記工作表設(shè)計收支登記工作表具體的操作步驟如下：步驟3：右擊添加的圓角矩形，在彈出菜單中選擇【編輯文字】菜單項，添加“收入登記”文本，將文本的“字體”設(shè)置為“華文中宋”，字號設(shè)置為“12”，對齊方式設(shè)置為“居中”，如圖16-4所示。步驟4：按照上述添加圓角矩形的方法在工作表中添加其他幾個圓角矩形，如圖16-5所示。在【插入】選項卡中單擊“文本”選項組中的【藝術(shù)字】按鈕，即可彈出相應(yīng)的藝術(shù)字效果，如圖16-6所示。設(shè)計收支登記工作表設(shè)計收支登記工作表具體的操作步驟如下：步驟5：選擇相應(yīng)的藝術(shù)字效果，即可彈出“請在此放置您的文字”列表框，如圖16-7所示。在其中輸入文本內(nèi)容“登記”，

3、并設(shè)置其字體、字號，將其放置在工作表的右上角處，如圖16-8所示。步驟6：在“收入登記”工作表中按Ctrl+A組合鍵將表中的內(nèi)容全部選中，再按Ctrl+C組合鍵復(fù)制工作表中的內(nèi)容，切換到“支出登記”工作表中，按Ctrl+V組合鍵粘貼復(fù)制的內(nèi)容。再將表中的A2單元格的內(nèi)容修改為“支出登記”，其他內(nèi)容保持不變。這樣“支出登記”工作表也設(shè)置完成了，如圖16-9所示。實現(xiàn)企業(yè)收支管理功能實現(xiàn)企業(yè)收支管理功能 實現(xiàn)收支快速登記 實現(xiàn)收支自動匯總 使用VBA設(shè)計收支對比圖 為自定義按鈕指定宏實現(xiàn)收支自動匯總實現(xiàn)收支自動匯總具體的操作步驟如下：步驟1：在“收入登記”工作表和“支出登記”工作表中輸入一些收支項

4、目，為便于月份匯總操作，此處手動修改編輯時間，使登記的內(nèi)容分布于幾個月份，如圖16-25所示。步驟2：按Alt+F11組合鍵打開VBA代碼編輯窗口，選擇【插入】【模塊】菜單項，插入一個名為“模塊1”的模塊，在該模塊代碼窗口中添加用于匯總月收入的定義函數(shù)CollectByMonth1。這段代碼中聲明數(shù)組Month_In()時指定了數(shù)組的上界和下界，即數(shù)組的上界為12，下界為1。實現(xiàn)收支自動匯總實現(xiàn)收支自動匯總具體的操作步驟如下：步驟3：雙擊【工程資源管理器】窗口中的“Sheet3（收入?yún)R總）”選項，即可打開工作表Sheet3的代碼編輯窗口，在其中輸入如下代碼程序。步驟4：關(guān)閉VBA代碼窗口返回到

5、“收入?yún)R總”工作表，就會得到按月份和項目匯總的結(jié)果，如圖16-26所示。在G2和G18單元格中分別輸入“月份走勢圖”和“項目比例圖”，然后置其字體，并設(shè)置其單元格的邊框線及背景顏色，如圖16-27所示。實現(xiàn)收支自動匯總實現(xiàn)收支自動匯總具體的操作步驟如下：步驟5：選中B3:C15單元格區(qū)域，在【插入】選項卡中，單擊“圖表”選項組的【柱形圖】下拉按鈕，從中選擇“簇狀柱形圖”，即可在工作表中插入一個圖表，如圖16-28所示。步驟6：選中B20:C24單元格區(qū)域，即每個項目的收入，在【插入】選項卡中單擊“圖表”選項組的【餅圖】下拉按鈕，在其中選擇“分離型三維餅圖”，即可在工作表中插入一個圖表，如圖16

6、-29所示。實現(xiàn)收支自動匯總實現(xiàn)收支自動匯總具體的操作步驟如下：步驟7：由于年的月份就是12個月，不會變化，所以月份走勢圖的數(shù)據(jù)源就是單元格區(qū)域“B3:C15”；而項目不是固定不變的，可能會增加新的項目，所以項目比例圖的數(shù)據(jù)源不一定就是單元格區(qū)域“B20:C24”。需要在程序中實現(xiàn)項目比例圖的數(shù)據(jù)源的動態(tài)變化，即在VBA代碼窗口中，在工作表Sheet3的代碼編輯窗口中輸入如下代碼。步驟8：在工作表Sheet3的Worksheet_Activate代碼框架中添加如下一行代碼，用于調(diào)用Update_Chart1自定義過程，如圖16-30所示。Update_Chart1 (Item_num)返回“收

7、支項目”工作表，添加一個新的收入項目“其他”，如圖16-31所示。實現(xiàn)收支自動匯總實現(xiàn)收支自動匯總具體的操作步驟如下：步驟9：在“收入登記”工作表中添加一條關(guān)于“其他”項目的收入登記，如圖16-32所示。切換到“收入?yún)R總”工作表中，會發(fā)現(xiàn)項目比例圖自動發(fā)生了變化，如圖16-33所示。步驟10：進(jìn)行支出匯總。按Alt+F11組合鍵打開VBA代碼窗口，在模塊1代碼編輯窗口中添加如下代碼程序。實現(xiàn)收支自動匯總實現(xiàn)收支自動匯總具體的操作步驟如下：步驟11：進(jìn)入工作表Sheet4的代碼編輯窗口，在其中添加如下代碼程序。步驟12：返回到“支出匯總”工作表中，此時會得到按月份和項目匯總的支出金額，如圖16-

8、34所示。按照“收入?yún)R總”工作表中添加圖表的方法，在“支出匯總”工作表中添加月份走勢圖和項目比例圖，如圖16-35所示。步驟13：在工作表Sheet4的代碼編輯窗口中添加如下代碼程序，使項目比例圖的數(shù)據(jù)源動態(tài)化。實現(xiàn)收支自動匯總實現(xiàn)收支自動匯總具體的操作步驟如下：步驟14：在工作表Sheet4的代碼編輯窗口中的Worksheet_Activate過程的最后添加調(diào)用Update_Chart2的語句“Update_Chart2 (Item_num)”，如圖16-36所示。專家課堂（常見問題與解答）專家課堂（常見問題與解答）點撥點撥1：VBA的變量必須要先聲明才可以使用嗎？解答：解答：當(dāng)然不是，VBA允許用戶直接使用變量而不經(jīng)任何聲明。但是這樣做可能會引起難以調(diào)試的錯誤。如用戶在第一行直接使用了變量abc，結(jié)果到了后邊由于筆誤寫成了acb，這一定會出邏輯錯誤，但解釋器因為語法沒問題而不會報，用戶自己也很難在密密麻麻的代碼中將這個錯誤挑出來。為了強(qiáng)迫變量必須先聲明再使用，在程序的第一行加上“Option Explicit”，如果不經(jīng)聲明直接使用變量就會報語法錯