自动生成舒尔特表格--亲试.doc

《自动生成舒尔特表格--亲试.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的表格。你还可以通过视图——工具栏——窗体，打开窗体工具栏，插入一个按钮用于运行该宏，这样平时只要按下这个按钮，瞬间可以得到不同组合的舒尔特方格。