VBA消息框中的可选文本

Question

当我在VBA中创建msgbox时,用户根本无法与文本交互.就我而言,我希望用户能够突出显示和复制文本.我认为更好的方法是添加一个将文本复制到剪贴板的按钮.有什么建议？

Answer 1

对于此代码:

msgbox "Does Control+C work on a lowly, old message box?"

你可以按ctrl+ c,打开记事本,ctrl+ v你会得到这个:

---------------------------
Microsoft Excel
---------------------------
Does Control+C work on a lowly, old message box?
---------------------------
OK   
---------------------------

Answer 2

如果您想要"可选"的文本,请不要使用MsgBox.使用自定义表单而不是标签使用文本框.然而...

在设计模式下更改文本框的这些属性.

1. SpecialEffect - fmiSpecialEffectFlat
2. BackStyle - 透明
3. 锁定 - 真的

然后使用此代码

Option Explicit

Private Sub UserForm_Initialize()
    Me.Caption = "Message Box"
    TextBox1.Text = "Hello World!"
End Sub

Answer 3

您可以使用输入框而不是消息框

inputbox "Copy the below text", "Copy Text", "Text value"

输入框复制文本