Hướng dẫn sử dụng VBA trong Excel

Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 1
Hướng dẫn sử dụng VBA trong Excel
1. Giới thiệu
Các phần mềm trong MS Office nói chung và Excel nói riêng là công cụ giúp
chúng ta lưu trữ số liệu, xử lý số liệu trong quá trình làm việc rất hiệu quả, tiết kiệm
thời gian, công sức. Ngoài các hàm đơn giản được trang bị sẵn trong thư viện của
Excel như hàm Sum(), Max(), Min(), Text(), Value(), Left(), Vlookup () Average()
v.v. Người sử dụng có thể lập trình, tạo ra các hàm, thủ tục phức tạp hơn theo nhu cầu
sử dụng bằng cách dùng công cụ VBA (Visual Basic for Application), dùng ngôn ngữ
lập trình VB, nhúng vào các ứng dụng của Microsoft như MS Word, PowerPoint, Auto
CAD v.v. Ở đây chúng ta viết các hàm, thủ tục cho Microsoft Excel.
2. Vào ra chương trình, cài đặt để sử dụng hàm trong Excel
a. Vào ra chương trình
Bước 1. Khởi động Microsoft Excel, tạo một workbook mới (hoặc dùng Book1
như mặc định). Chọn Tools\Macro\Visual Basic Editor để mở cửa sổ soạn thảo VBA.
Trong cửa sổ Project Explorer (nếu không thấy thì chọn View Project Explorer để mở
nó), chọn VBAProject (Book1). Chọn Insert Module để thêm một module.
Bước 2. Gõ nội dung hàm phepcong() vào module mới tạo.
Ví dụ:
Public Function Phepcong(x as double, y as double) as double
Phepcong = x + y
End Function
Bước 3. Chuyển sang cửa sổ Excel để kiểm tra hàm bằng cách thử gõ vào ô bất
kỳ, =Phepcong(x,y), kết quả trả về ô tương ứng là x+y. Ví dụ: = Phepcong(2,3) kết quả
trả về là 5.
b. Cài đặt và sử dụng hàm trong Excel
Bước 1. Mô tả hàm để thuận tiện cho việc sử dụng. Trong cửa sổ Excel, chọn
menu Tools\Macro\Macros để hiển thị hộp thoại Macro. Gõ tên hàm Phepcong vào ô
Macro name, rồi bấm Options để mở tiếp hộp thoại Macro Options, gõ nội dung mô tả
Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh

Nghệ An, 5/2013 2
hàm vào ô Description, bấm OK để đóng hộp thoại Macro Options, cuối cùng bấm
Cancel để đóng hộp thoại Macro.
Bước 2. Lưu Book1 vào máy với tên file, ví dụ MyFunctions.xla; Bạn lưu file này
đúng vị trí để mỗi lần MS Excel khởi động sẽ mặc định đưa ham vào thư viện chung,
để sẵn sàng sử dụng.
Ví dụ: Thư mục C:\Documents and Settings\Administrator\Application Data\
Microsoft\AddIns đối với MS 2003.
Đóng MS Excel mà không cần ghi lại các thay đổi trên Book1.
Bước 3. Dùng Windows Explorer để thêm mô tả cho Add-in bằng cách bấm chuột
phải trên tên tập tin MyFunctions.xla, chọn mục Properties để mở hộp thoại
Properties, chọn mục Summary để gõ mô tả vào ô Comments, gõ tên của Add-in vào ô
Title. Chọn nút OK để chấp nhận các thông tin.
Bước 4. Khởi động lại MS Excel, cài đặt add-in vừa tạo cho Excel bằng cách chọn
menu Tools\Add-Ins để mở hộp thoại Add-Ins, chọn tên Add-in của ta trong danh sách
Add-Ins available, rồi bấm chuột vào nút OK.
Từ đây trở về sau, mỗi lần mở MS Excel, mặc định bạn có thể dùng được hàm
Phepcong trong Add-in MyFunctions.xla.
3. Lưu ý một số khái niệm
a) Thuộc tính RANGE
Thuộc tính Range trả về một đối tượng, có thể là một cell đơn lẻ hoặc một dãy
gồm nhiều cell. Trong lệnh gán giá trị của cell A1 vào cell A5 đưới đây, Range trả về
giá trị chỉ gồm 1 cell:
Worksheets("Sheet1").Range("A5").Value =
Worksheets("Sheet1").Range("A1").Value
Khi dùng với kiểu không xác định, Range trả về một dãy cell trên Sheet đang hoạt
động. Để tránh nhầm lẫn kiểu "Râu ông nọ cắm cằm bà kia", ta kích hoạt một bảng
tính bằng phương pháp Activate trước khi dùng thuộc tính Range mà không cần chỉ ra
giới hạn cụ thể. Sau đây là cách điền vào vùng A1:H8 các số ngẫu nhiên bằng cách đặt
công thức cho mỗi ô trong dãy mà trước đó Sheet1 đã được kích hoạt:

Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 3
Worksheets("sheet1").Activate
Range("A1:H8").Formula = "=rand()"
Chúng ta có thể đặt tên cho dãy cell và chỉ cho VBA tham chiếu đến tên này. Ví
dụ, để ra lệnh xóa nội dung của một dãy có tên "Criteria" chúng ta viết:
Worksheets(1).Range("criteria").ClearContents
Nếu ta sử dụng một đối số (argument) mà đối số đó là địa chỉ dãy cell, thì phải
định rõ địa chỉ đó theo kiểu A1 (nếu dùng kiểu R1C1 máy sẽ báo lỗi).
b) Thuộc tính Cells
Thuộc tính Cells sử dụng cú pháp Cells(row,column), với row là chỉ số hàng và
column là chỉ số cột, để trả về một cell đơn lẻ. Chẳng hạn, chúng ta có thể gán giá trị
24 cho cell A1 bằng lệnh:
Worksheets(1).Cells(1, 1).Value = 24
Và gán một công thức cho cell A2:
ActiveSheet.Cells(2, 1).Formula = "=sum(b1:b5)"
Cho dù chúng ta có thể dùng công thức Range("A1") để trả về cell A1 (không hề
sai!), nhưng dùng thuộc tính Cells thì tiện lợi hơn bởi bạn có thể sử dụng một biến số
đại diện cho hàng hoặc cột phục vụ yêu cầu lập trình. Hãy tham khảo ví dụ tạo tiêu đề
cột và hàng trên Sheet1 sau đây, lưu ý sau khi bảng tính đã được kích hoạt, thuộc tính
Cells có thể được sử dụng thoải mái mà không cần khai báo một sheet cụ thể nào vì nó
trả về một cell trên sheet hoạt động.
Sub SetUpTable()
Worksheets("sheet1").Activate
For theYear = 1 To 5
Cells(1, theYear + 1).Value = 1990 + theYear
Next theYear
For theQuarter = 1 To 4
Cells(theQuarter + 1, 1).Value = "Q" & theQuarter
Next theQuarter

End Sub
Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 4
Mặc dù bạn có thể sử dụng những hàm xử lý chuỗi của Visual Basic để thay đổi
tham chiếu kiểu A1, nhưng để dễ hiểu hơn và rèn luyện kỹ năng lập trình của mình,
bạn nên sử dụng kiểu Cells(1, 1).
Nếu bạn sử dụng cú pháp expression.Cells(row,column), với expression là một
biểu thức trả về một đối tượng Range, và row và column là vị trí tương đối so với góc
trên trái của dãy cell thì kết quả trả về là một bộ phận của dãy. Trong ví dụ dưới đây,
VBA chỉ đến Cell(1,1) tức là cell C5 trên bảng tính:
Worksheets(1).Range("c5:c10").Cells(1, 1).Formula = "=rand()
c) Kết hợp Range and Cells
Phối hợp Range và Cells để tham chiếu đến một dãy cell, bạn hãy sử dụng cú
pháp Range(cell 1, cell 2), với cell 1 và cell 2 là cell bắt đầu và cell kết thúc của dãy.
Để đặt kiểu đường viền cho các cell bạn dùng lệnh sau:
With Worksheets(1)
.Range(.Cells(1, 1), .Cells(10, 10)).Borders.LineStyle = xlThick
End With
Ở đây cần lưu ý đến dấu chấm đằng trước thuộc tính Cells. Dấu chấm này quy
định Worksheets(1) mà With đã nêu trước đó được áp dụng cho thuộc tính Cells để tiết
kiệm chỗ và làm cho câu lệnh gọn hơn (nếu không có dấu chấm, thuộc tính Cells trả về
các cell trên sheet hoạt động).
4. Một số ví dụ
Sau đây là một số ví dụ xử lý chuỗi và số trong trường học.
Option Explicit
Dim k As Long
Public luachon As Byte
Public newValue As Double
Public actCell As Range
Public formu As String

Public ass As String
Public first As Boolean
Function SoTCchuadat(Dayheso As Range, Daydiemthi As Range) As
Integer
' Xac dinh Co tin chi Chua dat (co Diem <=0.5)
Dim i As Integer
Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 5
SoTCchuadat = 0.5
For i = 1 To Daydiemthi.Columns.Count
If (Daydiemthi.Columns.Cells(1, i) <= 0.5) Then
SoTCchuadat = SoTCchuadat + Dayheso.Columns.Cells(i)
End If
Next i
End Function
Function SoTCTL(Dayheso As Range, Daydiemthi As Range,
TrueORflase As Boolean) As Integer
Dim i As Integer
' Neu TrueORflase=true thi tra ve so Tin chi tich luy
' Neu TrueORflase=flase thi tra ve so Tin chi diem 0
SoTCTL = 0.5
If TrueORflase Then
For i = 1 To Daydiemthi.Columns.Count
If (Daydiemthi.Columns.Cells(1, i) > 0.5) Then
SoTCTL = SoTCTL + Dayheso.Columns.Cells(i)
End If
Next i
Else
For i = 1 To Daydiemthi.Columns.Count
If (Daydiemthi.Columns.Cells(1, i) = 0.5) Then

SoTCTL = SoTCTL + Dayheso.Columns.Cells(i)
End If
Next i
End If
End Function
Public Function Loc(diem As String) As Byte
Dim lan1 As Byte
Dim lan2 As Byte
Dim s As String
If Not KiemtraDiem(diem) Then
Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 6
MsgBox " Diem khong hop le"
Loc = 0
Exit Function
End If
For i = 1 To Len(diem)
If Mid(diem, i, 1) <> " " Then s = s & Mid(diem, i, 1)
Next i
diem = s
If KiemtraDiem(diem) Then
If Len(diem) = 4 Then
If Mid(diem, 1, 1) = "(" And Mid(diem, 3, 1) = ")" Then
lan1 = Val(Mid(diem, 2, 1))
lan2 = Val(Mid(diem, 4, 1))
End If
If Mid(diem, 2, 1) = "(" And Mid(diem, 4, 1) = ")" Then
lan1 = Val(Mid(diem, 1, 1))
lan2 = Val(Mid(diem, 3, 1))
End If

If lan1 > lan2 Then
Loc = lan1
Else
Loc = lan2
End If
End If
If Len(diem) = 1 Then Loc = Val(diem)
If diem = "10" Then Loc = 10
If Len(diem) = 5 Then Loc = 10
End If
End Function
Public Function Tinh_TBC(Dayheso As Range, Daydiemthi As Range)
As Double
' Tinh diem Trung binh chung (TBC)
Dim Tongheso As Integer
Dim tam As Double
Dim i As Integer
Dim Nomon As Boolean
Dim tam2 As String
tam = 0
Tongheso = 0
Nomon = False
For i = 1 To Dayheso.Count
If Loc(Daydiemthi.Item(i).Value) < 5 Or
Loc(Daydiemthi.Item(i).Value) > 10 Then
Nomon = True
End If
Tongheso = Tongheso + Dayheso.Item(i).Value
Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 7

tam = tam + Dayheso.Item(i).Value *
Loc(Daydiemthi.Item(i).Value)
Next i
If Tongheso = 0 Then Tongheso = 1
Tinh_TBC = Round(tam / Tongheso, 2)
tam2 = Mid(Str(Tinh_TBC), 1, 5)
Tinh_TBC = Val(tam2)
End Function
Public Function Tinh_TBC_XLLop(Dayheso As Range, Daydiemthi As
Range) As Double
' Tinh diem TBC va Xet len lop
Dim Tongheso As Integer
Dim tam As Double
Dim i As Integer
Dim Nomon As Boolean
Dim tam2 As String
tam = 0
Tongheso = 0
Nomon = False
For i = 1 To Dayheso.Count
Tongheso = Tongheso + Dayheso.Item(i).Value
tam = tam + Dayheso.Item(i).Value *
Loc(Daydiemthi.Item(i).Value)
Next i
If Tongheso = 0 Then Tongheso = 1
Tinh_TBC_XLLop = Round(tam / Tongheso, 2)
tam2 = Mid(Str(Tinh_TBC_XLLop), 1, 5)
Tinh_TBC_XLLop = Val(tam2)
End Function
Public Function doidiemTC(Diemso As Double) As String

' Chuyen Thang diem 10 sang Thang diem 4
If Diemso <= 1.9 Then doidiemTC = "0"
If 2 <= Diemso And Diemso <= 3.9 Then doidiemTC = "0.5"
If 4 <= Diemso And Diemso <= 4.4 Then doidiemTC = "1"
If 4.5 <= Diemso And Diemso <= 5.4 Then doidiemTC = "1.5"
If 5.5 <= Diemso And Diemso <= 6.9 Then doidiemTC = "2"
If 7 <= Diemso And Diemso <= 8.4 Then doidiemTC = "3"
If 8.5 <= Diemso And Diemso <= 10 Then doidiemTC = "4"
End Function
Public Function doidiemChu(Diemso As Double) As String
' Doi diem so sang Diem chu
Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 8
If Diemso < 1.9 Then doidiemChu = "F"
If 2 <= Diemso And Diemso <= 3.9 Then doidiemChu = "F+"
If 4 <= Diemso And Diemso <= 4.4 Then doidiemChu = "D"
If 4.5 <= Diemso And Diemso <= 5.4 Then doidiemChu = "D+"
If 5.5 <= Diemso And Diemso <= 6.9 Then doidiemChu = "C"
If 7 <= Diemso And Diemso <= 8.4 Then doidiemChu = "B"
If 8.5 <= Diemso And Diemso <= 10 Then doidiemChu = "A"
End Function
Public Function Xeploai(TBC As Double) As String
' Xep loai
If TBC < 5 Then Xeploai = "Khong Dat"
If 5 <= TBC And TBC < 6 Then Xeploai = "Trung binh"
If 6 <= TBC And TBC < 7 Then Xeploai = "Trung binh kha"
If 7 <= TBC And TBC < 8 Then Xeploai = " Kha"
If 8 <= TBC And TBC < 9 Then Xeploai = " Gioi"
If 9 <= TBC And TBC <= 10 Then Xeploai = " Xuat sac"
End Function

Public Function XeploaiTCDiem4(TBC As Double) As String
If TBC < 2 Then TBC = "Khong Dat"
If 2 <= TBC And TBC <= 2.49 Then XeploaiTCDiem4 = "Trung binh"
If 2.5 <= TBC And TBC <= 3.19 Then XeploaiTCDiem4 = "Kha"
If 3.2 <= TBC And TBC <= 3.59 Then XeploaiTCDiem4 = "Gioi"
If 3.6 <= TBC And TBC <= 4 Then XeploaiTCDiem4 = "Xuat sac"
End Function
Public Function Xetlenlop(Sonamdahoc As Byte, DayhesoNam As
Range, DaydiemthiNam As Range, DayhesoKhoa As Range, DaydiemthiKhoa
As Range) As String
' Xet len lop
Dim TBC_Khoa As Double
Dim TBC_Nam As Double
Dim Tongso_DVHT_thieu As Byte
TBC_Nam = Tinh_TBC_XLLop(DayhesoNam, DaydiemthiNam)
TBC_Khoa = Tinh_TBC_XLLop(DayhesoKhoa, DaydiemthiKhoa)
So_DVHT_thieu = 0
For i = 1 To DaydiemthiKhoa.Count
If Loc(DaydiemthiKhoa.Item(i).Value) < 5 Or
Loc(DaydiemthiKhoa.Item(i).Value) > 10 Then
So_DVHT_thieu = So_DVHT_thieu +
DayhesoKhoa.Item(i).Value
End If
Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 9
Next i
Tongso_DVHT_thieu = So_DVHT_thieu
If Tongso_DVHT_thieu <= 25 And TBC_Nam >= 5 Then
Xetlenlop = "Lªn líp"
Else

If ((Tongso_DVHT_thieu > 25) Or (TBC_Nam < 5)) And ((TBC_Nam
< 3.5) Or (Sonamdahoc = 2 And TBC_Khoa < 4) Or (Sonamdahoc = 3 And
TBC_Khoa < 4.5) Or (Sonamdahoc = 4 And TBC_Khoa < 4.8)) Then
Xetlenlop = "Th"i häc"
Else
Xetlenlop = "T¹m ngõng häc"
End If
End If
Xetlenlop = Xetlenlop & "; " & TBC_Nam & "; " & TBC_Khoa
& "; " & Tongso_DVHT_thieu
End Function
Public Function TachKetqua(Ketqua As String) As String
t = Ketqua
If Len(Ketqua) < 10 Then
TachKetqua = "'"
Else
For i = 1 To Len(Ketqua)
If Mid(t, i, 1) = ";" Then
TachKetqua = Mid(t, 1, i - 1)
Exit For
End If
Next i
End If
End Function
Public Function TachTBCKhoa(Ketqua As String) As String
If Len(Ketqua) < 10 Then
TachTBCKhoa = ""
Else
For i = 1 To Len(Ketqua)
For j = i + 1 To Len(Ketqua)

If Mid(Ketqua, i, 1) = ";" And Mid(Ketqua, j, 1) =
";" Then
TachTBCKhoa = Mid(Ketqua, i + 1, j - i - 1)
Exit For
End If
Next j
Next i
End If
End Function
Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 10
Public Function TachTBCNam(Ketqua As String) As String
If Len(Ketqua) < 10 Then
TachTBCNam = ""
Else
For i = 1 To Len(Ketqua)
If Mid(Ketqua, i, 1) = ";" Then Exit For
Next i
For j = i + 1 To Len(Ketqua)
If Mid(Ketqua, j, 1) = ";" Then Exit For
Next j
TachTBCNam = Mid(Ketqua, i + 1, j - i - 1)
End If
End Function
Public Function TachSoDVHTthieu(Ketqua As String) As String
If Len(Ketqua) < 10 Then
TachSoDVHTthieu = ""
Else
For i = 1 To Len(Ketqua)
If Mid(Ketqua, i, 1) = ";" Then j = i

Next i
TachSoDVHTthieu = Mid(Ketqua, j + 1, Len(Ketqua) - j + 1)
End If
End Function
Public Function KiemtraDiem(diem As String) As Boolean
Dim s As String
For i = 1 To Len(diem)
If Mid(diem, i, 1) <> " " Then s = s & Mid(diem, i, 1)
Next i
diem = s
KiemtraDiem = False
For i = 0 To 10
If diem = i Then
KiemtraDiem = True
Exit Function
End If
Next i
For i = 0 To 10
For j = 0 To 10
If diem = "(" & i & ")" & j Then
KiemtraDiem = True
Exit Function
End If
Next j
Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 11
Next i
For i = 0 To 10
For j = 0 To 10
If diem = i & "(" & j & ")" Then

KiemtraDiem = True
Exit Function
End If
Next j
Next i
End Function
Public Function Tach_Ten(Hoten As String) As String
On Error Resume Next
Dim dai As Byte
Dim tam As String
Hoten = Trim(Hoten)
dai = Len(Hoten)
i = dai
Do
If Mid(Hoten, i, 1) = " " Then Exit Do
i = i - 1
Loop Until i = 1
Tach_Ten = Trim(Mid(Hoten, i, dai - i + 1))
End Function
Public Function Tach_Ho(Hoten As String) As String
On Error Resume Next
Dim dai As Byte
Dim tam As String
Hoten = Trim(Hoten)
dai = Len(Hoten)
i = dai
Do
If Mid(Hoten, i, 1) = " " Then Exit Do
i = i - 1
Loop Until i = 1

Tach_Ho = Trim(Mid(Hoten, 1, i - 1))
End Function
Public Function Xet_TC_DuThi(Daydiemthi As Range) As String
Dim Nomon As Boolean
Xet_TC_DuThi = "Ko no mon"
Nomon = False
For i = 1 To Daydiemthi.Count
If Loc(Daydiemthi.Item(i).Value) < 5 Or
Loc(Daydiemthi.Item(i).Value) > 10 Then
Nomon = True
Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 12
End If
Next i
If Nomon Then Xet_TC_DuThi = " * No mon *"
End Function
Public Function Tach_Ngay(Ngay As String) As String
On Error Resume Next
Dim dai As Byte
Dim tam As String
Ngay = Trim(Ngay)
dai = Len(Ngay)
i = 1
Do
If Mid(Ngay, i, 1) = "/" Then Exit Do
i = i + 1
Loop Until i = dai
Tach_Ngay = Trim(Mid(Ngay, 1, i + 1))
End Function
Public Function Tinh_TBC_Xet_HocBong(Dayheso As Range, Daydiemthi

As Range, diemRenLuyen As Double) As Double
Dim Tongheso As Integer
Dim tam As Double
Dim tamRL As Double
Dim i As Integer
Dim Nomon As Boolean
Dim tam2 As String
tamRL = diemRenLuyen
tam = 0
Tongheso = 0
Nomon = False
For i = 1 To Dayheso.Count
If Loc_DiemLan1(Daydiemthi.Item(i).Value) < 5 Or
Loc_DiemLan1(Daydiemthi.Item(i).Value) > 10 Then
Nomon = True
End If
Tongheso = Tongheso + Dayheso.Item(i).Value
tam = tam + Dayheso.Item(i).Value *
Loc_DiemLan1(Daydiemthi.Item(i).Value)
Next i
'If Nomon Then MsgBox "Cã sinh viªn: nî häc phÇn hoÆc ®iÓm
kh"ng hîp lÖ", vbCritical
If Tongheso = 0 Then Tongheso = 1
Tinh_TBC_Xet_HocBong = Round(tam / Tongheso, 2)
tam2 = Mid(Str(Tinh_TBC_Xet_HocBong), 1, 5)
Tinh_TBC_Xet_HocBong = Val(tam2) + tamRL
End Function
Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 13
Public Function Loc_DiemLan1(diem As String) As Byte

Dim lan1 As Byte
Dim lan2 As Byte
Dim s As String
If Not KiemtraDiem(diem) Then
'MsgBox " Diem khong hop le"
Loc_DiemLan1 = 0
Exit Function
End If
For i = 1 To Len(diem)
If Mid(diem, i, 1) <> " " Then s = s & Mid(diem, i, 1)
Next i
diem = s
If KiemtraDiem(diem) Then
If Len(diem) = 4 Then
If Mid(diem, 1, 1) = "(" And Mid(diem, 3, 1) = ")" Then
lan1 = Val(Mid(diem, 2, 1))
lan2 = Val(Mid(diem, 4, 1))
End If
If Mid(diem, 2, 1) = "(" And Mid(diem, 4, 1) = ")" Then
lan1 = Val(Mid(diem, 1, 1))
lan2 = Val(Mid(diem, 3, 1))
End If
Loc_DiemLan1 = lan1
End If
If Len(diem) = 1 Then Loc_DiemLan1 = Val(diem)
If diem = "10" Then Loc_DiemLan1 = 10
If Len(diem) = 5 Then Loc_DiemLan1 = 10
End If
End Function
Function MySumx(X As Range) As Double

Dim YY, z, zz As String
z = 0
Dim xzz
For Each YY In X
zz = YY
z = z + abc(zz)
Next YY
MySumx = z
End Function
Function abc(a As String) As String
Dim b, c
b = Pos(a, ")") + 1
c = Mid(a, b, Len(a))
Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 14
abc = c
End Function
Private Function Pos(st As String, substr As String) As Long
Dim a, b, c
a = Len(substr)
b = 0
For c = 1 To Len(st) - a + 1
If Mid(st, c, a) = substr Then
b = c
End If
Next c
Pos = b
End Function
Function MySum(Heso As Range, diem As Range, Optional
GiaTriThayThe As Double = 0) As Double

Dim Y As Range, z, zz
z = 0
zz = 0
Dim xzz As String, zxx As Double
For Each Y In diem
zz = zz + 1
xzz = abc(Y.Value)
zxx = Val(xzz)
If (zxx = 0) And (xzz <> "0") Then
zxx = GiaTriThayThe
End If
z = z + zxx * Heso(, zz)
Next Y
MySum = z
End Function
Function MyAverage(Heso As Range, Giatri As Range, Optional BoQua
As Boolean = False) As Double
Dim Y, z, zz, zzz, zxx, xzz
z = 0
zz = 0
zzz = 0
For Each Y In Heso
zz = zz + 1
xzz = abc(Giatri(, zz))
zxx = Val(xzz)
If Not (BoQua And (zxx = 0) And (xzz <> "0")) Then
zzz = zzz + Y
z = z + zxx * Y
End If
Next Y

Lê Thế Vinh, Phòng Đào tạo, Trường ĐHSP Kỹ thuật Vinh
Nghệ An, 5/2013 15
MyAverage = z / zzz
End Function
Function SoTC0(Dayheso As Range, Daydiemthi As Range) As Integer
'Xac dinh Tong so Tin chi cua cac hoc phan co Diem =0.
Dim i As Integer
SoTC0 = 0
For i = 1 To Daydiemthi.Columns.Count
If (Daydiemthi.Columns.Cells(1, i) = 0) Then
SoTC0 = SoTC0 + Dayheso.Columns.Cells(i)
End If
Next i
End Function
Function TBCTL4(Dayheso As Range, Daydiemthi As Range) As Double
'Ham tinh diem TBCTL thang 4, doi voi cac hoc phan co Diem>=1.0
Dim i As Integer
Dim soTC, tsoTC As Integer
TBCTL4 = 0#
tsoTC = 0
soTC = 0
For i = 1 To Daydiemthi.Columns.Count
If (Daydiemthi.Columns.Cells(1, i) >= 1#) Then
soTC = Dayheso.Columns.Cells(1, i)
TBCTL4 = TBCTL4 + Daydiemthi.Columns.Cells(1, i) *
soTC
tsoTC = tsoTC + soTC
End If
Next i
TBCTL4 = TBCTL4 / tsoTC

End Function
Chúc các bạn thành công!
Tài liệu tham khảo: Bản hướng dẫn này có sử dụng một số tài liệu từ Internet.