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

Case 7: Target.Pont.Color = Color?
Case 8: Target.Pont.Color = ColorS
Case 9: Target.Pont.Color = Color9
End Select
End Sub
Sau khi đã viết xong thủ tục, bạn hãy quay về
Worksheet Excel và thử nghiệm kết quả, mỗi lần bạn
nhập các sô" từ 0 tói 9 vào 1 cell nào đó rồi enter thì ký sô"
mới nhập vào cell đó sẽ được hiển thị theo màu qui định
với giá trị của nó.

Cách xác đỉnh vi trí của cell đang chon
Tôi muôn viết đoạn code bằng VBA nhúng vào Excel
(macro) để hiển thị hộp thoại trỢ giúp (listbox) ngay tại ceỉỉ
đang chọn (giống chế độ hỗ trỢ cú pháp trong môi trường
lập trinh VB, VC++). Tuy nhiên tôi không biết cách xác
định vị trí của cell đang chọn.

Bạn có 2 cách chính để hiển thị listbox ngay tại cell
đang đưỢc chọn:
1. Bạn để listbox vào một UserPorm rồi hiển thị
UserPorm lên vị trí mong muốn.
2. Bạn "add" trực tiếp listbox vào Worksheet Excel tại
vị trí mong muốn.
Tùy theo cách nào được dùng mà công thức tính vị trí
(x,y) của đỉnh trên trái listbox sẽ hơi khác nhau. Sau đây
là macro chứa đoạn code VBA hiển thị listbox theo cách 2:
'Macro add & hiển thị listbox trong Worksheet
Sub ListBoxDispO
Dim X As Integer
Dim y As Integer

' Tính tọa độ X vị trí dưói phải của cell hiện hành

176