Иван
Помогите с VBA, пожалуйста.
Нужно составить программу. Если в ячейках а1, а2, а3 есть положительные значения, то подсчитать их количество.
Нужно составить программу. Если в ячейках а1, а2, а3 есть положительные значения, то подсчитать их количество.
sub ppp()
kolvo = 0
if a1>0 then
kolvo = kolvo+1
endif
if a2>0 then
kolvo = kolvo+1
endif
if a3>0 then
kolvo = kolvo+1
endif
msgbox("положительных чисел: "+kolvo)
end sub