Макросы

[rob7777]

Добрый день! Не получается выполнить задание.
Установить на лист элемент управления CommandButton.
При нажатии кнопки выполняется запрограммированное действие:
- ввод в окно ввода некоторой константы;
- увеличение числовых данных в выделенном фрагменте на заданную константу.

я могу задать через макрос ввод константы, но как увеличить на эту константу не понимаю, да еще и через button

Sub запрос_новый()
'
' запрос_новый Макрос

'
'
Dim a As Double

a = (InputBox("Ввод константы :", "константа"))
' вызываем InputBox для получения переменной a
If a<>0 Then увеличить

End Sub

[eikhner]

Лист1.TextBox1.Text = Лист1.Cells(1, 1) ' ячеика с константой отобразилась в окне бокса
Лист1.Cells(2, 2) = Лист1.Cells(2, 2) + Лист1.TextBox1.Text ' ячеика увелич на константу

[kuklp]

В задании текстбокса нет. Зато есть:

- увеличение числовых данных в выделенном фрагменте на заданную константу.

Public Sub www()
    Dim a#, c As Range
    On Error Resume Next ' на случай, если в выделении ячейки не с числами
    a = InputBox("Введите число для сложения")
    If Not IsNumeric(a) Then Exit Sub ' на случай, если ввели не число
    For Each c In Selection.Cells
        c.Value = c.Value + a
    Next
End Sub

[rob7777]

kuklp, спасибо,работает)