В блоке ячеек заменить нулями отрицательные значения - VB
Формулировка задачи:
Привет всем!!!! Помогите пожайлуста мне решить задачку:
В блоке ячеек А1 : С7 заменить нулями отрицательные значения, подсчитать количество замен и установить размер шрифта в этих ячейках равным 14.
Буду оч благодарен!!!
Решение задачи: «В блоке ячеек заменить нулями отрицательные значения»
textual
Листинг программы
n = 0 For i = 1 To 7 '1-7 For j = 1 To 3 'A-C If Val(Cells(i, j).Text) < 0 Then n = n + 1 Cells(i, j).Formula = 0 Cells(i, j).Font.Size = 14 End If Next j Next i