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