Konstanta Dasar

Konstanta yang digunakan dalam program-program dasar

Konstanta Boolean

Nama

Tipe

Nilai

True

Boolean

1

False

Boolean

0


Contoh:


            Dim bPositive as Boolean
            bPositive = True
        

Konstanta matematika

Nama

Tipe

Nilai

Pi

Double

3.14159265358979


Contoh:


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

Konstanta Obyek

Nama

Tipe

Cara Pakai

Empty

Variant

Nilai Kosong menunjukkan bahwa variabel tidak diinisialisasi.

Null

null

Menunjukkan bahwa variabel tidak mengandung data.

Nothing

Object

Menetapkan objek Tidak ada pada variabel untuk menghapus penetapan sebelumnya.


Contoh:


            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
        

Konstanta tambahan VBA

Konstanta berikut ini tersedia ketika mode kompatibilitas VBA diaktifkan

warning

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


Dinamakan konstan

Nilai heksadesimal (desimal)

Deskripsi

vbTrue

-1

Bagian dari daftar vbTriState.

vbFalse

0

Bagian dari daftar vbTriState.

vbUseDefault

-2

Bagian dari daftar vbTriState.

vbCr

\x0D (13)

pengangkutan kembali

vbCrLf

\x0D\x0A (13 10)

CRLF - Carriage return and line feed

vbFormFeed

\x0c (12)

FF - Umpan bentuk

vbLf

\x0A (10)

LF - Umpan baris

vbNewLine

\x0D\x0A (13 10) for Windows

\x0A (10) for other systems

LF atau CRLF

vbNullString

""

String nol

vbTab

\x09 (9)

HT - Tab horisontal

vbVerticalTab

\x0B (11)

VT - Tab vertikal


Mohon dukung kami!