Basic Constants

Constantes utilizadas no Basic

Constantes booleanas

Nome

Tipo

Valor

True

Boolean

1

False

Boolean

0


Exemplo:


            Dim bPositive as Boolean
            bPositive = True
        

Constantes matemáticas

Nome

Tipo

Valor

Pi

Double

3.14159265358979


Exemplo:


            Function Rad2Deg( aRad as Double) As Double
             Rad2Deg = aRad * 180.00 / Pi
            End Function
        

Constantes de objetos

Nome

Tipo

Utilização

Empty

Variant

O valor Empty indica que a variável não foi inicializada.

Null

null

Indica que a variável não contém dados.

Nothing

Object

atribua o objeto Nothing a uma variável para o remover a atribuição anterior.


Exemplo:


            SubExampleEmpty
                Dim sVar As Variant
                sVar = Empty
                Print IsEmpty(sVar) ' Returns True
            End Sub
            Sub ExampleNull
                Dim vVar As Variant
                MsgBox IsNull(vVar)
            End Sub
            Sub ExampleNothing
                Dim oDoc As Object
                Set oDoc = ThisComponent
                Print oDoc.Title
                oDoc = Nothing
                Print oDoc ' Error
            End Sub
        

MsgBox Named Constants

Constante com nome

Valor inteiro

Definição

MB_OK

0

Mostrar apenas o botão Aceitar.

MB_OKCANCEL

1

Mostrar os botões Aceitar e Cancelar.

MB_ABORTRETRYIGNORE

2

Mostrar os botões Cancelar, Tentar novamente e Ignorar.

MB_YESNOCANCEL

3

Mostrar os botões Sim, Não e Cancelar.

MB_YESNO

4

Mostrar os botões Sim e Não.

MB_RETRYCANCEL

5

Mostrar os botões Tentar novamente e Cancelar.

MB_ICONSTOP

16

Adicionar o ícone Parar à caixa de diálogo.

MB_ICONQUESTION

32

Adicionar o ícone Ponto de interrogação à caixa de diálogo.

MB_ICONEXCLAMATION

48

Adicionar o ícone Ponto de exclamação à caixa de diálogo.

MB_ICONINFORMATION

64

Adicionar o ícone de Informação à caixa de diálogo.

128

Primeiro botão na caixa de diálogo como botão padrão.

MB_DEFBUTTON2

256

Segundo botão da caixa de diálogo como botão padrão.

MB_DEFBUTTON3

512

Terceiro botão da caixa de diálogo como botão padrão.


GetAttr Named Constants

Constante com nome

Valor

Definição

ATTR_NORMAL

0

Ficheiros normais.

ATTR_READONLY

1

Ficheiros só de leitura.

ATTR_HIDDEN

2

Ficheiro oculto

ATTR_SYSTEM

4

Ficheiro do sistema

ATTR_VOLUME

8

Devolve o nome do volume

ATTR_DIRECTORY

16

Devolve apenas o nome do diretório.

ATTR_ARCHIVE

32

O ficheiro foi alterado desde a última cópia de segurança (bit de arquivo).


VarType Named Constants

keyword

Constante com nome

VarType

Tipo de variável

Boolean

11

Variável booleana

Byte

17

Byte variable

Date

V_DATE

7

Variável de data

Currency

V_CURRENCY

6

Variável monetária

Double

V_DOUBLE

5

Variável de dupla vírgula flutuante

Integer

V_INTEGER

2

Variável de números inteiros

Long

V_LONG

3

Variável de números inteiros longos

Object

9

Variável de objeto

Single

V_SINGLE

4

Variável com uma vírgula flutuante

String

V_STRING

8

Variável de cadeia

Variant

12

Variável Variante (pode conter todos os tipos especificados pela definição)

Empty

V_EMPTY

0

A variável não está inicializada

Null

V_NULL

1

Sem dados válidos


Constantes adicionais do VBA

As seguintes constantes estão disponíveis se o modo de compatibilidade VBA estiver ativado:

warning

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.


VBA Color Named Constants

Named constant

Red, Green, Blue
composition

vbBlack

RGB(0, 0, 0)

vbBlue

RGB(0, 0, 255)

vbCyan

RGB(0, 255, 255)

vbGreen

RGB(0, 255, 0)

vbMagenta

RGB(255, 0, 255)

vbRed

RGB(255, 0, 0)

vbYellow

RGB(255, 255, 0)

vbWhite

RGB(255, 255, 255)


Variable Type Named Constants

Named constant

Decimal value

vbArray

8192

vbBoolean

11

vbByte

17

vbCurrency

6

vbDataObject

13

vbDate

7

vbDecimal

14

vbDouble

5

vbEmpty

0

vbError

10

vbInteger

2

vbLong

3

vbNull

1

vbObject

9

vbSingle

4

vbString

8

vbUserDefinedType

36

vbVariant

12


FormatDateTime VBA Named Constants

Named Constant

Value

Descrição

vbGeneralDate

0

Displays a date and/or time as defined in your system's General Date setting. If a date only, no time is displayed; If a time only, no date is displayed.

vbLongDate

1

Display a date using the long date format specified in your computer's regional settings.

vbShortDate

2

Display a date using the short date format specified in your computer's regional settings.

vbLongTime

3

Displays a time as defined in your system's Long Time settings.

vbShortTime

4

Display a time using the 24-hour format (hh:mm).


StrConv VBA Named Constants

Conversion

Value

Description

vbUpperCase

1

Converts Text characters to uppercase.

vbLowerCase

2

Converts Text characters lowercase.

vbProperCase

3

Converts the first letter of every word in Text to uppercase.

vbWide

4

Converts narrow (half-width) characters in Text to wide (full-width) characters.

vbNarrow

8

Converts wide (full-width) characters in Text to narrow (half-width) characters.

vbKatakana

16

Converts Hiragana characters in Text to Katakana characters.

vbHiragana

32

Converts Katakana characters in Text to Hiragana characters.

vbUnicode

64

Converts Text characters to Unicode characters using the default code page of the system.

vbFromUnicode

128

Converts Text characters from Unicode to the default code page of the system.


WeekDayName VBA Named Constants

Value

VBA Constant

Description

0

vbUseSystemDayOfWeek

Use system locale settings

1

vbSunday

Sunday (default)

2

vbMonday

Monday

3

vbTuesday

Tuesday

4

vbWednesday

Wednesday

5

vbThursday

Thursday

6

vbFriday

Friday

7

vbSaturday

Saturday


Miscellaneous VBA Named Constants

Constante com nome

Valor hexadecimal (decimal)

Descrição

vbTrue

-1

Parte de uma enumeração vbTriState

vbFalse

0

Parte de uma enumeração vbTriState

vbUseDefault

-2

Parte de uma enumeração vbTriState

vbCr

\x0D (13)

CR - Carriage return

vbCrLf

\x0D\x0A (13 10)

CRLF - Carriage return e line feed

vbFormFeed

\x0c (12)

FF - Form feed

vbLf

\x0A (10)

LF - Line feed

vbNewLine

\x0D\x0A (13 10) for Windows

\x0A (10) for other systems

LF ou CRLF

vbNullString

""

Cadeia nula

vbTab

\x09 (9)

HT - Tabulação horizontal

vbVerticalTab

\x0B (11)

VT - Tabulação vertical


Necessitamos da sua ajuda!