返回列表 上一主題 發帖

請問如何將存檔如表格一樣

本帖最後由 bobomi 於 2014-9-20 19:10 編輯

a =  -(i = 1)  
當 i = 1 時,         a = 1
當 i = 其他值 時, a = 0

b = Len(.Cells(i, j)) * a  ->  當 i = 1 時,  b = Len(.Cells(i, j)) * 1 = Len(.Cells(i, j))
b = Len(.Cells(i, j)) * a  ->  當 i = 其他值 時,  b =  Len(.Cells(i, j)) * 0 = 0

意即用數學式取代 IF or IIF

IF i = 1 then
   b = Len(.Cells(i, j))
else
  b = 0
end if

TOP

本帖最後由 bobomi 於 2014-9-20 22:55 編輯

vba 的 True  其實就是 = -1
vba 的 False  其實就是 = 0

-(i = 1)  = - True = - (-1) = 1

TOP

        靜思自在 : 受人點水之恩,須當湧泉以報。
返回列表 上一主題