Các mã màu qui định trong một Modul

[wtvnphu]

Chào các bác,
Các bác nào biết về mã màu qui định trong tạo Modul về màu nền và màu font chữ, cho em xin mã với. VD 1 là đen, 2 là trắng và còn gì nữa, những màu như xanh lá, hồng chẳng hạn
Cảm ơn các bác đã lưu tâm

 

[ndu96081631]

cái này mình nhớ không lầm là có lần Bác Ndu đã làm một cái form bằng VBA chỉ cần click chuột vào màu nào đó là nó hiện ra cái mã màu đó. nhưng tìm lại trên diễn đàn không được. Mong bác Ndu tìm lại và gửi lên nhé.

Nó đây nè đồng chí à:
http://www.giaiphapexcel.com/forum/showpost.php?p=214122&postcount=5

 

[wtvnphu]

Cảm ơn 2 bác đã chỉ dẫn nhưng em hỏi cái khác cơ. Mời các bác xem cái này :
Function SumColor(Area As Range, Ci As Integer)
Dim sng As Single, rng As Range
For Each rng In Area
If rng.Interior.ColorIndex = Ci Then sng =
sng+rng.Value
Next rng
SumColor = sng
End Function
VD :

=SumColor(A1:A5,3).

Ghi chú: Màu nền (1=black, 2=white, 3=red, 4=green,5=blue, ...).


Màu nền trong hàm tự định nghĩa này có bảng chuẩn qui định ko các bác? Nếu có cụ thể là gì? màu hồng? xanh lá? xám nâu? v.v
Xin các bác chỉ giúp ạ

 

[khoavu87]

Dim mycolumns As Range
For Each mycolumns In Range("E2:K13").Columns
'*** doi mau
mycolumns.Interior.Color = RGB(0, 255, 0)
cái này bạn thử xem . để thay đổi màu trong vùng nào đó bạn thay đổi theo RGB(0,255,0)
Hay bạn dùng đoạn code này cho nó ngắn nè:

Worksheets("Sheet1").Range("E1:K1").Font.Color = RGB(255, 0, 0)

 

[Hai Lúa Miền Tây]

Cảm ơn 2 bác đã chỉ dẫn nhưng em hỏi cái khác cơ. Mời các bác xem cái này :
Function SumColor(Area As Range, Ci As Integer)
Dim sng As Single, rng As Range
For Each rng In Area
If rng.Interior.ColorIndex = Ci Then sng =
sng+rng.Value
Next rng
SumColor = sng
End Function
VD :

=SumColor(A1:A5,3).

Ghi chú: Màu nền (1=black, 2=white, 3=red, 4=green,5=blue, ...).


Màu nền trong hàm tự định nghĩa này có bảng chuẩn qui định ko các bác? Nếu có cụ thể là gì? màu hồng? xanh lá? xám nâu? v.v
Xin các bác chỉ giúp ạ

Bạn tham khảo bảng màu sau nhé:

 

[ndu96081631]

Màu nền trong hàm tự định nghĩa này có bảng chuẩn qui định ko các bác? Nếu có cụ thể là gì? màu hồng? xanh lá? xám nâu? v.v
Xin các bác chỉ giúp ạ

Chỉ bạn cách tự nghiên cứu
Chạy code này xem

Sub Palette()
  Dim i As Long
  Range("A1") = "Color Index"
  Range("B1") = "Color"
  For i = 1 To 56
    Cells(i + 1, 1) = i
    Cells(i + 1, 2).Interior.ColorIndex = i
  Next
End Sub