написать макрос функции ЕСЛИ

[tomdetom]

помогите пожалуйста, не догоняю, как сделать

[staniiislav]

Sub aaa
Dim i as Long
For i = 1 to 10
  if cells(i,1)>0 then
    cells(i,2) = "Больше нуля"
  Else
   cells(i,2) = "Не больше нуля"
  end if
next i
end sub

[DiemonStar]

if cells(i,1)>0 then
    cells(i,2) = "Больше нуля"
  Else
   cells(i,2) = "Не больше нуля"
  end if

по-моему, так будет короче:

Cells(I,2) = IIF(Cells(I,1) > 0, "Больше нуля", "Не больше нуля")

[nerv]

http://programmersforum.ru/showthread.php?t=226423