Виктор
простая задача по VBA
Дано 10 случайных чисел из диапазона [-10;10]. Числа разместить в столбце B. Определить и записать в ячейку A1 сумму положительных чисел, больших 5.
Дано 10 случайных чисел из диапазона [-10;10]. Числа разместить в столбце B. Определить и записать в ячейку A1 сумму положительных чисел, больших 5.
sub ppp()
sss = 0
for ii = 1 to 10
slnum = -10+20*rnd()
cells(ii,2) = slnum ' записываем в столбец В
if slnum > 5 then
sss = sss+slnum
endif
nexr ii
cells(1,1) = sss ' записали сумму в А1
end sub