王峰炬

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

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

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

摘要：买房，买车，还贷款；购物，逛街，高消费。现代人，特别是年轻人，常常抵御不了物质消费的诱惑，但一份薪水有时用起来实在是捉襟见肘，职场中的“月光族”越来越多了。 当然，消极不是方法，聪明的职场人主动出击，谋求新的赚钱途径。于是，“兼职”脱颖而出，成了最受欢迎的业余赚钱方式。兼职不是件新鲜事，在海... 阅读全文

摘要：2003001 10 11 12 13 26 28 11 ... 阅读全文

摘要：参考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... 阅读全文

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

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

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

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

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

摘要：EXCEL2003中应用minverse求逆矩阵，该函数在excel中的确存在计算范围上的限制，可能最大的计算范围是52*52。下面给出一个VBA的解法 Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Des... 阅读全文

摘要：Sub SolveCubicEquations(ByVal CubicEquation As String, Optional ByVal x As String = "x", Optional ByRef result As String)Dim a As Single, b As Single... 阅读全文