Tự động điền màu theo các giá trị trong ô trong bảng tính

Câu hỏi: Có thể điền vào mỗi ô trong bảng tính bằng màu có giá trị thang độ xám giống với giá trị ô không?

Giải trình :

Hãy xem xét tôi có một bảng tính như sau:

Tất cả các giá trị nằm trong khoảng 0-255 (tương ứng với 256 màu thang độ xám). Bây giờ tôi muốn điền vào mỗi ô với màu có giá trị là giá trị trong ô. Vì vậy, sản lượng dự kiến ​​là như sau:

Ngoài ra, hãy xem màu phông chữ trong mỗi ô là đen hoặc trắng tương ứng với màu nền.

Có phương pháp đơn giản nào trong Excel để thực hiện việc này trong một vài bước hoặc tất cả cùng một lúc không?

Tạo một Macro lặp qua các ô của bạn, đọc giá trị trong ô và gán nó cho màu như thế này:

Range("A1:A6").Interior.Color = RGB(200,160,35)

TheUser1024 là đúng, và có phiếu bầu của tôi.

Đây là một giải pháp sẵn sàng để sử dụng:

Public Sub Demo()
  Dim cel As Range
  Dim myRange As Range

  Set myRange = Range("A1:E10")

  For Each cel In myRange
    cel.Interior.Color = RGB(cel.Value, cel.Value, cel.Value)
    If cel.Value > 127 Then
      cel.Font.Color = RGB(0, 0, 0)
    Else
      cel.Font.Color = RGB(255, 255, 255)
    End If
  Next cel
End Sub

Chỉnh sửa:

Mã này sẽ không bị hỏng trong trường hợp chuỗi hoặc giá trị âm ...

Public Sub Demo()
  Dim cel As Range
  Dim greytone As Long
  Dim myRange As Range

  Set myRange = Range("A1:E10")

  For Each cel In myRange
    greytone = CLng(Abs(Val(cel.Value)))
    cel.Interior.Color = RGB(greytone, greytone, greytone)
    If greytone > 127 Then
      cel.Font.Color = RGB(0, 0, 0)
    Else
      cel.Font.Color = RGB(255, 255, 255)
    End If
  Next cel
End Sub