2007 年 9月 23 日随笔档案 - 王峰炬

VBA实现任意n阶幻方的一种填法(n≥3)

摘要：参考http://blog.csdn.net/northwolves/archive/2007/09/23/1796696.aspx的思路,拟代码如下: Sub magicsquare(ByVal n As Long, ByRef matrix())Dim i As Long, j As Long... 阅读全文

posted @ 2007-09-23 21:56 王峰炬阅读(208) 评论(0) 推荐(0) 编辑

在VBA中获取“我的文档”的目录路径

摘要：方法1. 读取注册表: Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As ... 阅读全文

posted @ 2007-09-23 14:31 王峰炬阅读(604) 评论(0) 推荐(0) 编辑

应用API函数在用户窗体中画圆

摘要： Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal l... 阅读全文

posted @ 2007-09-23 14:23 王峰炬阅读(155) 评论(0) 推荐(0) 编辑

VBA增加sheet,重名时自动命名

摘要： VBA增加sheet,如何在出现重名时自动命名?如 Sheets.Add ActiveSheet.Name = "mysheet" 如果已经存在名称为“mysheet”的sheet，如何使增加的sheet名称自动加上一个括号变成"mysheet(1)"呢？即类似在某文件夹内不断复制同一... 阅读全文

posted @ 2007-09-23 14:10 王峰炬阅读(735) 评论(0) 推荐(0) 编辑

反选EXCEL数据区域已选定的单元格

摘要： Sub 反选()Application.DisplayAlerts = FalseApplication.ScreenUpdating = FalseDim raddress As String, taddress As Stringraddress = Selection.Addresstadd... 阅读全文

posted @ 2007-09-23 13:57 王峰炬阅读(294) 评论(0) 推荐(0) 编辑

n阶幻方的填法(n≥3)

摘要：幻方，亦称纵横图。台湾称为魔术方阵。将自然数1，2，3，……n*n排列成一个n*n方阵，使得每行、每列以及两对角线上的各个数之和都相等，等于n/2*(n*n+1)，这样的方阵称为幻方。例如：把1，2，3，4，5，6，7，8，9填入3*3的格子，使得：每行、每列、两条对角线的和是15。 ... 阅读全文

posted @ 2007-09-23 11:16 王峰炬阅读(633) 评论(0) 推荐(0) 编辑

王峰炬