[已解决]三个单元只要一个为空就不执行公式运算

15968725770

三个单元只要一个为空就不执行公式运算

最佳答案

月排行榜 / 总排行榜

cutecpu

2022-12-9 19:31

sub demo()
   a=[b4:r11]
   for i = 1 to ubound(a)
      a(i,17)=""
      if a(i,3)<>"" and a(i,10)<>"" and a(i,11)<>"" then
         a(i,17)=INT((a(i,1)-SQRT(a(i,1)^2-4*((a(i,11)/a(i,10))/0.02491/(a(i,3)/1000))))/2*1000)/1000
      end if
   next
   [b4:r11]=a
end sub

跳转到最佳答案楼层

cutecpu

sub demo()
   a=[b4:r11]
   for i = 1 to ubound(a)
      a(i,17)=""
      if a(i,3)<>"" and a(i,10)<>"" and a(i,11)<>"" then
         a(i,17)=INT((a(i,1)-SQRT(a(i,1)^2-4*((a(i,11)/a(i,10))/0.02491/(a(i,3)/1000))))/2*1000)/1000
      end if
   next
   [b4:r11]=a
end sub