Excel VBA Planilha Variáveis e Sub-rotina retorna nome idade

17 de novembro de 2013 Prof. Expedito Marcondes - Escola SaberExcel VBA 0 Comentários

Planilha Excel VBA Variáveis e subRotina retorna nome idade

Planilha Excel VBA Variáveis e SubRotina retorna nome idade Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),MACRO COM VARIAVEIS PARA RETORNAR NOME , SOBRENOME E IDADE. 2 EXEMPLOS – O primeiro vamos usar uma rotina com argumento e o outro uma simples macro.
‘//==============’
Esse exemplo de com macros usando variáveis e sub-rotina, retorna Nome, SobreNome e Idade

‘//==============’
Sub sbx_macro_nome_idade()
Dim Nome1 As String, SobreNome1 As String, Idade1 As Integer
Nome1 = Range(“A1”)
SobreNome1 = Range(“B1”)
Idade1 = Range(“C1”)
‘retornar nome, sobrenome e idade (A1,B1,C1)
caixa_dialogo Nome1, SobreNome1, Idade1
End Sub
‘//==============’
Private Sub caixa_dialogo(Nome As String, Optional SobreNome, Optional Idade)
If IsMissing(Idade) Then ‘Se a variavel Idade estiver ausente..
If IsMissing(SobreNome) Then ‘Se a variavel SobreNome estiver Ausente, ele exibe apenas o Nome
MsgBox Nome
Else ‘Caso contrário, ele exibe o Nome e sobreNome
MsgBox Nome & ” ” & SobreNome
End If
Else ‘Se a variável está presente Idade…
If IsMissing(SobreNome) Then ‘Se a variável é sobreNome estiver ausente, exibe o Nome e Idade
MsgBox Nome & “, ” & Idade & ” Anos”
Else ‘Senão exiba o Nome, o sobreNome e Idade
MsgBox Nome & ” ” & SobreNome & “, ” & Idade & ” Anos”
End If
End If
End Sub
Isso poderia ser feito também de forma simples veja:
‘//===============’
Sub sbx_retorna_msg()
Dim s, a, b As String
s = [a1].Value
a = [b1].Value
b = [c1].Value
MsgBox s & ” ” & a & “, [ ” & b & ” ] Anos”, vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos
Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.