如何在表格中返回奇数维魔方阵？

作者：绿色风分类：时间：2022-08-17 浏览：123

楼主
liuguansky

Q：如何在表格中返回奇数维魔方阵？
魔方阵是一个N*N的表格，由1至N*N的整数填列而成。它的每行每列及对角线上的和相等。
A：可以采用"右上斜行法"来产生此方阵，具体代码如下：

Sub justtest()
Dim n%
n = InputBox("请输入维数n：", "请输入奇数整数", 5)
Dim m() As Integer, row%, col%, i&, num&
If n Mod 2 = 0 Then Exit Sub
ReDim m(n - 1, n - 1)
row = 0
col = (n - 1) \ 2
i = 1: num = n * n
Do While i <= num
If row = -1 Then row = n - 1
If col = n Then col = 0
m(row, col) = i
If i Mod n = 0 Then
row = row + 1
Else
row = row - 1
col = col + 1
End If
i = i + 1
Loop
Cells(1, 1).Resize(n, n) = m
End Sub

桌面.rar

2楼
海洋之星

跟花花学习VBA

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表