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:
- Dois controles TextBox denominados TextBox1 e TextBox2.
- Um CommandButton denominado CommandButton1.
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
