当 msgbox 打开时允许 function/loop 到 运行 VBA
Allow function/loop to run while msgbox is open VBA
我正在完成一个程序，想为 "about" 选项卡做一些 花哨 的事情。我非常喜欢复活节彩蛋之类的东西，并且想做一些很酷的事情。我的想法是当按下按钮时，运行 一个函数来对单元格进行颜色拼贴，而 msgbox pop 说 "hey thanks for using my program" 或类似的东西，然后函数在 msgbox "ok" 已被点击。有什么简单的方法可以做到这一点？它不是特别重要，但它对未来的应用程序也非常有用。
这就是我想要的：
do while msgbox <> ok
'something amazing I guess
next
我找不到任何类似的东西；话虽如此，我可能没有问正确的问题。提前致谢！
在我看来，您可以创建一个在单击事件时打开的非模态表单，例如：
Do While msgbox("Hey thanks for using my Kick-ass," & Vbcrlf & _
" better then you ever thought possible program",vbokonly,"Title of Program here") <> vbok
'tell you form do colour tiles and any form of magic you want here
next
Vbok，就是Msgbox返回的内容。
我正在完成一个程序，想为 "about" 选项卡做一些 花哨 的事情。我非常喜欢复活节彩蛋之类的东西，并且想做一些很酷的事情。我的想法是当按下按钮时，运行 一个函数来对单元格进行颜色拼贴，而 msgbox pop 说 "hey thanks for using my program" 或类似的东西，然后函数在 msgbox "ok" 已被点击。有什么简单的方法可以做到这一点？它不是特别重要，但它对未来的应用程序也非常有用。
这就是我想要的：
do while msgbox <> ok
'something amazing I guess
next
我找不到任何类似的东西；话虽如此，我可能没有问正确的问题。提前致谢！
在我看来，您可以创建一个在单击事件时打开的非模态表单，例如：
Do While msgbox("Hey thanks for using my Kick-ass," & Vbcrlf & _
" better then you ever thought possible program",vbokonly,"Title of Program here") <> vbok
'tell you form do colour tiles and any form of magic you want here
next
Vbok，就是Msgbox返回的内容。