2007年09月_northwolves

原创 VBA看数字电影

VBA看数字电影,据说是一位荷兰人的杰作Sub view()Shell "telnet towel.blinkenlights.nl", vbNormalFocusEnd Sub

2007-09-30 23:11:00 1224

原创关于括号式子的计数

CSDNCSDN社区专题开发/技术/项目数据结构与算法超超版主的问题:如果有n对括号，组成一个式子，而且括号的最深嵌套层次为k 满足这个条件的式子一共有几种？如果n=3，k=2则有3种: (())() ()(()) (()()) 能否找到递推公式？ --------------------------------------------------------------

2007-09-30 22:02:00 1236

光年，光走一年的路程。光速！它是速度公认的极限，每秒299792458米，能在眨眼间绕地球七圈半。看见么，就这么快的光，让他跑吧，跑个一年，所度量出来的距离就是一光年了。现在各位把滑鼠移到萤幕的左下角，点“开始”－“程式集”－“附属应用程式”－“小算盘”，都来动手算算它，这一年是31536000秒，一秒跑299792458米，乘出来就9454254955488000米，约等于十万亿公里吧。你说什么

2007-09-29 20:02:00 1176

转载业余兼职的全行业薪酬对照(发表者: swf11519 )

买房，买车，还贷款；购物，逛街，高消费。现代人，特别是年轻人，常常抵御不了物质消费的诱惑，但一份薪水有时用起来实在是捉襟见肘，职场中的“月光族”越来越多了。当然，消极不是方法，聪明的职场人主动出击，谋求新的赚钱途径。于是，“兼职”脱颖而出，成了最受欢迎的业余赚钱方式。兼职不是件新鲜事，在海外也相当流行。欧盟最新公布的就业形势报告显示，目前欧盟范围内共有3000万人从事兼职工作，而且这一数字

2007-09-28 09:40:00 3021

原创双色球历史数据

2003001 10 11 12 13 26 28 11 2003002

2007-09-27 14:46:00 30554 2

原创 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, k As Long, p As Long, a(), b()ReDim matrix(1 To

2007-09-23 21:56:00 2088

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

方法1. 读取注册表:Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long)

2007-09-23 14:31:00 3251

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

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)

2007-09-23 14:23:00 3271

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

VBA增加sheet,如何在出现重名时自动命名?如 Sheets.Add ActiveSheet.Name = "mysheet"如果已经存在名称为“mysheet”的sheet，如何使增加的sheet名称自动加上一个括号变成"mysheet(1)"呢？即类似在某文件夹内不断复制同一文件的效果,代码如下:Sub addsheets()Dim i As Long, sh As

2007-09-23 14:10:00 10505 1

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

Sub 反选()Application.DisplayAlerts = FalseApplication.ScreenUpdating = FalseDim raddress As String, taddress As Stringraddress = Selection.Addresstaddress = ActiveSheet.UsedRange.AddressWith Sheets.Add

2007-09-23 13:57:00 6517

转载 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。 8 1

2007-09-23 11:16:00 13247 1

原创用VBA来解决大数据量计算逆矩阵的问题

EXCEL2003中应用minverse求逆矩阵，该函数在excel中的确存在计算范围上的限制，可能最大的计算范围是52*52。下面给出一个VBA的解法Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Lo

2007-09-21 13:54:00 5173 1

原创一元三次方程求解

Sub SolveCubicEquations(ByVal CubicEquation As String, Optional ByVal x As String = "x", Optional ByRef result As String)Dim a As Single, b As Single, c As Single, d As Single, temp As String, n As By

2007-09-11 23:29:00 8186

northwolves[狼行天下] 的专栏