Задача в Visual Basic

Question

Коротенькая задача для местных программистов: 
 
Найти номер последнего положительного числа из ячеек B10…B20. 
 
Заранее огромное спасибо.

Наталия · Accepted Answer

dim i as integer 
 
for i:=20 to 10 step -1 
if range("B" & i).value > 0 then 
exit sub 
next i 
 
cells(1,1) = "номер: " & i;