Excel planilha vba textbox copia dados para area de transferencia windows

Seg, 29 de Novembro de 2010 16:53 Expedito Marcondes
Imprimir

Saberexcel - o site de quem precisa Aprender Macros microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA, copia os dados de uma TextBox(Caixa de Texto) para a área de transferencia do Windows,
isto é, guardando na memória para ser descarregado com o comando Colar (Ctrl + V) ou simplesmente colar(Aplicativo)
cursos microsoft Excel VBA -
Private Sub CommandButton1_Click()
TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(TextBox1)
SendKeys ("^c") ' observem que neste código o procedimento aciona a tecla Ctrl + C
End Sub


Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub




Observem um exemplo de ClipBoard (area de transferencia) control + v - descarrega dados
Exemplo dos métodos Copy, GetFromClipboard e GetText e do objeto DataObject

O exemplo a seguir demonstra a movimentação dos dados de um TextBox para a Área de transferência, da Área de transferência para um DataObject e de um DataObject dentro de outro TextBox. O método GetFromClipboard transfere os dados da Área de transferência para um DataObject. Os métodos Copy e GetText também são utilizados.

Para utilizar este exemplo, copie esse código de exemplo na parte de Declarações de um formulário. Certifique-se de que o formulário contenha:

Dim MyData as DataObject

Private Sub CommandButton1_Click()
    'Need to select text before copying it to Clipboard
    TextBox1.SelStart = 0
    TextBox1.SelLength = TextBox1.TextLength
    TextBox1.Copy

    MyData.GetFromClipboard
    TextBox2.Text = MyData.GetText(1)
End Sub

Private Sub UserForm_Initialize()
    Set MyData = New DataObject
    TextBox1.Text = "Move this data to the " _
        & "Clipboard, to a DataObject, then to "
        & "TextBox2!"
End Sub 





 


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Tags:
Última atualização em Ter, 23 de Agosto de 2011 10:08