Một trong những sự kiện phổ biến nhất trong Workbook chính là sự kiện Open. Sự kiện này được kích hoạt mỗi khi workbook (hoặc add-in) được mở, và sẽ kích hoạt bộ xử lý sự kiện tương ứng có tên là Workbook_Open. Bên trong thủ tục này, người lập trình có thể thực hiện nhiều thao tác khác nhau, chẳng hạn như các thao tác phổ biến sau:
Ø
ØHiển thị một thông báo chào mừng
Ø
ØMở một workbook khác
Ø
ØThiết lập, tạo thanh trình đơn hoặc thanh công cụ
Ø
ØKích hoạt một sheet hoặc một ô nào đó
Ø
ØKiểm tra các điều kiện cần thiết khác. Chẳng hạn như kiểm tra xem add-in cần thiết cho hoạt động của workbook đã được cài đặt hay chưa…
Ø
ØThiết lập các tính năng tự động khác. Chẳng hạn như định nghĩa tổ hợp phím tắt… Khuôn mẫu của bộ xử lý sự kiện Open như sau:
Private Sub Workbook_Open() ‘Mã lệnh sẽ được đặt ở đây
End Sub
Dưới đây là một ví dụ đơn giản của thủ tục Workbook_Open. Chương trình có sử dụng hàm Weekday của VBA để xác định một ngày trong tuần. Nếu đó là ngày thứ 6, một hộp thông báo sẽ xuất hiện, nhắc nhở người dùng thực hiện sao lưu workbook hàng tuần. Nếu không phải là thứ 6, thì sẽ không có gì xảy ra cả.
Private Sub Workbook_Open() Dim strThongBao As String
If Weekday(Now) = vbFriday Then
strThongBao = "Hôm nay là thứ Sáu. ”
strThongBao = strThongBao & "Nhớ phải sao lưu workbook hàng tuần! " MsgBox strThongBao, vbInformation
End If End Sub
Sự kiện BeforeClose
Sự kiện BeforeClose xảy ra trước khi một workbook chuẩn bị đóng. Sự kiện này thường được dùng kết hợp với sự kiện Open. Lấy ví dụ như, có thể sử dụng sự kiện Open để tạo trình đơn tuỳ biến cho workbook, sau đó sử dụng sự kiện BeforeClose để xoá trình đơn đó trước khi workbook được đóng. Và như vậy, theo cách này, workbook luôn có một trình đơn tuỳ biến mà không làm ảnh hưởng đến chương trình Excel nói chung.
Khuôn mẫu của bộ xử lý sự kiện BeforeClose như sau:
Private Sub Workbook_BeforeClose(Cancel As Boolean) ‘Mã lệnh sẽ được đặt ở đây
End Sub
Tham số Giải thích
Cancel Mặc định, tham số này bằng FALSE khi xảy ra sự kiện. Nếu trong bộ xử lý sự kiện có gán giá trị cho tham số Cancel=TRUE thì Excel sẽ dừng quá trình đóng workbook lại, workbook sẽ vẫn còn được mở trong Excel.
Ví dụ sau sẽ minh hoạ cách thao tác với sự kiện BeforeClose. Ví dụ này sẽ kiểm tra xem khi sự kiện BeforeClose xảy ra, workbook đã được lưu hay chưa. Nếu chưa lưu sẽ hiển thị một hộp thoại yêu cầu người dùng lựa chọn các phương án: lưu – không lưu – quay trở lại workbook (không đóng workbook nữa bằng cách gán tham số Cancel = TRUE):
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Msg As String
Dim Ans As Integer If Not (Me.Saved) Then
Msg = "Bạn có muốn lưu workbook: " Msg = Msg & Me.Name & "không ?"
Ans = MsgBox(Msg, vbQuestion + vbYesNoCancel) Select Case Ans
Case vbYes Me.Save Case vbNo Me.Saved = True Case vbCancel Cancel = True End Select End If
End Sub
Trong đoạn mã trên, khi người dùng chọn Yes thì sẽ thực hiện phương thức Save có trong đối tượng workbook. Khi người dùng chọn No thì sẽ gán thuộc tính Saved của đối tượng workbook thành TRUE, điều này sẽ làm cho Excel nghĩ là workbook đã được lưu, nhưng thực chất là không thực hiện thao tác lưu workbook. Khi người dùng chọn Cancel thì sẽ gán tham số Cancel bằng TRUE, khi đấy Excel sẽ không đóng workbook đó nữa.
6.3. Sự kiện trong Worksheet
Sự kiện ở mức worksheet xảy ra bên trong một worksheet nào đó. Việc xử lý tốt các sự kiện ở mức worksheet sẽ giúp ứng dụng mở rộng hoạt động hiệu quả và chuyên nghiệp hơn. Dưới đây là một số sự kiện trong worksheet:
Sự kiện Thao tác làm phát sinh sự kiện
Activate Worksheet được chọn làm worksheet hiện hành
BeforeDoubleClick Người dùng kích đúp chuột trên sheet. Sự kiện này xảy ra ngay trước khi kích đúp.
BeforeRightClick Ngay trước khi người dùng kích phải chuột trên sheet Calculate Khi trên workshet có thực hiện tính toán nào đó Change Khi một ô nào đó trong worksheet bị thay đổi Deactivate Worksheet không còn hiện hành
FollowHyperlink Người dùng kích chuột vào một siêu liên kết trong worksheet SelectionChange Khi người dùng thay đổi vùng lựa chọn trên worksheet
Cần phải lưu ý là mã lệnh của các bộ xử lý sự kiện của worksheet phải được đặt trong mô-đun mã lệnh của worksheet tương ứng.