メッセージボックスに「OK」をクリックした後、メッセージボックスに表示された値を別のシートに保存する方法

Question

vbaを使用してExcelでメッセージボックスに表示したデータを新しいシートに保存する方法はありますかvbaを使ってメッセージボックスの「ok」をクリックした後のエントリのように、同じブック内で次々に表示されますか？

これは@MarcinSzaleniecにより示唆されるように、私が試してみましたが、それは動作していないコードである -

Sub Workbook_AfterSave(ByVal Success As Boolean) 
Dim sMsg As String 
sMsg = MsgBox("Values saved in cell " & Replace(Selection.Address, "$", "")) 
If MsgBox(sMsg) = vbOK Then ThisWorkbook.Sheets("Sheet2").Range("A1") = sMsg 

End Sub 

Sub Test() 

Workbook_AfterSave True 

End Sub 

私は他のシートに値を格納したい以下のように「OK」ボタンをクリックした後もちろん

Answer 1

photos-、それがあります。まず格納してから表示する必要があります。 だから

Dim sMsg as String 
sMsg = "Hello" 
Workkbooks("MySheet").Range("A1") = sMsg 
MsgBox sMsg 

を言ってみましょう、あなたは、あなたが欲しいものは何でもそれを行うことができ、変数にし、ワークシートにメッセージを格納しています。

OKを押した後にのみワークシートに印刷したい場合は、

If MsgBox(sMsg) = vbOK Then Workkbooks("MySheet").Range("A1") = sMsg