1樓：我的王是金閃閃
d列為0，不再往下計算d列資料，e列為0,不再往下計算e列資料。
還是d為0，則d,e列相同行的下面均不計算，或者e為0，de列相同行均不往下計算
還是d為0，且e為0，才不計算下面的？？很難分別你的意思。
sub mysub()
dim i as integer
end sub
2樓：匿名使用者
直接計算出再判斷不是更好？
下面的只是計算d e 列，如果你要計算其他還要稍微修改。
sub aaa()
dim r as long, i as long
dim r1 as range, r2 as range
r = range("a65536").end(xlup).row
range("d1").resize(r).formula = "=if(sum(a2:c2)>50,1,0)"
set r1 = cells.find("1", lookin:=xlvalues, lookat:=xlwhole)
set r2 = r1
if r1 is nothing then
range("e1").resize(r).formula = "=if(max(a2:c2)>10,1,0)"
else
dor1.offset(0, 1).formula = "=if(max(a2:c2)>10,1,0)"
set r1 = columns("d").find("1", r1, lookin:=xlvalues, lookat:=xlwhole)
loop until r1.address = r2.address
end if
end sub
VB 用函式實現1 2！ 3！
private sub form click dim i,j as integer dim temp,answer as doublefor i 1 to 10 temp 1 for j i to 1 step 1temp temp j next j answer answer tempnext i...
用EXCEL函式實現功能，用EXCEL函式實現一個功能
應該用 sumif a 2 a 8,a2,c 2 c 8 其中的a2 a8,c2,c8要用絕對引用,且修改為紀錄總行數 如圖所示 公式為 sumif a2 a5,a2,c2 c5 試試吧，但願能夠幫助您！除了用公式 sumif a a,小二 c c 還可以可以用篩選功能 排序和篩選 篩選 姓名列篩選...
怎樣用vb實現簡單的翻譯，用vb製作翻譯器
public function convertstring byval strtext as string dim stra as variant stra a b c d e f g h i j k l m n o p q r s t u v w x y z a b c d e f g h i j...