Question

我正在寻找一种可能使用VBA通过查看同一记录中的指定字段来应用单元格填充值的方法。这将是一个样本制表符分隔的Excel工作表：

BEGIN_DATA_FORMAT
SampleID    SAMPLE_NAME CMYK_C  CMYK_M  CMYK_Y  CMYK_K  LAB_L   LAB_A   LAB_B

BEGIN_DATA                              
1   1   100 0   0   60  34.16   -19.52  -27.46
2   2   100 100 0   60  22.02   6.27    -23.25
3   3   100 0   0   0   54.56   -31.12  -45.29
END_DATA

字段3-6分别包含CMYK的值。我想通过解析组合CMYK值的每个记录作为起点，将单元格背景填充应用于字段1。

除非有后门方法在Excel / Windows颜色选择器中设置CMYK值，否则最初可能需要转换为RGB或HSL。

Answer 1

这将为您提供数据中CYMK的RGB：

Function CYMK2RGB(c As Integer, y As Integer, m As Integer, k As Integer) As Long
Dim R As Integer
Dim G As Integer
Dim B As Integer
Dim colors As Integer

colors = 255 * (100 - k) / 100
R = colors * (100 - c) / 100
G = colors * (100 - m) / 100
B = colors * (100 - y) / 100

CYMK2RGB = RGB(R, G, B)
End Function

使用range("A1").Interior.Color=cymk2rgb(...)将设置颜色 - 请注意它不会完全匹配，因为CYMK是减色的，RGB是加法的。这个网站：http://www.printernational.org/rgb-versus-cmyk.php有更多详细信息比较两者。

使用CMYK单元格值在Excel中着色单元格

1 个答案: