Classes em VBA

Olá A todos, após um bom tempo sem postar estou cheio de novidades.

O problema é o tempo!
Abaixo segue como desenvolver usando Classes em VBA!

Uso de Classes

Para ficar claro vamos ver o exemplo abaixo, será criado uma classe chamada Empregado.

como inserir classe

Nessa classe vamos colocar instruções de como criar objetos do tipo Empregado, e ela terá três propriedades: Nome, Endereço e Salário.

Ou seja, após criar a classe Empregado, copie o código abaixo e cole em sua classe Empregado criada:

______________________________________________________

Option Explicit

'Esta Classe possiu três propriedades: Nome, Endereço e Salário,
'representados pelas variáveis pNome, pEndereço e pSalário, respectivamente.

Private pNome As String
Private pEndereço As String
Private pSalário As Double

'Abaixo seguem as declarações de propriedade de como são lidas e gravadas.

'Propriedade Nome:
Public Property Get Nome() As String
Nome = pNome
End Property
Public Property Let Nome(s As String)
pNome = s
End Property

'Propriedade Endereço:
Public Property Get Endereço() As String
Endereço = pEndereço
End Property
Public Property Let Endereço(s As String)
pEndereço = s
End Property

'Propriedade Salário:
Public Property Get Salário() As Double
Salário = pSalário
End Property
Public Property Let Salário(d As Double)
pSalário = d
End Property

Option Explicit

'Esta Classe possiu três propriedades: Nome, Endereço e Salário,

'representados pelas variáveis pNome, pEndereço e pSalário, respectivamente.

Private pNome As String

Private pEndereço As String

Private pSalário As Double

'Abaixo seguem as declarações de propriedade de como são lidas e gravadas.

'Propriedade Nome:

Public Property Get Nome() As String

Nome = pNome

End Property

Public Property Let Nome(s As String)

pNome = s

End Property

'Propriedade Endereço:

Public Property Get Endereço() As String

Endereço = pEndereço

End Property

Public Property Let Endereço(s As String)

pEndereço = s

End Property

'Propriedade Salário:

Public Property Get Salário() As Double

Salário = pSalário

End Property

Public Property Let Salário(d As Double)

pSalário = d

End Property

_____________________________________________________________
Conforme o código para cada uma das propriedades existe um procedimento Get e outro Let.

O Get é chamado quando se deseja ler o valor de uma propriedade. Ou seja ler o valor que já existe na classe
O Let é chamado quando se deseja atribuir um valor à uma propriedade, em outras palavras quando você deseja inserir um valor na classe

Para utilizarmos a classe Empregado vamos criar um módulo (comum, e não de classe) conforme código abaixo(copie e cole):

____________________________________________________________

Sub Empregados()

Dim emp As Empregado
Set emp = New Empregado

emp.Nome = "Felipe"
emp.Endereço = "Rua A, 12/901"
emp.Salário = 1000

Debug.Print emp.Nome
Debug.Print emp.Endereço
Debug.Print emp.Salário

End Sub

Sub Empregados()

Dim emp As Empregado

Set emp = New Empregado

emp.Nome = "Felipe"

emp.Endereço = "Rua A, 12/901"

emp.Salário = 1000

Debug.Print emp.Nome

Debug.Print emp.Endereço

Debug.Print emp.Salário

End Sub

___________________________________________________________

Agora você pode fazer suas Classes em VBA!!
Uma sugestão é testar o código acima depurando detalhadamente com o F8

Fontes:
http://www.cpearson.com/Excel/Classes.aspx
http://www.ambienteoffice.com.br/officevba/modulos_de_classe/

Pesquisar

Tags