Question

我知道这应该是一个非常简单的解决方案，但我无法理解它。

我只是制作一个简单的按钮，将“输出”范围内的值复制到我的剪贴板。

Private Sub CommandButton1_Click()
Dim Output As String
    Output = Range("Output")
    MsgBox (Output + " Text has been copied")
End Sub

我希望输出复制到我的剪贴板。

编辑：

非常感谢萨姆

Answer 1

我做了180并改变了它，

以下解决方案：

Private Sub CommandButton1_Click()
Dim myData As DataObject
Dim Output As String

Output = UCase(InputBox("Type Text Here"))

If Output = "" Then
End
Else
End If
Set myData = New DataObject
myData.SetText Output
myData.PutInClipboard
MsgBox (Output + " text has been copied")
End Sub

Answer 2

您最好将Output声明为对象变量（或者更具体地说，作为范围）。

然后，您可以使用消息框中范围的值，同时将值复制到剪贴板。

Private Sub CommandButton1_Click()
    Dim Output As Range
    Set Output = Range("Output")

    Output.Copy
    MsgBox (Output + " Text has been copied")
End Sub

Answer 3

我假设你想要一个名为“输出”的Values的{{1}}

下面的脚本将添加连接（如WorkSheetFunction“Concantenate”），然后将其显示在Range中并将其复制到ClipBoard。

MsgBox

将变量的内容复制到剪贴板VBA（Excel 2013）

3 个答案: