Добавление записи InputBox к существующему номеру в ячейке

Question

Я хочу, чтобы мой InputBox добавил к существующему номеру.

Sub Addnumber ()
Dim number As Variant
number = InputBox("Enter number")
Range("D4").Value = number
End Sub

Так что, если число 4 уже находится в ячейке D4, и я пишу 4 в поле ввода, тогда я хочу 8 в D4.

Answer 1

Это подтвердит, если и значение ячейки, и вход являются числами, затем добавьте два и выведите результат.

РЕДАКТИРОВАТЬ: Добавлены варианты для работы с указанным c диапазоном или текущей выбранной ячейкой. Спасибо @JvdV за указание параметров Application.Inputbox ...

EDIT2: Как указывало @JvdV, лучше полностью определить диапазон, если вы работаете с указанным c диапазоном (тогда эта строка: Set evalCell = Range("D4") должно быть что-то вроде Set evalCell = ThisWorkbook.Worksheets("Name of your sheet").Range("D4"))

Specifi c Диапазон:

Public Sub AddNumberSpecificRange()
    Dim number As Variant
    Dim evalCell As Range
    number = Application.InputBox(Prompt:="Enter number", Type:=1)
    Set evalCell = Range("D4")
    If IsNumeric(evalCell.Value) And IsNumeric(number) Then
        evalCell.Value = evalCell.Value + number
    End If
End Sub

Работа с выбранной ячейкой:

Public Sub AddNumberActiveCell()
    Dim number As Variant
    number = Application.InputBox(Prompt:="Enter number", Type:=1)
    If IsNumeric(ActiveCell.Value) Then
        ActiveCell.Value = ActiveCell.Value + number
    End If
End Sub