王峰炬

摘要： 1集合的方法： Sub getallcolor()Dim sh As Worksheet, x As New Collection, colors(), c As Range, i As LongOn Error Resume NextFor Each sh In SheetsFor Each c... 阅读全文

摘要： Function LCS(ByVal A As String, ByVal B As String) As StringIf Len(A) * Len(B) = 0 Then LCS = "": Exit FunctionDim la As Integer, lb As Integer, acha... 阅读全文

摘要： 在a1,a2,a3,a4单元格内输入数字,如果能算24点的话在b列显示解法,如果有多种解法则分别在b1,b2...中显示: Sub get24p()Const p24 = "123412431324134214231432213421432314234124132431312431423214... 阅读全文

摘要： 下面代码将实现任意n(3≤n≤256)阶幻方，显示在EXCEL的 A1:IV256中 Sub magicsquare(ByVal n As Long, ByRef matrix())Dim i As Long, j As Long, k As Long, p As Long, a(), temp ... 阅读全文