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张数”“打印最大数”得到一张清单。
你只要点击按钮就可以啦,放足纸张,去睡一会儿,睡醒了就可以拿了
=====今天学习到此====