Page 173 - Bửu Ngôn Du Lịch Ba Miền Tập 1

Chương trinh không làm việc đúng, xin hỏi sai ở đâu ?

Trước hết bạn phải định nghĩa 10 giá trị màu cho 10
ký sô" khác nhau, sau đó bạn viết thủ tục xử lý sự kiện xảy
ra sau khi nhập liệu xong 1 cell, thủ tục xử lý sự kiện này
không phải là Worksheet_AcPITLVCateO như bạn viết,
mà là Worksheet_ChangeO- Để viết thủ tục này, bạn hãy
chọn menu Tools.macro.Visual Basic Editor. Trong cửa sổ
VBAProject, ấn kép chuột vào tên Sheet cần xử lý (thí dụ
Sheetl), chọn mục "Worksheet" trong listbox các đốì
tượng, chọn mục "Change" trong listbox các sự kiện kết
hỢp, VB sẽ tự tạo hàm xử lý sự kiện tướng ứng. Bạn viết
code vào thân thủ tục này như sau:
Private Sub Worksheet_Change(ByVal Target As Range)
ColorO = RGB(0, 0, 255)
Colorl = RGB(0, 255, 0)
Color2 = RGB(255, 0, 0)
ColorS = RGB(255, 0, 255)
Color4 = RGB(0, 255, 255)
Colorõ = RGB(255, 255, 0)
ColorO = RGB(128, 128, 128)
Color? = RGB(128, 0, 128)
ColorS = RGB(0, 128, 255)
ColorO = RGB(255, 128, 0)
Select Case Target.Value
Case 0: Target.Pont.Color = ColorO
Case 1: Target.Pont.Color = Colorl
Case 2: Target.Pont.Color = Color2
Case 3: Target.Pont.Color = Color3
Case 4: Target.Pont.Color = Color4
Case 5: Target.Pont.Color = Colorõ
Case 6: Target. Pont. Color = ColorG

175