Entrada e saída simples em modo gráfico com VBA

No Visual Basic for Applications (VBA) do Microsoft Excel é possível fazer o mesmo que fizemos no VB, incluindo o preenchimento de uma célula da planilha com o mesmo texto digitado no formulário simples contendo os controles painel, rótulo, caixa de texto e botão.  Clicar um botão é o evento que orienta esta aplicação.  O texto digitado nas caixas de texto é mostrado em um rótulo e em uma caixa de texto desabilitada, após o pressionamento dos botões “Entrar” e “Concatenar”.  Os outros dois botões têm ações óbvias.
Veja a seguir ilustrações da aplicação em tempo de execução e seu respectivo código.


Private Sub Workbook_Open()
    frmIO.Show
End Sub

Private Sub cmdConcatenar_Click()
    lblSaida.Caption = txtNome.Text & " " & txtSobrenome.Text
    txtSaida.Text = txtNome.Text & " " & txtSobrenome.Text
    Me.Caption = txtNome.Text & " " & txtSobrenome.Text
    Range("A1").Value = txtNome.Text & " " & txtSobrenome.Text
End Sub

Private Sub cmdEntrar_Click()
    lblSaida.Caption = txtNome.Text & txtSobrenome.Text
    txtSaida.Text = txtNome.Text & txtSobrenome.Text
    Range("A1").Value = txtNome.Text & txtSobrenome.Text
End Sub

Private Sub cmdLimpar_Click()
    txtNome.Value = ""
    txtSobrenome.Value = ""
    lblSaida.Caption = ""
    txtSaida.Value = ""
    Me.Caption = "Entrada e Saída"
    txtNome.SetFocus
    Range("A1").Value = ""
End Sub

Private Sub cmdSair_Click()
    End
End Sub

Comentários