復制的代碼如下:
訂閱我的程序()
Dim Ti為Double
Ti = Timer '記住開始時間。
獲取數組源的數組。
Dim arr作為變量
Arr = range ("C3: D3 ")。值' * * * * * * * * * * * * * * * * * * * * * * * * * *修改本行的數據源區域。
開始計算
Dim i%，t%，n%，k & amp，s1$，s2$，iSum#，brr$()
For i = LBound(arr，2)至UBound(arr，2) - 1
N = i+1 '初始化n
線路:
S1 = " " '初始化s2。
對於t = n到UBound(arr，2)
數據計算
s1 = s1。"+" & amp；arr(1，t)
s2 = arr(1，I)& amp；s1
判斷並輸出結果。
ISum = Evaluate(s2)'計算總值。
如果iSum & gt= 0且iSum & lt= 2000然後' * * * * * * * *修改該行中結果值的範圍。
K = k+1 '累計數量
ReDim Preserve brr$(1到2，1到k)
brr(1，k) = s2
brr(2，k) = iSum
如果…就會結束
遞歸判斷
如果t = UBound(arr，2 ),則
如果n & ltUBound(arr，2) Then
N = n+1 '重置n
“轉到行”遞歸跳轉
如果…就會結束
如果…就會結束
然後
然後
輸出數據
用range(" B6 ")' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *。
。調整大小(行。數數。行+1，2)。安全，安全。
輸出標題和格式
與。調整大小(1，2)
。Value = Array ("expression "，" result ")'輸出標題。
。HorizontalAlignment = xlCenter '中心對齊。
內飾。Color = 15652798 '背景色:淺藍色
邊框。' LineStyle = xlContinuous '添加邊框。
以…結尾
無法公布的案件處理
Dim m As Long
如果k & gt行。數數。那就劃吧
m = k -(行數。數數。行)
k =行數。數數。排
ReDim Preserve brr$(1到2，1到k)
如果…就會結束
輸出結果和格式
。偏移量(1)。resize (k，2) =工作表函數。轉置(brr)'輸出結果數組。
。偏移量(1)。調整大小(k)。水平對齊= xlleft '左對齊。
。偏移量(1，1)。調整大小(k)。'水平對齊= XL居中'
。偏移量(1)。調整大小(k，2)。邊框。linestyle = xlcontinuous '添加邊框。
彈出提示框
S1 = "計算完成" &；vbLf & ampvbLf & amp"秒:" &；圓形(定時器- Ti，3)
如果m & gt0，則s 1 = s 1 & amp；vbLf & ampvbLf & amp“受行數限制，”&；m & amp"結果被丟棄。"
MsgBox s1，64
以…結尾
末端接頭