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的文本準備在任何適當的地方進行粘貼。