舒尔特表格(excel舒尔特方格，制作，下面是10*10的，生成方法，帮忙做个5*5的)
发布时间：2022-09-25 21:45
浏览量：13
假设结果生成后显示在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)
Next
k=0
Fori=1To5
Forj=1To5
k=k+1
Cells(i,j)=x(k)
Next
Next
EndSub将宏安全性设为中，重新启动文档后选择启用宏即可。只要运行宏“生成舒尔特方格”，就可得到不同组合的舒尔特5*5的表格。你还可以通过视图——工具栏——窗体，打开窗体工具栏，插入一个按钮用于运行该宏，这样平时只要按下这个按钮，瞬间可以得到不同组合的舒尔特方格。我做了一个，假如你需要的话，留下联系方式，发给你。
标签：