EXCEL VBA根据表格内容显示颜色

Sub RGB565_Display()

Dim i As Integer

Dim R As Integer

Dim G As Integer

Dim B As Integer

For i = 2 To 243

R = WorksheetFunction.Hex2Dec(Sheet1.Cells(i, "M")) * 8

G = WorksheetFunction.Hex2Dec(Sheet1.Cells(i, "N")) * 4

B = WorksheetFunction.Hex2Dec(Sheet1.Cells(i, "O")) * 8

Cells(i, "C").Interior.Color = RGB(R, G, B)

Next

End Sub

以上代码是VBA中将M、N、O列中的RGB565颜色值(16进制)显示颜色到C列单元格背景中。