Bài 7.5. Hàm xử lý thông tin (1 người xem)

[befaint]

(Danh mục các hàm trong VBA)

5. Hàm xử lý thông tin

5.1. ENVIRON

Environ(Expression) 'As String'

Trả về giá trị ứng biến của môi trường hệ điều hành cần xác định.
Expression:
- Một số nguyên cho biết vị trí số của biến môi trường trong bảng.
- Một giá trị chuỗi đại diện cho tên của biến môi trường.

Sub ENVIRON_Fn()
    Dim i As Long
    For i = 1 To 10
        MsgBox Environ(i)
    Next i
End Sub

5.2. ISDATE

IsDate(Expression) 'As Boolean'

Trả về TRUE nếu biểu thức là một giá trị ngày hợp lệ

Sub ISDATE_Fn()
    Dim iDate As Boolean
    iDate = IsDate(#8/15/2017#)
    MsgBox iDate        'True'
    iDate = IsDate("Mot ngay")
    MsgBox              'False'
End Sub

5.3. ISEMPTY

IsEmpty(Expression) 'As Boolean'

Kiểm tra các ô trống hoặc các biến rỗng (chưa có giá trị), nếu đúng thì trả về True, ngược lại trả về False.

Sub ISEMPTY_Cell_Fn()
    Dim iValue As Boolean
    iValue = IsEmpty(Range("A3").Value)
    If iValue = True Then MsgBox "Cell A3 is empty."
End Sub
'----------------------'
Sub ISEMPTY_Variable_Fn()
    Dim iValue As Boolean, varValue
    iValue = IsEmpty(varValue)
    If iValue = True Then MsgBox "The varValue has not been initialized."
End Sub

5.4. ISERROR

IsError(Expression) 'As Boolean'

Trả về kết quả True nếu điều kiện cần kiểm tra là một lỗi, ngược lại trả về False.
Expression: Điều kiện, giá trị mà bạn muốn kiểm tra.
Nếu kết quả là một lỗi (#N A, #VALUE!, #RE !, # DI/0 !, #NUM!, #NAME? hoặc #NULL), chức năng ISERROR sẽ trả về TRUE. Nếu không, nó sẽ trả về FALSE.

Sub ISERROR_Fn()
    Dim erValue As Boolean
    Range("A10") = "=1/0"
    erValue = IsError(Range("A10"))
    Range("A10").ClearContents
    MsgBox erValue      'Result: True'
End Sub

5.5. ISNULL

IsNull(Expression) 'As Boolean'

Kiểm tra giá trị NULL
Kết quả trả về True nếu điều kiện xét là Null, ngược lại trả về False
Expression: Là một biến chứa chuỗi hoặc số.

Sub ISNULL_Fn()
    Dim varChk As String, nullValue As Boolean
    nullValue = IsNull(Null)
    MsgBox nullValue    'Result: True'
    nullValue = IsNull("Text")
    MsgBox nullValue    'Result: False'
End Sub[PHP]
5.6. ISNUMERIC
[PHP]IsNumeric(Expression) 'As Boolean'

Kiểm tra một giá trị là dạng số hay không. Trả về True nếu là dạng số, ngược lại trả về False

Sub ISNUMERIC_Fn()
    Dim numValue As Boolean, iValue
    iValue = 1
    numValue = IsNumeric(iValue)
    MsgBox numValue     'Result: True'
    iValue = "Text"
    numValue = IsNumeric(iValue)
    MsgBox numValue     'Result: False'
End Sub

5.7. ISARRAY

IsArray(VarName) 'As Boolean'

Kiểm tra một biến (VarName) là dạng mảng (Array) hay không. Trả về True nếu là dạng mảng, ngược lại trả về False

Sub ISARRAY_Fn()
    Dim Arr As Variant
    Arr = Array(2, 5)
    MsgBox IsArray(Arr) 'True'
End Sub

5.8 TYPENAME

TypeName(VarName) 'As String'

Trả về kiểu dữ liệu của biến chỉ định.

Sub TypeName_Fn()
    Dim i, arr
    i = 5.2
    arr = Array(3, 8)
    MsgBox TypeName(i)      'Double'
    MsgBox TypeName(arr)    'Variant()'
End Sub