AXCESS中运用RGB显示单元格的颜色

13631632978

各位大神，

我现在正在做一个生产排程系统，需要使用RGB或LAB，在颜色中的单元中显示相应的颜色，附件和图片已上传，请帮忙设计一下，非常感谢！

ivccav

现在用wps，没有数据库，印象中是不能单独设置每个单元格的底色的。
要用，估计得换控件，比如VSFlexgrid Pro 8.0


https://club.excelhome.net/thread-1454440-1-1.html

zpy2

https://support.microsoft.com/zh-cn/office/%E4%BD%BF%E7%94%A8%E6%9D%A1%E4%BB%B6%E6%A0%BC%E5%BC%8F%E7%AA%81%E5%87%BA%E6%98%BE%E7%A4%BA%E6%95%B0%E6%8D%AE-7f7c0bd4-7c37-421d-adad-a260125c8129

条件格式？

13631632978

我们没有使用WPS，用的OFFICE365

13631632978

大师们，帮忙看看有没有什么办法？谢谢！

13631632978

看一下以下代码要怎样修改一下就楞以实现？谢谢！
Private Sub A_AfterUpdate()
Me.Refresh

Dim R As Integer
Dim G As Integer
Dim B2 As Integer

If [L] >= 95 Then
   [R] = 255
   [G] = 255
   [B] = 255
ElseIf [L] <= 10 Then
        [R] = 0
        [G] = 0
        [B] = 0

   
    Else
        If [A] >= -0.5 And [A] <= 0.5 And [B1] >= -0.5 And [B1] <= 0.5 Then
           [R] = 255 * [L] / 100
           [G] = 255 * [L] / 100
           [B] = 255 * [L] / 100
        Else
        
           [R] = -13.54 + 2.6835 * [L] + 2.685 * [A] + 0.6817 * [B1] - 0.05049 * [A] * [A] - 0.02168 * [B1] * [B1] + 0.000513 * [A] * [A] * [A] + 0.000244 * [B1] * [B1] * [B1]
           [G] = 15.6 + 1.668 * [L] - 0.08041 * [A] + 0.00733 * [L] * [L]
           [B] = -10.05 + 2.6045 * [L] + 0.0594 * [A] - 1.4425 * [B1] - 0.00121 * [B1] * [B1] - 0.004001 * [L] * [B1] - 0.000063 * [B1] * [B1] * [B1]
        End If

End If

If [R] < 0 Then
   R = 0
   Else
   R = [R]
End If

If [G] < 0 Then
   G = 0
   Else
   G = [G]
End If

If [B] < 0 Then
   B2 = 0
   Else
   B2 = [B]
End If

   
[color].BackColor = RGB(R, G, B2)
End Sub

Private Sub B1_AfterUpdate()
Me.Refresh

Dim R As Integer
Dim G As Integer
Dim B2 As Integer

If [L] >= 95 Then
   [R] = 255
   [G] = 255
   [B] = 255
ElseIf [L] <= 10 Then
        [R] = 0
        [G] = 0
        [B] = 0

   
    Else
        If [A] >= -0.5 And [A] <= 0.5 And [B1] >= -0.5 And [B1] <= 0.5 Then
           [R] = 255 * [L] / 100
           [G] = 255 * [L] / 100
           [B] = 255 * [L] / 100
        Else
        
           [R] = -13.54 + 2.6835 * [L] + 2.685 * [A] + 0.6817 * [B1] - 0.05049 * [A] * [A] - 0.02168 * [B1] * [B1] + 0.000513 * [A] * [A] * [A] + 0.000244 * [B1] * [B1] * [B1]
           [G] = 15.6 + 1.668 * [L] - 0.08041 * [A] + 0.00733 * [L] * [L]
           [B] = -10.05 + 2.6045 * [L] + 0.0594 * [A] - 1.4425 * [B1] - 0.00121 * [B1] * [B1] - 0.004001 * [L] * [B1] - 0.000063 * [B1] * [B1] * [B1]
        End If

End If

If [R] < 0 Then
   R = 0
   Else
   R = [R]
End If

If [G] < 0 Then
   G = 0
   Else
   G = [G]
End If

If [B] < 0 Then
   B2 = 0
   Else
   B2 = [B]
End If

   
[color].BackColor = RGB(R, G, B2)
End Sub

Private Sub Command22_Click()
Me.Refresh

Dim R As Integer
Dim G As Integer
Dim B2 As Integer

If [L] >= 95 Then
   [R] = 255
   [G] = 255
   [B] = 255
ElseIf [L] <= 10 Then
        [R] = 0
        [G] = 0
        [B] = 0

   
    Else
        If [A] >= -0.5 And [A] <= 0.5 And [B1] >= -0.5 And [B1] <= 0.5 Then
           [R] = 255 * [L] / 100
           [G] = 255 * [L] / 100
           [B] = 255 * [L] / 100
        Else
        
           [R] = -13.54 + 2.6835 * [L] + 2.685 * [A] + 0.6817 * [B1] - 0.05049 * [A] * [A] - 0.02168 * [B1] * [B1] + 0.000513 * [A] * [A] * [A] + 0.000244 * [B1] * [B1] * [B1]
           [G] = 15.6 + 1.668 * [L] - 0.08041 * [A] + 0.00733 * [L] * [L]
           [B] = -10.05 + 2.6045 * [L] + 0.0594 * [A] - 1.4425 * [B1] - 0.00121 * [B1] * [B1] - 0.004001 * [L] * [B1] - 0.000063 * [B1] * [B1] * [B1]
        End If

End If

If [R] < 0 Then
   R = 0
   Else
   R = [R]
End If

If [G] < 0 Then
   G = 0
   Else
   G = [G]
End If

If [B] < 0 Then
   B2 = 0
   Else
   B2 = [B]
End If

   
[color].BackColor = RGB(R, G, B2)
End Sub

Private Sub L_AfterUpdate()
Me.Refresh
Dim R As Integer
Dim G As Integer
Dim B2 As Integer

If [L] >= 95 Then
   [R] = 255
   [G] = 255
   [B] = 255
ElseIf [L] <= 10 Then
        [R] = 0
        [G] = 0
        [B] = 0

   
    Else
        If [A] >= -0.5 And [A] <= 0.5 And [B1] >= -0.5 And [B1] <= 0.5 Then
           [R] = 255 * [L] / 100
           [G] = 255 * [L] / 100
           [B] = 255 * [L] / 100
        Else
        
           [R] = -13.54 + 2.6835 * [L] + 2.685 * [A] + 0.6817 * [B1] - 0.05049 * [A] * [A] - 0.02168 * [B1] * [B1] + 0.000513 * [A] * [A] * [A] + 0.000244 * [B1] * [B1] * [B1]
           [G] = 15.6 + 1.668 * [L] - 0.08041 * [A] + 0.00733 * [L] * [L]
           [B] = -10.05 + 2.6045 * [L] + 0.0594 * [A] - 1.4425 * [B1] - 0.00121 * [B1] * [B1] - 0.004001 * [L] * [B1] - 0.000063 * [B1] * [B1] * [B1]
        End If

End If

If [R] < 0 Then
   R = 0
   Else
   R = [R]
End If

If [G] < 0 Then
   G = 0
   Else
   G = [G]
End If

If [B] < 0 Then
   B2 = 0
   Else
   B2 = [B]
End If

   
[color].BackColor = RGB(R, G, B2)
End Sub