Cách khai báo hằng là mã màu RGB

[ThaiDieuAnh]

Khi em khai báo hằng là

Public Const ClrLightTilerBar     As Long = &H80000003

thì Ok
Giả sử em muốn khai báo màu có mã dạng RGB(200,200,200) thì co cách gì không ạ?

 

[HeSanbi]

Chỉ có một cách duy nhất là cho vào một Hàm trả về giá trị:

Public Function const200_200_200() As Long: const200_200_200 = VBA.RGB(200,200,200) :End Function

Phương pháp khác là đổi RGB(200,200,200) Thành giá trị Hexadecimal (Hex - &Hxxxxxx) hoặc số
Sau đó khai báo thành hằng giá trị.

Đổi thành số: Trong cửa sổ Immediate (Ctrl+G) gõ ?RGB(200,200,200) + Enter

Lưu ý: Hàm RGB cần phải viết đầy đủ là VBA.RGB

 

[ThaiDieuAnh]

Cảm ơn bác đã quan tâm, em xin hỏi:
1. Có hàm tự tạo nào để đổi từ RGB -> HEX không?
2.

Lưu ý: Hàm RGB cần phải viết đầy đủ là VBA.RGB

Là sao bác nhỉ? Lâu nay em chỉ viết mỗi RGB chứ có viết VBA.RGB đâu mà vẫn ok ạ

 

[HeSanbi]

Chuyện đổi sang Hex chắc hẳn đã có trên GPE, bạn tìm kiếm xem.

Còn chuyện VBA.RGB thì đơn giản bạn chỉ cần copy hàm này vào VBA:
-

Public Function RGB(A, B, C) As Long:  RGB = A + B + C :End Function

-
Bây giờ hãy thử sử dụng RGB mà không sử dụng VBA.RGB
Và kiểm tra xem VBA.RGB có giống với giá trị trả về của RGB hay không.

Để không bị nhầm lẫn, và nếu ta có copy code lỡ may có hàm RGB tự tạo, thì có phải là bỏ công để sửa lại thành VBA.RGB không!