vba excel range описание

Ответ от Makfromkz[гуру]
Dim R As Range Описание переменной R +-With ActiveSheet в активном листе | Set R = Selection переменной R присваиваем область выделения | t = TextBox1.Value из текстбокса берем числовое значение t | R.Activate активируем выделенную область | +-For i = 1 To R.Rows.Count цикл по строкам выделения | | +- For J = 1 To R.Columns.Count цикл по столбцам выделения | | | R(i, J) = R(i, J).Value + t к каждой ячейке выделения прибавляем t | | +- Next J закрываем оператор цикла по столбцам | +-Next i закрываем оператор цикла по строкам +-End With закрываем оператор With