Escola Saberexcel VBA Estudos - o site de quem precisa aprender macros MS Excel VBA

Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), com auxilio de uma variável boleana retorna verdadeiro ou falso,
usando um critério na célula (D5), com Evento_Change da folha de planilha retornam as mensagens abaixo.
essa variavel tipo boolena retorna condições - Verdadeiro ou Falso
' - - - - - - - - - - - - - - - - - - - - - - - - - - -
Se for Verdadeiro = "TREINAMENTO COM MACROS E PLANILHAS PROFISSIONAIS AVANÇADAS"
Se for Falso = "Aprenda Microsoft Excel VBA - praticando com produtos didáticos Saberexcel"

'- - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_variavel_boolean()
Dim vContinua As Boolean
vContinua = Range("D5").Value

If vContinua = True Then [D14].Value = "TREINAMENTO COM MACROS E PLANILHAS PROFISSIONAIS AVANÇADAS"
If vContinua = False Then [D14].Value = "Aprenda Microsoft Excel VBA - praticando com produtos didáticos Saberexcel"

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.



 

Saberexcel - o Site das Macros

Esssa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), é sobre variáveis personalizada, observe que usamos a Instrução Type,
para declararmos as variávies especificas de um carro, como cores, cilindrada e data de fabricação, obviamente que poderiamos por muitas outras variávies personalizadas nesta instrução Type.

Type Veiculo
Cores As String
Cilindrada As Long
DataFabricacao As Date
End Type

Sub variaveis_personalizadas()
Dim X As Veiculo 'Declaração de variável personalizada

X.Cores = "Vermelho" 'atibuição de dados
X.Cilindrada = 2000
X.DataFabricacao = #4/25/2007#

'Leitura dos dados
MsgBox "Este veículo " & X.Cores & " com [ " & _
X.Cilindrada & "] cilindradas(cc), foi fabricado dia: [ " & X.DataFabricacao & " ]"

' Retornando dados para uma determinada célula na folha de planilha
[E9].Value = "Este veículo " & X.Cores & " com [ " & _
X.Cilindrada & "] cilindradas(cc), foi fabricado dia: [ " & X.DataFabricacao & " ]" 'Leitura dos dados

End Sub

(Segundo exemplo de variável personalizada usando a instrução Type (Acima))
Sub variaveis_personalizadas_tabela()
Dim vTabela(20) As Veiculo

'Preenchimento da variável vTabela primeira linha
vTabela(0).Cores = "Vermelho"
vTabela(0).Cilindrada = 2000
vTabela(0).DataFabricacao = #4/25/2007#

'Leitura do conteúdo vtabela(0)
MsgBox "Este veículo " & vTabela(0).Cores & " com [ " & _
vTabela(0).Cilindrada & "] cilindradas(cc), foi fabricado dia: [ " & vTabela(0).DataFabricacao & " ]" _
, vbInformation, "Saberexcel - site das macros" 'Leitura dos dados
End Sub

'Macro para auxíliar no teste
Sub limpar_teste()
[E9].ClearContents
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

Publicidade
Compre com segurança, garantia e ótimos preços