C
C
H
H
Ư
Ư
Ơ
Ơ
N
N
G
G


I
I
I
I
I
I
:
:


C
C
Ơ
Ơ


B


L
L
Ậ
Ậ
P
P


T
T
R
R
Ì
Ì
N
N
H
H


V
V
I
I
S
S
U
U
A

Hàm Mô tả
Asc(x) Trả về mã ASCII của ký tự đầu trong một chuỗi
Chr(x) Chuyển đổi từ mã ASCII sang một ký tự
Left(String, Length as Long) Trích dữ liệu bên trái của một chuỗi
Mid(String, Start As Long, [Length]) Trích dữ liệu phần giữa của một chuỗi
Right(String, Length As Long) Trích dữ liệu phần bên phải của một chuỗi
Split(String) Tách một chuỗi dài thành một mảng gồm nhiều chuỗi
nhỏ hơn
Joint(StringArray) Gộp một mảng các chuỗi thành một chuỗi duy nhất
Len(String) Trả về độ dài của chuỗi (số lượng ký tự trong chuỗi bao
gồm cả ký tự trống)
Ucase(String) Hàm thực hiện đổi tất cả các ký tự trong chuỗi thành
chữ HOA.
InStr([start, ]string1, string2[, compare]) Trả về vị trí bắt đầu của chuỗi String2 trong chuỗi
String1.
Ví dụ:
Public Sub Test()
Dim StrArDes() As String
' Mảng các chuỗi được khai báo dạng mảng động
Dim StrScr As String 'Chuỗi ban đầu
StrScr = "Point1_23.5_4.5_44.8"
StrArDes = Split(StrScr, "_")
' Tách chuỗi StrScr thành một mảng các chuỗi và đưa vào StrArDes,
' kí tự ngăn cách là "_"
' Khi đó StrArDes(0)="Point1”, StrArDes(1)="23.5"
' StrArDes(2)="4.5", StrArDes(3)="44.8"
Debug.Print StrArDes(0), StrArDes(1), StrArDes(2), StrArDes(3)
End Sub
Kết quả sẽ như sau:


C
H
H
Ư
Ư
Ơ
Ơ
N
N
G
G


I
I
I
I
I
I
:
:


C
C
Ơ
Ơ


B


L
L
Ậ
Ậ
P
P


T
T
R
R
Ì
Ì
N
N
H
H


V
V
I
I
S
S
U
U
A

Khối_lệnh_2
End If
Diễn giải tiến trình của cấu trúc lệnh này như sau: nếu <biểu_thức_điều_kiện> là đúng thì
chương trình sẽ thực hiện
<khối_lệnh_1>, còn nếu không đúng thì chương trình sẽ thực hiện
<khối_lệnh_2>
.
Sơ đồ khối của cấu trúc lệnh kiểu này có thể được biểu diễn như sau:

Các cấu trúc lệnh điều kiện có thể được lồng nhau để thể hiện những thao tác phức tạp hơn
bằng cách sử dụng thêm từ khoá
ElseIf. Như vậy, cấu trúc điều kiện có cú pháp tổng quát như
sau:
If <điều_kiện_1> Then
[Khối_lệnh_1]
[ElseIf <điều_kiện_n> Then
[khối_lệnh_n]

[Else
[Khối_lệnh_2]]
End If
Trong khối cấu trúc này, khối lệnh [ElseIf <điều_kiện_n> Then có thể lặp lại nhiều lần
tương ứng với nhiều điều kiện khác nhau.
Diễn giải cấu trúc này như sau: nếu
<điều_kiện_1> là đúng thì thực hiện [Khối_lệnh_1] và
thoát khỏi khối cấu trúc này, còn nếu sai thì sẽ kiểm tra lần lượt từng điều kiện của
ElseIf
xem có giá trị nào đúng không, nếu không có giá trị nào đúng thì thực hiện
[Khối_lệnh_2]


Nếu
TheColorYouLike không thuộc bất cứ giá trị nào trong bảng màu: vbRed,
vbGreen, vbBlue, vbMagenta thì sẽ chỉ có thông báo: You 're an average person.
8.2. Cấu trúc lựa chọn
Cấu trúc này sử dụng khi ta muốn thực hiện một số lệnh nào đấy tương ứng với từng giá trị của
biểu thức kiểm tra.
Các từ khoá sử dụng trong cấu trúc này:
Select Case, Case, Case Else, End Select.
Cú pháp của cấu trúc lựa chọn:
Select Case <biểu_thức_kiểm_tra>
[Case điều_kiện_1
[khối_lệnh_1]]

[Case điều_kiện_n
[khối_lệnh_n]]
[Case Else
[khối_lệnh_else]]
End Select
Diễn giải tiến trình của cấu trúc lựa chọn như sau: Giá trị của <biểu_thức_kiểm_tra> sẽ
được so sánh với các
<điều_kiện_i> nếu giá trị của <biểu_thức_kiểm_tra> thoả mãn
<điều_kiện_i> thì <khối_lệnh_i> tương ứng sẽ được thực hiện, sau đó chương trình sẽ
thoát khỏi cấu trúc lựa chọn. Trong trường hợp giá trị của
<biểu_thức_kiểm_tra> không
thoả mãn tất cả các điều kiện thì
<khối_lệnh_else> sẽ được thực hiện nếu có từ khoá Case
Else
, còn nếu không có từ khoá Case Else thì chương trình sẽ thoát khỏi khối lệnh lựa chọn
này mà không thực hiện gì cả.
Ví dụ sử dụng

C
Ơ
Ơ


B
B
Ả
Ả
N
N


V
V
Ề
Ề


N
N
G
G
Ô
Ô
N
N


N

I
S
S
U
U
A
A
L
L


B
B
A
A
S
S
I
I
C
C



47
MsgBox "You 're a hopeful person"
Case vbBlue
MsgBox "You 're a brave person"
Case vbMagenta
MsgBox "You 're a sad person"

Nếu nhỏ hơn hoặc bằng: thực hiện các lệnh bên trong [Khối_lệnh] và tự động cộng
vào
<Biến_đếm> một giá trị bằng <bước_nhảy> nếu có từ khóa Step, còn không thì
cộng thêm 1 và quay lại bước so sánh
<Biến_đếm> với giá trị <Kết_thúc>.

Nếu lớn hơn: kết thúc khối lệnh lặp. 48
Ví dụ sau tính tổng của các số từ 1 đến 10:
Dim i As Integer
Dim Tong As Integer
Tong = 0
For i = 1 To 10 Step 1
Tong = Tong + i
Next
Debug.Print ("Tong = " & Tong)
Kết quả như sau:

Ví dụ sau tính tổng của các số chẵn từ 0 đến 10:
Dim i As Integer
Dim Tong As Integer
Tong = 0



I
I
I
I
I
I
:
:


C
C
Ơ
Ơ


B
B
Ả
Ả
N
N


V
V
Ề
Ề

R
R
Ì
Ì
N
N
H
H


V
V
I
I
S
S
U
U
A
A
L
L


B
B
A
A
S
S

For, Each, In, Next
Cú pháp:
For Each <biến_chạy> In <tập_hợp>
[Khối_lệnh]
Next
Giải thích: <biến_chạy> sẽ nhận các giá trị từ phần tử đầu tiên đến phần tử cuối cùng trong
<tập_hợp>. Ứng với mỗi giá trị của <biến_chạy>, khối lệnh được thực hiện một lần.
CHÚ Ý Kiểu của <biến_chạy> trong vòng lặp (For Each … Next) sẽ phụ thuộc vào kiểu
của <tập_hợp> mà nó duyệt qua là kiểu mảng hay kiểu tập đối tượng. Đối với
<tập_hợp> là tập đối tượng thì kiểu dữ liệu của <biến_chạy> có thể là Variant,
hoặc đối tượng cùng kiểu với tập đối tượng đó. Đối với
<tập_hợp> là mảng thì kiểu dữ
liệu của
<biến_chạy> chỉ có thể là Variant.
Ví dụ sau sẽ thực hiện tính tích các số trong một mảng 2 chiều với việc dùng vòng lặp trong tập
hợp. Kết quả sẽ được hiển thị trong cửa sổ Immediate.
Public Sub TestForEach()
Dim a(0 To 2, 0 To 1) As Double
Dim v As Variant
Dim Tich As Double
a(0, 0) = 1: a(1, 0) = 2: a(2, 0) = 3 50
a(0, 1) = 4: a(1, 1) = 5: a(2, 1) = 6
Tich = 1
Debug.Print "Cac phan tu trong mang"
For Each v In a
Debug.Print v
Tich = Tich * v

H
Ư
Ư
Ơ
Ơ
N
N
G
G


I
I
I
I
I
I
:
:


C
C
Ơ
Ơ


B
B
Ả

L
Ậ
Ậ
P
P


T
T
R
R
Ì
Ì
N
N
H
H


V
V
I
I
S
S
U
U
A
A
L

Nếu muốn vòng lặp luôn có ít nhất một lần thi hành khối lệnh sử dụng cú pháp:
Do
[Khối_lệnh]
Loop Until <điều_kiện>
CHÚ Ý Khi [Khối_lệnh] được thực thi, nếu như trong [Khối_lệnh] không có câu
lệnh nào tác động lên <điều_kiện> để nó nhận giá trị ngược lại thì vòng lặp này sẽ
không bao giờ kết thúc và làm cho ứng dụng bị “treo”. Để thoát khỏi tình huống “treo” này
có nhiều cách và cách đơn giản nhất là bấm tổ hợp phím Ctrl+Break để quay trở lại
VBAIDE.
Có cách khác để thoát khỏi vòng lặp, ngoài việc thiết lập
<điều_kiện> có giá trị ngược
lại, là sử dụng từ khóa
Exit Do đặt trong [Khối_lệnh].
9. Chương trình con
Về cơ bản, chương trình con là một khối các câu lệnh và chúng được sử dụng lặp lại trong
chương trình chính thông qua tên của chương trình con. Chương trình con đặc biệt hữu ích khi
thay thế các khối lệnh lặp nhau hoặc cùng thực thi một chức năng tương tự nào đó.
Có hai loại chương trình con chính là Hàm (
Function) và Thủ tục (Sub). Ngoài ra, trong các
mô-đun lớp (
Class Module) còn có chương trình con dạng thuộc tính (Property), tuy nhiên
trong giáo trình này sẽ không trình bày về loại chương trình con này mà người đọc có thể tham
khảo trong giáo trình môn Lập trình hướng đối tượng trong xây dựng.
Cú pháp tổng quát của một chương trình con như sau:
Cú pháp tổng quát của một chương trình con như sau:
[Private|Friend|Public][Static]<Sub|Function|Property>
Tên([các_tham_số])
[Khối_lệnh]
như sau:
Sub Dien_Tich(Rong as Double, Dai as Double, Dt as Double)
Dt=Rong*Dai
End Sub
CHÚ Ý Trong ví dụ này, vì chương trình con không có giá trị trả về nên để nhận về giá trị
diện tích phải bổ sung thêm tham số Dt vào trong danh sách tham số của chương trình
con.
9.3. Truyền tham số cho chương trình con
Xét 2 chương trình con được đặt trong cùng một mô-đun chuẩn, thực hiện việc gán và in giá trị
của biến như sau: