EXCELer Tudo sobre EXCEL em Português
Se pretendermos criar uma mensagem de informação a partir de um botão de comando, como no exemplo seguinte,
podemos utilizar um pouco de VBA.
O Código:
Private Sub CommandButton1_Click()
Dim Ops(1 To 3) As String
Dim Msg As String
Dim Texto As String
Application.Cursor = xlNormal
Ops(1) = "Elaborado por: "
Ops(2) = "EXCELer, "
Ops(3) = "Vilamoura, Julho de 2005"
Texto = Ops(1) + vbCr
Texto = Texto + Ops(2) + vbCr
Texto = Texto + Ops(3)
Msg = MsgBox(Texto, Buttons:=vbInformation, Title:="AUTOR")
Select Case Msg
End Select
End Sub