. 雍正的过失 1.雍正大兴文字狱,株连人众,处刑严酷 2.雍正遵奉重农业、轻工商的信条 3.雍正在对外交往中亦固步自封 4.雍正还好大喜功,急于求成 . 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张数”“打印最大数”得到一张清单。 你只要点击按钮就可以啦,放足纸张,去睡一会儿,睡醒了就可以拿了 . . =====今天学习到此==== |
|