{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
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 SubCá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 FunctionBà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.