Descricao: |
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

|