在消息框中单击“确定”后，如何将消息框中显示的值存储到其他表单中

有没有什么办法，我可以存储在excel中使用vba的消息框中显示的数据到相同的工作簿中的新工作表，像使用vba单击消息框上的“ok”之后的条目？

这是我已经尝试了@MarcinSzaleniecbuild议的代码，但它不工作 –

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 

我想在点击下面的照片中的“确定”button之后将值存储在其他工作表中，

Answer 1

当然如此。 您必须先存储它，然后显示。 说吧

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

所以，你已经把你的消息存储在variables和工作表中，你可以用它来做任何你想要的。

如果您想在按下ok后将其打印在工作表中，您可以;

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