第08章 小型財(cái)務(wù)收支管理器

1、主要功能： l收支類型定義； l基本收支數(shù)據(jù)輸入或修改； l按年度和收支類型制作統(tǒng)計(jì)表、統(tǒng)計(jì)圖。 主要特點(diǎn)： l用Excel和VBA實(shí)現(xiàn)； l收支類型可隨時(shí)定義和修改，輸入或修改基本收支數(shù)據(jù)時(shí)，可由一位數(shù)字替換為 對(duì)應(yīng)的收支類型名； l以表格和直條圖兩種形式輸出分類匯總數(shù)據(jù)。 主要技術(shù)： l單元格批注內(nèi)容的動(dòng)態(tài)更新與顯示； l直接代換式輸入方法的實(shí)現(xiàn)； l數(shù)據(jù)有效性、光標(biāo)焦點(diǎn)控制； l下拉列表項(xiàng)的動(dòng)態(tài)更新； l分級(jí)顯示控制； l分類匯總數(shù)據(jù)的篩選與圖表化。 8.1 工作簿設(shè)計(jì)工作簿設(shè)計(jì) l三張工作表：“收支項(xiàng)目”、“基本數(shù)據(jù)”和 “統(tǒng)計(jì)圖表”。 1. “收支項(xiàng)目收支項(xiàng)目”工作表工作表 l收支標(biāo)

2、志“S”表示收入項(xiàng)、“Z”表示支出項(xiàng)； l代碼用09當(dāng)中的一位數(shù)字。 l選中A2單元格，凍結(jié)窗格。 8.1 工作簿設(shè)計(jì)工作簿設(shè)計(jì) 2. “基本數(shù)據(jù)基本數(shù)據(jù)”工作表工作表 lA列數(shù)字作為文本處理。列數(shù)字作為文本處理。 lB、C列兩位小數(shù)。列兩位小數(shù)。 l在在“工具工具”菜單中選擇菜單中選擇“選項(xiàng)選項(xiàng)”命令，取消命令，取消 “零值零值”復(fù)選項(xiàng)。復(fù)選項(xiàng)。 l選中選中A2單元格，凍結(jié)窗格。單元格，凍結(jié)窗格。 l選中選中A1單元格，設(shè)置自動(dòng)篩選功能。單元格，設(shè)置自動(dòng)篩選功能。 l用用“控件工具箱控件工具箱”添加組合框添加組合框ComboBox1、 ComboBox2。 8.1 工作簿設(shè)計(jì)工作簿設(shè)計(jì) 3.

3、 “統(tǒng)計(jì)圖表統(tǒng)計(jì)圖表”工作表工作表 lA列數(shù)字作為文本處理。列數(shù)字作為文本處理。 lB、C列兩位小數(shù)。列兩位小數(shù)。 l用用“控件工具箱控件工具箱”添加組合框添加組合框ComboBox1、 選項(xiàng)按鈕選項(xiàng)按鈕OptionButton1 和和OptionButton12。 l隱藏工作表中的零值。隱藏工作表中的零值。 8.1 工作簿設(shè)計(jì)工作簿設(shè)計(jì) l在在B5:B9、D5:D9區(qū)域輸入模擬的區(qū)域輸入模擬的“收入金額收入金額” 和和“收支類型收支類型”數(shù)據(jù)。數(shù)據(jù)。 l選中選中B5:B9、D5:D9區(qū)域，單擊區(qū)域，單擊“常用常用”工具工具 欄的欄的“圖表向?qū)D表向?qū)А卑粹o。按鈕。 l選擇選擇“柱形圖柱形圖”

4、和默認(rèn)的子圖表類型，單擊和默認(rèn)的子圖表類型，單擊 “完成完成”按鈕。按鈕。 l選中圖表區(qū)右側(cè)的選中圖表區(qū)右側(cè)的“圖例圖例”項(xiàng)，刪除。項(xiàng)，刪除。 8.1 工作簿設(shè)計(jì)工作簿設(shè)計(jì) l在圖表區(qū)上單擊鼠標(biāo)右鍵，選擇在圖表區(qū)上單擊鼠標(biāo)右鍵，選擇“源數(shù)據(jù)源數(shù)據(jù)”命令。在命令。在 “系列系列”選項(xiàng)卡中，設(shè)置選項(xiàng)卡中，設(shè)置“值值”為為“=統(tǒng)計(jì)圖統(tǒng)計(jì)圖 表表!$B$5:$B$9”，“分類軸標(biāo)志分類軸標(biāo)志”為為“=統(tǒng)計(jì)圖統(tǒng)計(jì)圖 表表!$D$5:$D$9”，“名稱名稱”為為“=統(tǒng)計(jì)圖表統(tǒng)計(jì)圖表!$C$1”。 l在圖表區(qū)上單擊鼠標(biāo)右鍵，選擇在圖表區(qū)上單擊鼠標(biāo)右鍵，選擇“圖表區(qū)格式圖表區(qū)格式”命令。命令。 在在“圖案圖案

5、”選項(xiàng)卡中，選中選項(xiàng)卡中，選中“陰影陰影”和和“圓角圓角”復(fù)選復(fù)選 項(xiàng)，填充項(xiàng)，填充“雙色雙色”、“斜上斜上”效果。在效果。在“屬性屬性”選項(xiàng)選項(xiàng) 卡中，設(shè)置對(duì)象位置為卡中，設(shè)置對(duì)象位置為“大小、位置均固定大小、位置均固定”。 l在繪圖區(qū)上單擊鼠標(biāo)右鍵，選擇在繪圖區(qū)上單擊鼠標(biāo)右鍵，選擇“繪圖區(qū)格式繪圖區(qū)格式”命令。命令。 設(shè)置區(qū)域顏色為設(shè)置區(qū)域顏色為“白色白色”。 l在分類軸上單擊鼠標(biāo)右鍵，選擇在分類軸上單擊鼠標(biāo)右鍵，選擇“坐標(biāo)軸格式坐標(biāo)軸格式”命令。命令。 在在“對(duì)齊對(duì)齊”選項(xiàng)卡中，設(shè)置文本方向?yàn)檫x項(xiàng)卡中，設(shè)置文本方向?yàn)?5度。度。 8.1 工作簿設(shè)計(jì)工作簿設(shè)計(jì) l在圖表標(biāo)題上單擊鼠標(biāo)右鍵，

6、選擇在圖表標(biāo)題上單擊鼠標(biāo)右鍵，選擇“圖表標(biāo)題圖表標(biāo)題 格式格式”命令。設(shè)置標(biāo)題為命令。設(shè)置標(biāo)題為“宋體宋體”、12號(hào)字，號(hào)字， 文字顏色為文字顏色為“橙色橙色”。 l在任意一個(gè)柱形上單擊鼠標(biāo)右鍵，選擇在任意一個(gè)柱形上單擊鼠標(biāo)右鍵，選擇“數(shù)據(jù)數(shù)據(jù) 系列格式系列格式”命令。在命令。在“圖案圖案”選項(xiàng)卡中，單擊選項(xiàng)卡中，單擊 “填充效果填充效果”按鈕，填充按鈕，填充“茶色茶色”，“垂直垂直” 變形效果。變形效果。 l在數(shù)值軸主要網(wǎng)格線上單擊鼠標(biāo)右鍵，選擇在數(shù)值軸主要網(wǎng)格線上單擊鼠標(biāo)右鍵，選擇 “網(wǎng)格線格式網(wǎng)格線格式”命令。在命令。在“圖案圖案”選項(xiàng)卡中，選項(xiàng)卡中， 設(shè)置線條樣式為設(shè)置線條樣式為“虛線

7、虛線”。 8.2 組合框列表項(xiàng)的添加組合框列表項(xiàng)的添加 工作簿的工作簿的Open事件代碼：事件代碼： l聲明一維數(shù)組聲明一維數(shù)組b，每個(gè)元素用來(lái)標(biāo)識(shí)一個(gè)年份值是否，每個(gè)元素用來(lái)標(biāo)識(shí)一個(gè)年份值是否 被收集到組合框中。用于將被收集到組合框中。用于將“基本數(shù)據(jù)基本數(shù)據(jù)”工作表中不工作表中不 重復(fù)的年份值添加到組合框中。重復(fù)的年份值添加到組合框中。 l用對(duì)象變量用對(duì)象變量sh1、sh2表示表示“基本數(shù)據(jù)基本數(shù)據(jù)”和和“統(tǒng)計(jì)圖統(tǒng)計(jì)圖 表表”工作表。工作表。 l把把“基本數(shù)據(jù)基本數(shù)據(jù)”工作表第工作表第1列的年份，排除重復(fù)值后，列的年份，排除重復(fù)值后， 添加到添加到“基本數(shù)據(jù)基本數(shù)據(jù)”工作表的工作表的Com

8、boBox1和和“統(tǒng)計(jì)統(tǒng)計(jì) 圖表圖表”工作表的工作表的ComboBox1中。中。 l把把“收支項(xiàng)目收支項(xiàng)目”工作表第工作表第2列的列的“收支標(biāo)志收支標(biāo)志”和第和第3列列 的的“收支類型名收支類型名”拼接，添加到拼接，添加到“基本數(shù)據(jù)基本數(shù)據(jù)”工作表工作表 的的ComboBox2中。中。 8.3 基本數(shù)據(jù)維護(hù)基本數(shù)據(jù)維護(hù) l針對(duì)針對(duì)“基本數(shù)據(jù)基本數(shù)據(jù)”工作表進(jìn)行操作。工作表進(jìn)行操作。 1. 工作表的工作表的SelectionChange事件代碼事件代碼 l它根據(jù)當(dāng)前單元格位置進(jìn)行相應(yīng)的處理。它根據(jù)當(dāng)前單元格位置進(jìn)行相應(yīng)的處理。 l如果是第如果是第1行，則不執(zhí)行其他操作，直接退出。行，則不執(zhí)行其他

9、操作，直接退出。 l如果超過(guò)第如果超過(guò)第4列，則定位到下一行的第列，則定位到下一行的第2列。列。 l如果超過(guò)如果超過(guò)D列數(shù)據(jù)列數(shù)據(jù)1行以上，則定位到行以上，則定位到D列數(shù)據(jù)列數(shù)據(jù) 下一行的第下一行的第2列，然后退出。列，然后退出。 l如果當(dāng)前行第如果當(dāng)前行第1列單元格的內(nèi)容為空，則將第列單元格的內(nèi)容為空，則將第1 列最后一個(gè)有效的列最后一個(gè)有效的“年月年月”數(shù)據(jù)復(fù)制到該單元數(shù)據(jù)復(fù)制到該單元 格。格。 8.3 基本數(shù)據(jù)維護(hù)基本數(shù)據(jù)維護(hù) l如果當(dāng)前單元格處于第如果當(dāng)前單元格處于第4列，則進(jìn)行以下操作：列，則進(jìn)行以下操作： (1) 取出當(dāng)前行第取出當(dāng)前行第2列、第列、第3列的列的“收入金額收入金額”

10、和和“支出金額支出金額”。 (2) 如果如果“收入金額收入金額”和和“支出金額支出金額”全都大于零，或者全部等于零，全都大于零，或者全部等于零， 則將光標(biāo)定位到當(dāng)前行第則將光標(biāo)定位到當(dāng)前行第2列，然后退出。列，然后退出。 (3) 如果只是如果只是“收入金額收入金額”大于零，則調(diào)用自定義函數(shù)大于零，則調(diào)用自定義函數(shù)zfc，取，取“收支收支 項(xiàng)目項(xiàng)目”工作表中的所有收入類型代碼和對(duì)應(yīng)的收支類型名，形成工作表中的所有收入類型代碼和對(duì)應(yīng)的收支類型名，形成 一個(gè)字符串，送給變量一個(gè)字符串，送給變量lbx。 (4) 如果只是如果只是“支出金額支出金額”大于零，則調(diào)用自定義函數(shù)大于零，則調(diào)用自定義函數(shù)zfc

11、，取，取“收支收支 項(xiàng)目項(xiàng)目”工作表中的所有支出類型代碼和對(duì)應(yīng)的收支類型名，形成工作表中的所有支出類型代碼和對(duì)應(yīng)的收支類型名，形成 一個(gè)字符串，送給變量一個(gè)字符串，送給變量lbx。 (5) 在當(dāng)前單元格中，先刪除原有的數(shù)據(jù)有效性條件，再設(shè)置新的數(shù)在當(dāng)前單元格中，先刪除原有的數(shù)據(jù)有效性條件，再設(shè)置新的數(shù) 據(jù)有效性條件，將變量據(jù)有效性條件，將變量lbx的值作為數(shù)據(jù)有效性提示信息。的值作為數(shù)據(jù)有效性提示信息。 8.3 基本數(shù)據(jù)維護(hù)基本數(shù)據(jù)維護(hù) 2. 自定義函數(shù)自定義函數(shù)zfc l功能：功能： 取取“收支項(xiàng)目收支項(xiàng)目”工作表的收入或支出類型代工作表的收入或支出類型代 碼、名稱，拼接成一個(gè)字符串，作為函

12、數(shù)值。碼、名稱，拼接成一個(gè)字符串，作為函數(shù)值。 l參數(shù)：參數(shù)： sz作為收支標(biāo)志，它的值為作為收支標(biāo)志，它的值為“S”表示收入項(xiàng)，表示收入項(xiàng)， “Z”表示支出項(xiàng)。表示支出項(xiàng)。 8.3 基本數(shù)據(jù)維護(hù)基本數(shù)據(jù)維護(hù) 3. 工作表的工作表的Change事件代碼事件代碼 l它對(duì)當(dāng)前單元格的位置進(jìn)行判斷，如果是第它對(duì)當(dāng)前單元格的位置進(jìn)行判斷，如果是第4列，并列，并 且行號(hào)大于且行號(hào)大于1，則進(jìn)行以下操作：，則進(jìn)行以下操作： l取出當(dāng)前單元格值，送給變量取出當(dāng)前單元格值，送給變量v。取出當(dāng)前行第。取出當(dāng)前行第2列的列的 值，送給變量值，送給變量sr。 l如果當(dāng)前單元格的值為空，則不執(zhí)行其他操作，直接如果當(dāng)前

13、單元格的值為空，則不執(zhí)行其他操作，直接 退出。退出。 l如果當(dāng)前單元格的值不是數(shù)字，也不執(zhí)行其他操作，如果當(dāng)前單元格的值不是數(shù)字，也不執(zhí)行其他操作， 直接退出。直接退出。 l如果當(dāng)前行第如果當(dāng)前行第2列的值（收入金額）大于零，則調(diào)用列的值（收入金額）大于零，則調(diào)用 自定義函數(shù)自定義函數(shù)th，將當(dāng)前單元格輸入的代碼，將當(dāng)前單元格輸入的代碼v替換為對(duì)替換為對(duì) 應(yīng)的收入類型名。否則，調(diào)用自定義函數(shù)應(yīng)的收入類型名。否則，調(diào)用自定義函數(shù)th，將當(dāng)前，將當(dāng)前 單元格輸入的代碼單元格輸入的代碼v替換為對(duì)應(yīng)的支出類型名。替換為對(duì)應(yīng)的支出類型名。 8.3 基本數(shù)據(jù)維護(hù)基本數(shù)據(jù)維護(hù) 4. 自定義函數(shù)自定義函數(shù)th

14、 l功能：功能： 取出代碼對(duì)應(yīng)的收入或支出類型名。取出代碼對(duì)應(yīng)的收入或支出類型名。 l參數(shù)：參數(shù)： v、sz分別為代碼和收支標(biāo)志，分別為代碼和收支標(biāo)志，sz的值為的值為“S” 表示收入項(xiàng)，表示收入項(xiàng)，“Z”表示支出項(xiàng)。表示支出項(xiàng)。 l采用了一種采用了一種“直接代換式輸入直接代換式輸入”技術(shù)。在輸入技術(shù)。在輸入 枚舉型數(shù)據(jù)時(shí)，只要輸入事先預(yù)置的代碼，就枚舉型數(shù)據(jù)時(shí)，只要輸入事先預(yù)置的代碼，就 可以自動(dòng)代換為相應(yīng)的內(nèi)容?？梢宰詣?dòng)代換為相應(yīng)的內(nèi)容。 8.4 基本數(shù)據(jù)查詢基本數(shù)據(jù)查詢 l對(duì)對(duì)“基本數(shù)據(jù)基本數(shù)據(jù)”工作表中進(jìn)行操作。工作表中進(jìn)行操作。 l工作表中的兩個(gè)組合框，分別用來(lái)選擇工作表中的兩個(gè)組合

15、框，分別用來(lái)選擇“年份年份” 和和“收支類型收支類型”，對(duì)數(shù)據(jù)進(jìn)行篩選，實(shí)現(xiàn)查詢，對(duì)數(shù)據(jù)進(jìn)行篩選，實(shí)現(xiàn)查詢 功能。功能。 1. 組合框代碼組合框代碼 l組合框組合框ComboBox1、ComboBox1的的 Change事件代碼：事件代碼： 調(diào)用子程序調(diào)用子程序“查詢查詢”。 8.4 基本數(shù)據(jù)查詢基本數(shù)據(jù)查詢 2. “查詢查詢”子程序子程序 l用對(duì)象變量用對(duì)象變量rg表示當(dāng)前工作表表示當(dāng)前工作表A1單元格對(duì)應(yīng)單元格對(duì)應(yīng) 的數(shù)據(jù)區(qū)。的數(shù)據(jù)區(qū)。 l按按ComboBox1的選項(xiàng)對(duì)數(shù)據(jù)區(qū)第的選項(xiàng)對(duì)數(shù)據(jù)區(qū)第1列進(jìn)行篩列進(jìn)行篩 選。選。 l按按ComboBox2的選項(xiàng)對(duì)數(shù)據(jù)區(qū)第的選項(xiàng)對(duì)數(shù)據(jù)區(qū)第4列進(jìn)行篩列

16、進(jìn)行篩 選。選。 l調(diào)整當(dāng)前工作表的垂直滾動(dòng)條。調(diào)整當(dāng)前工作表的垂直滾動(dòng)條。 8.5 分類匯總圖表分類匯總圖表 l對(duì)對(duì)“統(tǒng)計(jì)圖表統(tǒng)計(jì)圖表”工作表進(jìn)行操作。工作表進(jìn)行操作。 l一個(gè)組合框、兩個(gè)選項(xiàng)按鈕。一個(gè)組合框、兩個(gè)選項(xiàng)按鈕。 1. 組合框、選項(xiàng)按鈕代碼組合框、選項(xiàng)按鈕代碼 l組合框組合框ComboBox1的的Change事件代碼，選事件代碼，選 項(xiàng)按鈕項(xiàng)按鈕OptionButton1和和OptionButton2的的 Click事件代碼：事件代碼： 都調(diào)用子程序都調(diào)用子程序tjtb。 8.5 分類匯總圖表分類匯總圖表 2. tjtb子程序子程序 l第一部分，對(duì)第一部分，對(duì)“基本數(shù)據(jù)基本數(shù)據(jù)”

17、工作表的數(shù)據(jù)進(jìn)行工作表的數(shù)據(jù)進(jìn)行 篩選，復(fù)制到當(dāng)前工作表指定區(qū)域。篩選，復(fù)制到當(dāng)前工作表指定區(qū)域。 l第二部分，對(duì)當(dāng)前工作表目標(biāo)數(shù)據(jù)區(qū)的數(shù)據(jù)進(jìn)第二部分，對(duì)當(dāng)前工作表目標(biāo)數(shù)據(jù)區(qū)的數(shù)據(jù)進(jìn) 行排序、分類匯總。行排序、分類匯總。 l第三部分，設(shè)置圖表屬性。第三部分，設(shè)置圖表屬性。 l第四部分，收尾處理。第四部分，收尾處理。 8.6 運(yùn)行與測(cè)試運(yùn)行與測(cè)試 1. 收支項(xiàng)目信息維護(hù)收支項(xiàng)目信息維護(hù) l添加、刪除、修改各收支項(xiàng)目的名稱、收支標(biāo)志和代碼。添加、刪除、修改各收支項(xiàng)目的名稱、收支標(biāo)志和代碼。 2. 基本數(shù)據(jù)維護(hù)基本數(shù)據(jù)維護(hù) l用通常方法對(duì)數(shù)據(jù)進(jìn)行增、刪、改等操作。用通常方法對(duì)數(shù)據(jù)進(jìn)行增、刪、改等操作。 l“收支類型收支類型”列，自動(dòng)檢測(cè)，用一位數(shù)字代替對(duì)應(yīng)