1樓：匿名使用者
sub aa()
dim i, j, a(5), b(5), t1, t2, t3, t4
for i = 1 to 5
a(i) = cells(3, i)
b(i) = i
next
for i = 1 to 5
for j = i + 1 to 5
if a(i) < a(j) then
t1 = a(j): a(j) = a(i): a(i) = t1t2 = b(j): b(j) = b(i): b(i) = t2end if
next
next
t3 = 0: t4 = ""
for i = 1 to 5
t3 = t3 + a(i)
if t4 = "" then
t4 = cells(1,b(i))
else
t4 = t4 & "," & cells(1,b(i))end if
if t3 >= 20 then cells(5, 1) = t4: exit for
next
end sub
2樓：匿名使用者
從最大的開始進行sum運算，直到sum大於或等於20時結束sum運算。
—— 說的並不清楚，沒法寫**。
3樓：匿名使用者
程式沒有問題，可以輸出s
呼叫格式類似：call isumlarge(25, range("a2:j2"))
b130487，希望對你有用
在 excel vba 中定義類模組，要如何才能自定義 op
不能的，在 vb 中 open 只能是關鍵字，在呼叫時如果某一過程名不符合 vb 的要求，則需要在其兩側加方括號 dim mycollection as new collection dim nextenum as object set nextenum mycollection.newenum 照...
excel vba中，我要對陣列arr 20 求和，必須
最簡單的方法就是定義變數，然後迴圈相加 當然不怕麻煩的話，也可以將陣列中的一個個元素直接用 號累加起來得到最終的和。關於陣列 所謂陣列，就是相同資料型別的元素按一定順序排列的集合，就是把有限個型別相同的變數用一個名字命名，然後用編號區分他們的變數的集合，這個名字稱為陣列名，編號稱為下標。組成陣列的各...
excel如何計算角度正切值，怎麼在excel單元格中填寫角度並算出tan值
愚人談娛樂 1 首先，開啟需要計算的 2 在正弦單元格 也就是b2單元格 輸入公式 sin a2 pi 180 這裡的 a2 代表的是要計算的角度 3 按下回車鍵得到結果 4 在餘弦單元格 也就是c2單元格 輸入公式 cos a2 pi 180 5 按下回車鍵得到餘弦 6 在正切單元格 也就是d2單...