VBA复制按钮，文本框

Question

复制文本，我需要创建一个复制按钮来复制我以前在一个文本框中插入的文本，这一切都在EXCELL

Answer 1

考虑你有一个TextBox名为TextBox1和一个命令命名CommandButton1：

Private Sub CommandButton1_Click() 
    Dim MyData As New DataObject 
    MyData.SetText TextBox1.Text 
    MyData.PutInClipboard 
End Sub 

点击CommandButton1的后，在TextBox1的文本准备在任何适当的地方进行粘贴。