Bài 5 - Cách khai báo các biến và hàm trong lập trình VBA Excel

{tocify} $title={Table of Contents}

1. Khai báo biến đối tượng trong lập trình VBA

Sử dụng câu lệnh Dim hoặc một trong các câu lênh khai báo khác (Public, Private hoặc Static) để khai báo một biến đối tượng.

Ví dụ:

' Declare MyObject as Variant data type.
Dim MyObject 
' Declare MyObject as Object data type. 
Public MyObject As Object 
' Declare MyObject as Font type. 
Private MyObject As Font

2. Cách tạo Sub và Function trong lập trình VBA

Nhấp vào Visual Basic trên tab Developer, sau đó nhấ phải vào VBAProject, chọn Insert >> Module như hình trên. Trên khung soạn thảo code, để tạo một Sub/Function bạn khai báo như sau:

SubXinChao() 
 	'Code của bạn đặt tại đây 
End SubFunction

GetData(x As Integer, y As Integer)
 	'Code của bạn đặt tại đây
End Function

Function GetSL(x As Integer, y As Integer) As Integer
 	'Code của bạn đặt tại đây
End Function

3. Cách gọi Sub và Function trong lập trình VBA

style="display:block; text-align:center;"
data-ad-layout="in-article"
data-ad-format="fluid"
data-ad-client="ca-pub-2710840940759095"
data-ad-slot="6573006073">

Gõ tên của Sub được tạo và các đối số truyền vào Sub đó như sau:

Sub Main() 
	MBeep 15 
	Mess 
End Sub 
 
Sub MBeep(nums) 
	For i = 1 To nums 
		Beep 
 	Next i
End Sub 
 
Sub Mess() 
 	MsgBox "Time to take a break!" 
End Sub

'Đối với Sub có nhiều đối số
Sub HouseCalc(price As Single, wage As Single) 
     If 2.5 * wage <= 0.8 * price Then 
         MsgBox "You cannot afford this house." 
     Else 
         MsgBox "This house is affordable." 
     End If
End Sub

Các Function được gọi theo cách sau:

Sub KetQua()
     Dim kq as Interger  
     kq = Factorial(2) 'Hàm Factorial được gọi với đối số truyền vào là 2
     MsgBox kq         'Hiển thị kết quả trả về.
End Function

Function Factorial (N) as Inetrger 
     If N <= 1 Then 
         Factorial = 1 
     Else  
         Factorial = Factorial(N - 1) * N 
     End If 
End Function

Bài tập 1:

Yêu cầu: khai báo một biến có tên là GiaTri, kiểu String và một nút lệnh tên Thông báo. Khi người dùng nhập một giá trị vào ô D5. Nhấp vào nút lệnh thì xuất hiện thông báo "Ban vua nhap vao: x", với x là GiaTri.

Bài tập 2:

Yêu cầu: sử dụng lại source của bài tập 1, nhưng khi nhấp vào nút thông báo, thì thông báo xuất hiện như hình. Đồng thời khi người dùng nhấp vào nút Yes, thì sẽ xuất hiện thêm một thông báo "Ban da nhap chon nut Yes" và ô F5 trên bảng tính sẽ có giá trị bằng giá trị trả về của nút mới nhấn. Tương tự cho nút No, giá trị trả về tại ô G5.