excel - 将变量的内容复制到剪贴板 VBA (Excel 2013)

Question

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

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

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