Dim R As Range
With ActiveSheet
Set R = Selection
t = TextBox1.Value
R.Activate
For i = 1 To R.Rows.Count
For J = 1 To R.Columns.Count
R(i, J) = R(i, J).Value + t
Next J
Next i
End With
опишите действие каждой строки программы vba ,так чтобы это понял даже самый неопытный пользователь.
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
⇢