单击＆＃34后，如何将消息框中显示的值存储到另一个工作表中;确定＆＃34;在消息框上

Question

有没有办法可以将我在excel中的消息框中显示的数据一个接一个地存储到同一工作簿中的新工作表中，就像点击＆＃34; ok＆＃34;在使用vba的消息框上？

这是我按照@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

我希望在点击＆＃34之后将值存储在其他工作表中;确定＆＃34;按钮如下图所示 -

Answer 1

当然，确实如此。您必须先存储它，然后显示。 让我们说

<div class="section left-content side-map">
    <div class="container" style="border:1px solid #ccc;">
        <div class="row">
        <div class="col-sm-8 col-lg-7 col-lg-offset-1">
            Content - remain unchanged
        </div>
        <div class="col-sm-4 col-lg-4 text-right" style="padding-right:0;">
            <div id="contact-map">
                Map here - need to extend to viewport edge
            </div>
        </div>
    </div>
    </div>
</div> 

因此，您已将消息存储在变量和工作表中，无论您想要什么，都可以使用它。

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

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