【原】VBA批量循環(huán)打印獎(jiǎng)狀：根據(jù)原表數(shù)據(jù)和獎(jiǎng)狀模板，逐份打印所有學(xué)生獎(jiǎng)狀，數(shù)組、字典應(yīng)用

冷茶視界 2024-10-13 發(fā)布于江蘇

展開(kāi)全文

點(diǎn)【關(guān)于本公眾號(hào)】了解一下，歡迎關(guān)注，謝謝！

快速瀏覽

實(shí)用案例

|日期控件 ||簡(jiǎn)單的收發(fā)存||收費(fèi)管理系(Access改進(jìn)版)|

|電子發(fā)票管理助手||電子發(fā)票登記系統(tǒng)(Access版)|

|文件合并 ||表格拆分 ||審計(jì)憑證抽查底稿|

|中醫(yī)診所收費(fèi)系統(tǒng)(Excel版)||中醫(yī)診所收費(fèi)系統(tǒng)(Access版)||銀行對(duì)賬單自動(dòng)勾對(duì)|

|印章使用登記系統(tǒng)|

收費(fèi)使用項(xiàng)目

|財(cái)務(wù)管理系統(tǒng)||工資薪金和年終獎(jiǎng)個(gè)稅籌劃||新稅法下工資表模版|

內(nèi)容提要

根據(jù)模板循環(huán)打印獎(jiǎng)狀
數(shù)字、字典

大家好，我是冷水泡茶，今天在EXCELHOME論壇上看到一個(gè)求助貼：[求助] 利用EXCEL批量打印獎(jiǎng)狀：

具體要求：

1、我是一名教師，因工作關(guān)系經(jīng)常要打印獎(jiǎng)狀，同事交來(lái)的表格如左圖所示。
2、我常用的方法是將本表運(yùn)用函數(shù)調(diào)整成sheet2后做為數(shù)據(jù)源，再應(yīng)用WORD的郵件合并功能合并打印出所有獎(jiǎng)狀。但由于數(shù)量過(guò)多常出錯(cuò)，現(xiàn)尋求能在EXCEL中直接能按名單打印出所有的獎(jiǎng)狀的方法，要達(dá)到的排列效果如sheet3所示。
3、曾在本網(wǎng)站看過(guò)獎(jiǎng)金發(fā)放條的制作，感覺(jué)可行，但苦于不懂VBA，所以請(qǐng)高手幫忙！
https://club./thread-530555-1-1.html?_dsign=176191eb

這讓我想起來(lái)我們?cè)?jīng)分享過(guò)的一個(gè)獎(jiǎng)狀打印案例，有點(diǎn)類似：

學(xué)校運(yùn)動(dòng)會(huì)獲獎(jiǎng)證書(shū)打印模板：窗體篩選批量打印/多關(guān)鍵字模糊搜索

我們一起來(lái)看一下數(shù)據(jù)表格：

1、原表：學(xué)生評(píng)優(yōu)名單表

2、獎(jiǎng)狀模板表：打印模板，除了紅圈處的學(xué)生姓名、獎(jiǎng)項(xiàng)，其他文字是格式文本，可根據(jù)實(shí)際需要修改。

3、還有一張Sheet2表，我們用不到，不去管它。

基本思路：

1、我們采用數(shù)組+字典的方式來(lái)解決。

2、我們先把原表數(shù)據(jù)裝入數(shù)組arr，再循環(huán)arr處理數(shù)據(jù)。

3、我們把獎(jiǎng)項(xiàng)，也就是表中的第一列類別，作為字典dic的key，把第3列學(xué)生名單進(jìn)行分列，存到一個(gè)數(shù)組temp中，作為字典的Item。

4、數(shù)據(jù)處理完，我們?cè)傺h(huán)dic的key，把item取出來(lái)存到數(shù)組temp，再循環(huán)temp，把每個(gè)學(xué)生的姓名與key逐一寫入獎(jiǎng)狀模板表，并打印出來(lái)。

完整示例代碼詳見(jiàn)當(dāng)天另一條推文。

后記

1、其實(shí)，我們也可以不用字典，也就是不必把數(shù)據(jù)裝入字典后再去循環(huán)打印，我們可以在循環(huán)arr原表數(shù)據(jù)的時(shí)候，立即進(jìn)行打印，但是呢，把數(shù)據(jù)裝入字典感覺(jué)踏實(shí)一點(diǎn)，有時(shí)候除了批量打印以外，有可能還需要個(gè)別打印，用字典處理好數(shù)據(jù)比較方便一點(diǎn)。

2、對(duì)于字典的處理方式，我們也可以用一個(gè)嵌套字典，有兩種方式：

（1）以獎(jiǎng)項(xiàng)（類別）為key，每個(gè)學(xué)生為二級(jí)字典的key，item任意；

（2）以學(xué)生姓名為key，獎(jiǎng)項(xiàng)為二級(jí)字典的key，這里主要考慮可能有一個(gè)人得兩個(gè)及以上獎(jiǎng)的情況；如果一個(gè)人只拿一個(gè)獎(jiǎng)，我們也可以只用一級(jí)字典，學(xué)生姓名為key，獎(jiǎng)項(xiàng)為item。

3、原案例中的表格名稱與格式已稍作修改。

好，今天就到這里，我們下期再會(huì)！

~~~~~~End~~~~~~

	安利小店安利的牙膏非常不錯(cuò)，用了以后就不想再用其他的了；洗潔精、洗衣液也是日常必備，用過(guò)都說(shuō)好！
	合谷醫(yī)療合谷醫(yī)療專攻各種疑難雜癥，尤其擅長(zhǎng)抑郁癥、焦慮失眠、兒童神經(jīng)發(fā)育異常、多動(dòng)癥、自閉孤獨(dú)癥、腰頸椎疾病治療，可謂神乎其技！體驗(yàn)過(guò)的直呼早點(diǎn)來(lái)就好了！

喜歡就點(diǎn)個(gè)贊、點(diǎn)在看、留言評(píng)論、分享一下唄！感謝支持！

案例文件分享說(shuō)明：

案例文件可免費(fèi)分享，但需符合以下要求：
請(qǐng)關(guān)注、點(diǎn)贊、點(diǎn)在看、點(diǎn)...、留言，方便的話分享一下就完美啦！如果不便走上面的“流程”，請(qǐng)打賞，萬(wàn)分感謝！
請(qǐng)?zhí)砑由戏轿业暮瞎柔t(yī)療企業(yè)微信，案例文件通過(guò)微信發(fā)送。如有定制需求，亦可通過(guò)微信聯(lián)系。
Excel問(wèn)題，請(qǐng)?jiān)谖恼孪旅媪粞杂懻摚?/span>或者加入我的付費(fèi)交流群提問(wèn)！