Lớp học vi tính

1. Sự kiện mở Workbook

• Sự kiện này diễn ra khi ta mở Workbook.
• Bấm đôi chuột vào chữ ThisWorkBook trong cửa sổ VBA.
• Trong cửa sổ code chọn trong 02 listbox là Workbook và Open.

• Lúc này xuất hiện 01 Sub tên là: Workbook_Open() => Gõ vào Sub này dòng lệnh:
• Msgbox “Xin chào lophocvitinh.COM!!”
• Ngoài ra còn các sự kiện khác liên quan đến Workbook các bạn tự tìm hiểu nhé.
   

1. Sự kiện thay đổi trên Worksheet

• Sự kiện này diễn ra khi ta thay đổi 01 cái gì đó trên Worksheet (ví dụ nhập liệu)
• Bấm đôi chuột vào tên Sheet1 trong cửa sổ VBA.
• Trong cửa sổ code chọn trong 02 listbox là Worksheet và Change
• Lúc này xuất hiện 01 Sub tên là: Worksheet_Change

• Tham số của sub này là Target (là vùng chọn mới của ta)
• Bạn gõ y như trong hình: Target.Interior.ColorIndex = 4
• Sau đó qua màn hình Excel bấm chọn 01 ô và gõ chữ => vùng chọn được tô màu xanh đọt chuối.
• Nếu muốn sự thay đổi xuất hiện ngay khi ta đổi vùng chọn=> Chọn sự kiện SelectionChange
• Ta cũng có thể thiết lập cho khi người dùng bấm vào 01 vùng nào đó nhất định sẽ làm 01 hành động.
  Ví dụ: If Target.Address = “$B$2” Then Msgbox “Xin chào Lophocvitinh.COM!!” (phải có dấu “$” ngay địa chỉ).
• Hay phải thỏa 01 giá trị: If Target.Value > 18 Then Msgbox “Đủ tuổi!!”
• Các sự kiện khác của Worksheet các bạn xem trong listbox và thử tìm hiểu xem sao nhé.
• Nếu vẫn chưa hiểu vui lòng xem video clip sau:

• Ngoài ra còn các sự kiện của các Form Controls=> Ta sẽ học trong bài về Form.
• Một số đoạn code tham khảo:
  1. Đổi màu vùng chọn mới (clear màu vùng chọn cũ)

Application.ScreenUpdating = False ' Clear the color of all the cells Cells.Interior.ColorIndex = 0 ' Highlight the active cell

Target.Interior.ColorIndex = 8

Application.ScreenUpdating = True

1. Tô toàn bộ dòng và cột của ô chọn

If Target.Cells.Count > 1 Then Exit Sub

    Application.ScreenUpdating = False

    ' Clear the color of all the cells

    Cells.Interior.ColorIndex = 0

    With Target

        ' Highlight the entire row and column that contain the active cell

        .EntireRow.Interior.ColorIndex = 8

        .EntireColumn.Interior.ColorIndex = 8

    End With

    Application.ScreenUpdating = True
 

Nếu vẫn chưa rõ các bạn xem thêm video clip sau:

Tác giả: #drM

Các bài viết liên quan:Ví tính văn phòng

Bài 04 - Định dạng danh sách

Bài 06: Làm chữ nghệ thuật, chữ đầu đoạn văn

Tin học văn phòng - Excel – Bài 03 – Các phép tính cơ bản

Tin học văn phòng – Excel – Bài 09 – Vẽ biểu đồ

Tin học văn phòng – OUTLOOK - Bài 01 – Giới thiệu và cài đặt mail POP3 vs IMAP

Tin học văn phòng – OUTLOOK - Bài 04 – Tạo và quản lý contacts

Tin học văn phòng – OUTLOOK - Bài 05 – Quản lý email

Tin học văn phòng – POWERPOINT – Bài 01 – Tạo và quản lý slide

Tin học văn phòng – POWERPOINT – Bài 03 – Hiệu ứng cho đối tượng

VBA Macro - Bài 11 - Xử lý sự kiện

VBA Macro - Bài 12 - Mảng

VBA Macro - Bài 15 - Đối tượng ActiveX