Monday, January 19, 2015

Bắt sự kiện - Event

Sự kiện là những hành động của người sử dụng mà Excel VBA catch để thực thi mã. Sự kiện (Event): mở một Workbook Code thêm vào các sự kiện mở Workbook sẽ được thực hiện bằng Excel VBA khi bạn mở bảng tính . 1 . Mở VBA editor 2 . Double click vào Workbook trong Project Explorer.

3 . Chọn Workbook từ danh sách thả xuống bên trái . Chọn Open từ danh sách thả xuống ngay . Bắt sự kiện - Event

4 . Thêm dòng mã sau vào sự kiện Workbook mở:
MsgBox "Good Morning"

5 . Lưu, đóng và mở lại tập tin Excel .

Kết quả:

Workbook Open Event Result

Worksheet Change Event

Code thêm vào sự kiện Change Worksheet sẽ được thực hiện bằng Excel VBA khi bạn thay đổi một tế bào trên một bảng tính . 1 . Mở VBA editor

2 . Double click vào một sheet ( ví dụ Sheet1 ) trong Project Explorer .

3 . Chọn Worksheet từ danh sách thả xuống bên trái . Chọn Thay đổi từ danh sách thả xuống ngay . Worksheet Change Event in Excel VBA

Thêm các dòng mã sau vào sự kiện Change Worksheet : 4 . Các tổ chức sự kiện Change Worksheet lắng nghe tất cả những thay đổi trên Sheet1 . Chúng tôi muốn Excel VBA để làm một cái gì đó nếu có điều gì thay đổi trong ô B2 . Để đạt được điều này , thêm những dòng mã sau :

If Target.Address = "$B$2" Then

End If

5 . Chúng tôi muốn Excel VBA để hiển thị một MsgBox nếu người dùng nhập vào một giá trị lớn hơn 80. Để đạt được điều này , thêm dòng mã sau giữa Nếu và End If.

If Target.Value > 80 Then MsgBox "Goal Completed"

6 . Trên Sheet1 , nhập một số lượng lớn hơn 80 vào ô B2 . Enter a Number Greater Than 80 Kết quả: Workbook Change Event Result \r

No comments:

Post a Comment