vba
文章平均质量分 62
djy_623047237
这个作者很懒,什么都没留下…
展开
-
考试排座位顺序,要求校内同班不相邻
考试到要到了,有多个学校,每个学校班数不尽相同。需要将这些学生以学校为单位重新随机排顺序,要求就是校内尽量做到同班不相邻,在这一前提下再做到随机排位基本思想是分三步:第一步:把人数最多班(假设人数为n)的学生排在一数组(大小为2n)的奇数序号位置中(1,3,5……2n-1),偶数位置空出来(2,4,6……2n-2)供第二步使用,同时该班人数置为0第二步:在剩下的班中找出人数最多的班: 1、如果人数也为n,则将这个班的学生随机填入上一数组的偶数位置(2、4、6……2n...原创 2021-01-20 11:14:33 · 2471 阅读 · 1 评论 -
在excel中用VBA生成PPT图表
常常需要按照excel中的数据来在PPT中生成图表展示出来,有的方法是在excel生成好图表,再复制到ppt中,这里不采用。这里先将excel数据读进数组,再在PPT中生成图表,将数组中的数据写进图表中的数据源里面,更改其数据源的默认区域。Sub exctoppt()Dim pt As PowerPoint.Application, ob As PowerPoint.Shape, chartsheet As WorksheetDim arr1()sourceaddress$ = Range(原创 2020-06-18 16:14:44 · 2919 阅读 · 1 评论 -
用VBA生成word文档的准考证
数千人考试,需要做准考证,虽然可以用文档合并,但由于种种原因,只能用VBA来做了。原始数据在xlsx文件中,表头:把需要做的准考证做成“准考证模板.docx”,只一页:并与xlsx文件放在一起,当前目录下建一目录 photo ,里面放的是照片,所有照片的文件名都是 身份证号.jpg,在xlsx中写VBA代码:Sub zkz() Dim wd As New Word.Application, shp As Object, ar() photopath$ = ThisW原创 2020-06-15 22:36:20 · 858 阅读 · 0 评论 -
转网上筛选素数的代码及其说明(全部来自于网络)
转一段查素数的vba代码转载 2017-11-19 21:10:36 · 223 阅读 · 0 评论 -
vba两集合的交、并、补集
两集合的交、并、补集原创 2017-11-20 10:33:23 · 3666 阅读 · 0 评论