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

自动生成舒尔特表格

假设结果生成后显示在A1:E5单元格区域，鼠标右击工作表标签，选择“查看代码”，输入如下代码：

Sub 生成舒尔特方格()

Dim i, j, k As Integer

Dim x(25) As Integer

For i = 1 To 25

x(i) = (25 - 1) * Rnd() + 1

Do While WorksheetFunction.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

For i = 1 To 5

For j = 1 To 5

k = k + 1

Cells(i, j) = x(k)

Next

Next

End Sub

将宏安全性设为中，重新启动文档后选择启用宏即可。只要运行宏“生成舒尔特方格”，就可得到不同组合的舒尔特5*5的表格。

你还可以通过视图——工具栏——窗体，打开窗体工具栏，插入一个按钮用于运行该宏，这样平时只要按下这个按钮，瞬间可以得到不同组合的舒尔特方格。