As constantes podem ser usadas em qualquer lugar da aplicação no lugar dos valores reais, elas servem para simplificar a programação.
Utilize a instrução Const para declarar uma constante e definir o seu valor. Depois que uma constante tiver sido declarada, não será possível modificá-la ou atribuir-lhe um novo valor.
As constantes podem ser declaradas como um destes tipos de dados: Boolean, Byte, Integer, Long, Currency, Single, Double, Date, String ou Variant.
O Excel vem com inúmeras constantes pré-definidas que são:
Constantes Calendar
Constantes CallType
Constantes Color
Constantes Comparison
Constantes Compiler
Constantes Date
Constantes Date Format
Constantes Dir, GetAttr e SetAttr
Constantes DriveType
Constantes File Attribute
Constantes File Input/Output
Constantes Form
Constantes IMEStatus
Constantes Keycode
Constantes Miscellaneous
Constantes MsgBox
Constantes QueryClose
Constantes Shell
Constantes SpecialFolder
Constantes StrConv
Constantes System Color
Constantes Tristate
Constantes VarType
Exemplo de constantes de msgbox:
Constante Valor Descrição
VbOK 1 Botão OK pressionado
Vá no ambiente VBA, insira um userform e um commandbutton
Acesse o ambiente de código e declare a constante “exemplo”:
Const Exemplo= “55″
Repare que o valor atribuido à constante é 55
agora vá no evento click do commandbutton e digite:
Dim soma As Integer
soma = exemplo + 5
MsgBox soma, vbCritical, teste
Dentro da fução msgbox temos duas constantes: Exemplo e vbcritical.
A constante Exemplo foi definida por você e a constante vbcritical é pré-definida.
Const exemplo = “55″
Private Sub CommandButton1_Click()
Dim soma As Integer
soma = exemplo + 5
MsgBox soma, vbCritical, teste
End Sub
Compile a aplicação e clique no botão, ele executará a soma da constante com + 5, que foi o valor que escolhemos.
