Как я могу объединить несколько ПЧ на одной линии

Question

у меня есть следующий код, который не работает:

If Range("I69") > 0 and If Range("I70") > 0 Then
DoSomeCalc's
end if

Как я могу сделать эту функцию правильно?

Answer 1

В VBA вам не нужно повторять If , просто используйте разъемы (and , or , и т.д.):

If Range("I69") > 0 and Range("I70") > 0 Then
    DoSomeCalc's
End if