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

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张数”“打印最大数”得到一张清单。

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

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