ExcelVBA实现招聘工作多学科多页批量打印抽签卡片

2022-10-25 13:39:59 浏览数 (1)

ExcelVBA实现招聘工作多学科多页批量打印抽签卡片

【问题】某著名大企业要招聘岗位如下

现在工作人员要做的事是:打印抽签卡,给应聘者要抽签得到答辩的顺序,要求如下:

(1)等于或大于15,239,34,164……的数字的张数,

(2)尽可能的省纸张,

(3)每个岗位的抽签卡片标名那个岗位的。

(4)批量

你会怎么做,想一想

【目标】重复的工作自动化,重点是以后也可以利用,千万不要每年都重复的复制粘贴的工作

【解决方法】

(1)设计出一个模板如下,一张A4纸,打印8张卡片,

(2)如15人,2页就可以打16个卡片,239人30页就可以打240个卡片满足要求,……如下

(3)请出VBA小程序:首先计算出页数=数量/8再向上取整=CEILING(E2/8,1),再*8可以得出打印的最大数

(4)第一个岗位,我们要把标识统一标识为“学科:(岗位-AAAA)抽签卡”,再从1到2打印,完成后第二个岗位,标识要变化为“学科:(岗位-BBBB)抽签卡”再从1到30打印……,

(5)好了思路完成了。

=====代码=====

=======界面=======

【使用方法】

1.输入“岗位”

2.输入“报考人数”

3.点击:多科多页批量打印就可以啦

【代码解析】:

(1)首先自动取得S1:T最后一行存入数组,

(2)再矢循环数组每一个循环的工作是:首先修改标识,再页数循环,再来一次,

(3)程序完成会自动填写“打印A4张数”“打印最大数”得到一张清单。

你只要点击按钮就可以啦,放足纸张,去睡一会儿,睡醒了就可以拿了

=====今天学习到此====

0 人点赞