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

Question

Вот мой текущий расчет, который возвращает значение в msgbox, то, что я хотел бы сделать, - это еще один запрос на msgbox, который вы хотите пройти мимо значения, затем сможете выбрать ячейку для вставки в нее вычисленного значения , я не могу решить, как сохранить результат вычисления, чтобы его можно было вставить.

Sub CalcmsgboxAcre() 
    On Error Resume Next 
    Dim num As Double 
    num = Application.InputBox(prompt:="Please Enter The Number Of Hectares You Would Like To Calculate Into Acres ", Type:=1) 
    MsgBox Format(num * 2.471054, "#,##0.00") & " Is the Number Of Acre's." 
End Sub 

Answer 1

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

Save = MsgBox("Do you want to paste the result in a cell?", vbYesNo) 

Затем, если ответ да вам нужно попросить ячейку и вставить результат там

If Save = vbYes Then 
    cell = Application.InputBox("In which cell") 
    Range(cell).Value = num * 2.471054 
End If 

Надеется, что это помогает, Бруно