excel - 計算された値をワークシートの選択したセルにコピーする方法は?

Question

私の現在の計算は、値をメッセージボックスに返します。

「値を貼り付けますか」と尋ねるメッセージボックスをさらに追加して、値を貼り付けるセルを選択できるようにしたいと思います。

計算結果を保持して貼り付ける方法がわかりません。

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

これが役に立てば幸いです、ブルーノ