[Lập Trình Excel] Bài 5 – Khai báo biến và hàm thường trong VBA

1. Khai báo một biến đối tượng

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. 

' 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
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:

Sub XinChao() 
 'Code của bạn đặt tại đây 
End Sub
Function 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. Gọi Sub – Function vừa tạo

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 Main() 
 HouseCalc 99800, 43100 
 Call HouseCalc(380950, 49500) 
End Sub 
 
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 IfEnd 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.

Lời giải: các bạn xem video bên dưới nhé.

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.

Lời giải: xem tiếp video dưới nhé.