VBA复制按钮从文本框中复制文本

Question

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

Answer 1

假设您有一个名为TextBox1的TextBox和一个名为CommandButton1的CommandButton：

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

单击CommandButton1后，TextBox1上的文本就可以粘贴到任何适当的位置。