淺談用Excel設(shè)計的支票打印小應(yīng)用

淺談用Excel設(shè)計的支票打印小應(yīng)用

Excel軟件；支票打??；應(yīng)用

２００３年７月的《中國會計電算化》雜志上曾刊登過一篇筆者關(guān)于打印票據(jù)的文章，后在實踐中筆者對Excel的應(yīng)用有了更深的理解和認(rèn)識，現(xiàn)將新的票據(jù)打印應(yīng)用進行重新整理。

原來的應(yīng)用主要是使用Ｗord的郵件合并功能，后來在使用中感覺還是比較麻煩，需要用到Ｗord和Excel軟件。新應(yīng)用放棄了郵件合并功能，只用到Excel軟件。

1設(shè)計思路

支票打印需要輸入的項目為：收款人、日期、款項內(nèi)容、開戶銀行及賬號、大小寫金額。

首先，希望只需要輸入收款人、款項內(nèi)容、小寫金額就可以完成所有填開項目。如果收款人和款項內(nèi)容是比較固定的，最好通過下拉框選擇輸入。大寫日期和大寫金額能自動填寫。

其次，希望系統(tǒng)實現(xiàn)對支票信息的管理，即能記錄每一張支票的開票時間、收款人、款項內(nèi)容、金額等信息，同時能提供已開支票張數(shù)、未開支票張數(shù)，無空余支票時能提醒購買新支票。

此外，軟件應(yīng)該能在無金額或無收款人時不執(zhí)行打印。

2設(shè)計過程

根據(jù)上述思路，需要充分利用Excel的各項功能，特別是宏的設(shè)計。

大寫金額的自動填寫

默認(rèn)金額最大為玖仟玖佰玖拾玖萬玖仟玖佰玖拾玖元玖角玖分。在此需要自定義一個函數(shù)，打開Excel軟件，在工具下選擇“宏”，打開ＶＢ編輯器，插入一個新模塊，在其中建立一個函數(shù)，其代碼

ＰｕｂｌｉｃＦｕｎｃｔｉｏｎ中文金額

Ａ＝Ｒｅｐｌａｃｅ，１，＂壹＂），２，＂貳＂），３，＂叁＂），４，＂肆＂），５，＂伍＂），６，＂陸＂），７，＂柒＂），８，＂捌＂），９，＂玖＂）

ＳｅｌｅｃｔＣａｓｅＬｅｎ

Ｃａｓｅ１０

Ｂ＝Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂萬＂＆Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ９

Ｂ＝Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂萬＂＆Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ８

Ｂ＝Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂萬＂＆Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ７

Ｂ＝Ｍｉｄ＆＂萬＂＆Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ６

Ｂ＝Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ５

Ｂ＝Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ４

Ｂ＝Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ３

Ｂ＝Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ２

Ｂ＝Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ１

Ｂ＝Ｍｉｄ＆＂分＂

ＥｎｄＳｅｌｅｃｔ

中文金額＝Ｂ

ＦｏｒＣ＝４Ｔｏ１Ｓｔｅｐ－１’建立４次循環(huán)。

中文金額＝Ｒｅｐｌａｃｅ，＂零仟＂，＂零＂），＂零佰＂，＂零＂），＂零拾＂，＂零＂），＂零角零分＂，＂整＂），＂零角＂，＂零＂），＂零分＂，＂整＂），＂零零＂，＂零＂），＂零元＂，＂元＂）

ＮｅｘｔＣ

ＥｎｄＦｕｎｃｔｉｏｎ

上面的代碼通過不斷反復(fù)使用Ｒｅｐｌａｃｅ命令將小寫金額的數(shù)字進行替換，最后轉(zhuǎn)換為大寫金額。

大寫日期的自動填寫

我們需要定義一個新函數(shù)，代碼

ＰｕｂｌｉｃＦｕｎｃｔｉｏｎ中文日期

Ａ＝Ｒｅｐｌａｃｅ，１，＂壹＂），２，＂貳＂），３，＂叁＂），４，＂肆＂），５，＂伍＂），６，＂陸＂），７，＂柒＂），８，＂捌＂），９，＂玖＂）

ＳｅｌｅｃｔＣａｓｅＬｅｎ

Ｃａｓｅ２

ＩｆＭｉｄ＝０Ｔｈｅｎ

Ｂ＝＂零＂＆Ｍｉｄ＆＂拾＂

Ｅｌｓｅ

Ｂ＝Ｍｉｄ＆＂拾＂＆Ｍｉｄ

ＥｎｄＩｆ

Ｃａｓｅ１

Ｂ＝＂零＂＆Ｍｉｄ

ＥｎｄＳｅｌｅｃｔ

中文日期＝Ｂ

ＥｎｄＦｕｎｃｔｉｏｎ

通過上面的代碼結(jié)合單元格式設(shè)置及其他公式就可以實現(xiàn)年月日的大寫模式。

支票信息管理

需要設(shè)計一個過程來實現(xiàn)支票信息管理，代碼

Ｓｕｂ打印支票

Ｓｈｅｅｔｓ．Ｓｅｌｅｃｔ

賬號＝Ｒｉｇｈｔ．Ｃｅｌｌｓ．Ｖａｌｕｅ，４）

ＳｅｌｅｃｔＣａｓｅ賬號

ＣａｓｅＩｓ＝＂０３０９＂

判斷＝１

ＣａｓｅＥｌｓｅ

判斷＝０

ＥｎｄＳｅｌｅｃｔ

Ｉｆ判斷＝１Ｔｈｅｎ

ｘ＝１

ＤｏＷｈｉｌｅＮｏｔ．Ｃｅｌｌｓ．Ｖａｌｕｅ））

ｘ＝ｘ＋１

Ｌｏｏｐ

ｘ＝Ｒａｎｇｅ，Ｃｅｌｌｓ）．Ｃｏｕｎｔ

Ｓｈｅｅｔｓ．Ｓｅｌｅｃｔ

’判斷支票本數(shù)ａ，ｆｐ為支票信息啟始行

支票類型＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

支票類型Ａ＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

支票類型Ｂ＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

ＳｅｌｅｃｔＣａｓｅ支票類型’判斷Ｎｕｍｂｅｒ的值。

Ｃａｓｅ支票類型Ａ

Ｙ＝１３

Ｃａｓｅ支票類型Ｂ

Ｙ＝２０

ＥｎｄＳｅｌｅｃｔ

ｆｐ＝Ｙ

ＤｏＷｈｉｌｅＮｏｔ．Ｃｅｌｌｓ．Ｖａｌｕｅ））

ｆｐ＝ｆｐ＋１

Ｌｏｏｐ

Ａ＝Ｒａｎｇｅ，Ｃｅｌｌｓ）．Ｃｏｕｎｔ

’選擇符合打印條件的數(shù)據(jù)，判斷是否有備用支票

ＩｆＳｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝＂＂Ｔｈｅｎ

ＥｘｉｔＳｕｂ

Ｅｌｓｅ

’ｎ為支票票信息啟始行

日期＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

姓名＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

金額＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

用途＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

ｎ＝Ｙ

ＤｏＷｈｉｌｅＳｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝０

Ｉｆｎ－Ｙ＞ＡＯｒｎ＝１８Ｏｒｎ＝２５Ｔｈｅｎ

ＭｓｇＢｏｘ＂沒有備用支票＂

’如果沒有發(fā)票跳出程序

ＥｘｉｔＳｕｂ

Ｅｌｓｅ

ｎ＝ｎ＋１

ＥｎｄＩｆ

Ｌｏｏｐ

’輸入發(fā)票信息

ｐｊｈｍ１＝Ｖａｌ．Ｃｅｌｌｓ．Ｖａｌｕｅ，３，１０））＋Ｖａｌ．Ｃｅｌｌｓ．Ｖａｌｕｅ）

ｐｊｈｍ２＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

ｐｊｈｍ３＝Ｖａｌ．Ｃｅｌｌｓ．Ｖａｌｕｅ，３，１０））

ｐｊｈｍ＝Ｒｅｐｌａｃｅ

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝Ｖａｌ．Ｃｅｌｌｓ．Ｖａｌｕｅ）＋１

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝日期

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝姓名

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝用途

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝金額

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝支票類型

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝ｐｊｈｍ

ＡｃｔｉｖｅＷｉｎｄｏｗ．ＳｅｌｅｃｔｅｄＳｈｅｅｔｓ．ＰｒｉｎｔＯｕｔＣｏｐｉｅｓ：＝１，Ｃｏｌｌａｔｅ：＝Ｔｒｕｅ

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝＂＂

ＥｎｄＩｆ

ｘ＝ｘ＋１

Ｅｌｓｅ

ＭｓｇＢｏｘ＂本程序授權(quán)：龍泉市機關(guān)事務(wù)局＂，，＂非法用戶！請聯(lián)系１３６××××５４５４＂

Ａｐｐｌｉｃａｔｉｏｎ．ＤｉｓｐｌａｙＡｌｅｒｔｓ＝Ｆａｌｓｅ

ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｃｌｏｓｅ

Ａｐｐｌｉｃａｔｉｏｎ．ＤｉｓｐｌａｙＡｌｅｒｔｓ＝Ｔｒｕｅ

ＥｎｄＩｆ

ＥｎｄＳｕｂ

由于篇幅所限，不再對每個語句作詳細(xì)的解釋。為保證由授權(quán)單位使用，在過程還增加了判斷是否為合法單位的語句，可以刪除該部分語句，不影響使用。

支票套打

將工作表１改名為“支票打印”，視圖中的顯示比例調(diào)整為１２５％。

以浙江省的支票尺寸設(shè)置列寬及行高，其他省份如有不同需比照設(shè)置。

列寬：ＡＢＣＤＥＦＧＨＩＪＫＬＭＮ－Ｘ

行寬：１２３４５６７８９１０

以上尺寸除Ｍ列用來微調(diào)外，其他切勿調(diào)整！

合并單元格：Ａ１－Ｂ６；Ｃ１－Ｅ１；Ｆ１－Ｇ１；Ｎ１－Ｘ１；Ｃ２－Ｄ２；Ｅ２－Ｋ２；Ｎ２－Ｘ２；Ｃ３－Ｄ４；Ｅ３－Ｌ４；Ｄ５－Ｇ５；Ａ１１－Ｌ１１；Ｍ１１－Ｘ１１；Ａ１２－Ｂ１２；Ｃ１２－Ｆ１２；Ｇ１２－Ｈ１２；Ｉ１２－Ｊ１２；Ｋ１２－Ｌ１２；Ａ１３－Ａ１８；Ｃ１３－Ｆ１３；Ｇ１３－Ｈ１３；Ｉ１３－Ｊ１３；Ｋ１３－Ｌ１３；Ｃ１４－Ｆ１４；Ｇ１４－Ｈ１４；Ｉ１４－Ｊ１４；Ｋ１４－Ｌ１４；Ｃ１５－Ｆ１５；Ｇ１５－Ｈ１５；Ｉ１５－Ｊ１５；Ｋ１５－Ｌ１５；Ｃ１６－Ｆ１６；Ｇ１６－Ｈ１６；Ｉ１６－Ｊ１６；Ｋ１６－Ｌ１６；Ｃ１７－Ｆ１７；Ｇ１７－Ｈ１７；Ｉ１７－Ｊ１７；Ｋ１７－Ｌ１７；Ｃ１８－Ｆ１８；Ｇ１８－Ｈ１８；Ｉ１８－Ｊ１８；Ｋ１８－Ｌ１８；Ａ１９－Ｂ１９，Ｃ１９－Ｆ１９；Ｇ１９－Ｈ１９；Ｉ１９－Ｊ１９；Ｋ１９－Ｌ１９；Ａ２０－Ａ２５；Ｃ２０－Ｆ２０；Ｇ２０－Ｈ２０；Ｉ２０－Ｊ２０；Ｋ２０－Ｌ２０；Ｃ２１－Ｆ２１；Ｇ２１－Ｈ２１；Ｉ２１－Ｊ２１；Ｋ２１－Ｌ２１；Ｃ２２－Ｆ２２；Ｇ２２－Ｈ２２；Ｉ２２－Ｊ２２；Ｋ２２－Ｌ２２；Ｃ２３－Ｆ２３；Ｇ２３－Ｈ２３；Ｉ２３－Ｊ２３；Ｋ２３－Ｌ２３；Ｃ２４－Ｆ２４；Ｇ２４－Ｈ２４；Ｉ２４－Ｊ２４；Ｋ２４－Ｌ２４；Ｃ２５－Ｆ２５；Ｇ２５－Ｈ２５；Ｉ２５－Ｊ２５；Ｋ２５－Ｌ２５。

單元格填充色及字體顏色：Ａ１－Ｘ２５填充色選養(yǎng)眼點的，其中Ｂ８－B１０是日常使用時唯一需要填寫的單元格，可以用其他容易識別的顏色，Ａ１－Ａ１０；Ｄ２－Ｄ４；Ｃ５；Ｌ１－Ｌ２；Ｑ３－Ｘ３字體顏色選白色，其他單元格默認(rèn)。

單元格內(nèi)容及公式：Ａ１字體２４號，黑體，有效性設(shè)置為序列，內(nèi)容輸入：“現(xiàn)金支票，轉(zhuǎn)賬支票”；Ｃ１、Ａ７填“出票日期”；Ｃ２、Ａ８填“收款人”；Ｃ３填“人民幣”；Ｃ５、Ａ１０填“用途”；Ａ９填“金額”；Ｌ１填“付款行名稱”；Ｌ２填“出票人賬號”；Ｏ３－Ｘ３分別填：“仟”、“佰”、“拾”、“萬”、“仟”、“佰”、“拾”、“元”、“角”、“分”。Ｂ７公式“＝ＮＯＷ”，數(shù)字格式自定義“ｙｙｙｙｍｄ”，Ｂ８如果收款人比較固定可以將有效性設(shè)置為序列，Ｂ１０的用途內(nèi)容也同理。Ｂ９數(shù)字格式為“■＃，＃＃０．００；■－＃，＃＃０．００”即“會計專用，２位小數(shù)，貨幣符號■”，Ｆ１公式“＝ＮＯＷ”，數(shù)字格式自定義“［ＤＢＮｕｍ２］ｙｙｙｙ”，Ｆ２和Ｆ３需套用自定義函數(shù)，公式為“＝中文日期））”及“＝中文日期）））”。Ｅ２公式“＝Ｂ８”，Ｅ３需套用自定義函數(shù)，公式為“＝中文金額”，黑體１６號字加粗縮小字體自適宜較合適，Ｄ５公式“＝Ｂ１０”，Ｎ１填對應(yīng)開戶行，Ｎ２填對應(yīng)賬號，Ｎ４－Ｘ４用來提取小寫金額對應(yīng)位置的數(shù)字，宋體１０號字加粗比較合適，公式

Ｎ４為“＝ＩＦ＞１０，ＭＩＤ－１０，１），＂＂）”

Ｏ４為“＝ＩＦ＞９，ＭＩＤ－９，１），＂＂）”

Ｐ４為“＝ＩＦ＞８，ＭＩＤ－８，１），＂＂）”

Ｑ４為“＝ＩＦ＞７，ＭＩＤ－７，１），＂＂）”

Ｒ４為“＝ＩＦ＞６，ＭＩＤ－６，１），＂＂）”

Ｓ４為“＝ＩＦ＞５，ＭＩＤ－５，１），＂＂）”

Ｔ４為“＝ＩＦ＞４，ＭＩＤ－４，１），＂＂）”

Ｕ４為“＝ＩＦ＞３，ＭＩＤ－３，１），＂＂）”

Ｖ４為“＝ＩＦ＞２，ＭＩＤ－２，１），＂＂）”

Ｗ４為“＝ＩＦ＞１，ＭＩＤ－１，１），＂＂）”

Ｘ４為“＝ＩＦ＞０，ＭＩＤ，１），＂＂）”

Ａ１１填“支票信息”；Ｍ１１填“使用說明”；Ａ１２填“轉(zhuǎn)賬支票啟始號”；Ａ１９填“現(xiàn)金支票啟始號”；Ｃ１２、Ｃ１９填“支票結(jié)束號”；Ｇ１２、Ｇ１９填“份數(shù)”；Ｉ１２、Ｉ１９填“已用”；Ｋ１２、Ｋ１９填“未用”；Ａ１３填“轉(zhuǎn)賬支票”；Ａ１９填“現(xiàn)金支票”；Ｂ１３－B１８；Ｃ１３－C１８填入每本轉(zhuǎn)賬支票的開始號碼和結(jié)束號碼；Ｂ２０－B２５；Ｃ２０－C２５填入每本現(xiàn)金支票的開始號碼和結(jié)束號碼；Ｇ１３公式為“＝ＭＩＤＢ－ＭＩＤＢ＋１”；Ｇ１４－１８、Ｇ２０－２５公式類推；Ｋ１３公式為“＝ＩＦ＝１，，０）”；Ｋ１４－K１８、Ｋ２０－K２５公式類推。以上所有單元格無說明時采用左對齊，為防止誤刪，將有公式的單元格設(shè)置為保護鎖定和隱藏。

建立一個按鈕，打開“視圖”—工具欄－控件工具箱－命令按鈕，將按鈕大小覆蓋Ｃ６－Ｘ１０，名稱為“務(wù)必點擊此處打印”，字體及顏色要醒目，指定宏為原來設(shè)置好的“打印