欢迎来到天天文库
浏览记录
ID:55412128
大小:11.00 KB
页数:1页
时间:2020-05-12
《自动生成舒尔特表格--亲试.doc》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、自动生成舒尔特表格假设结果生成后显示在A1:E5单元格区域,鼠标右击工作表标签,选择“查看代码”,输入如下代码:Sub生成舒尔特方格() Dimi,j,kAsInteger Dimx(25)AsInteger Fori=1To25 x(i)=(25-1)*Rnd()+1 DoWhileWorksheetFunction.CountIf(Range(Cells(1,256),Cells(i,256)),x(i))>0 x(i)=(25-1)*Rnd()+1 Loop Cells(i,256)=x(i
2、) Next k=0 Fori=1To5 Forj=1To5 k=k+1 Cells(i,j)=x(k) Next NextEndSub将宏安全性设为中,重新启动文档后选择启用宏即可。只要运行宏“生成舒尔特方格”,就可得到不同组合的舒尔特5*5的表格。你还可以通过视图——工具栏——窗体,打开窗体工具栏,插入一个按钮用于运行该宏,这样平时只要按下这个按钮,瞬间可以得到不同组合的舒尔特方格。
此文档下载收益归作者所有