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




 Baixe o exemplo de planiha contendo o exemplo de macro acima:
Excel planilha vba variaveis personalizadas instrucao type (68.18 KB)

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