office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

vba函数用RGB取颜色的反色

2020-09-02 08:00:00
tmtony8
原创
438

不同的颜色给我们不同的感觉。所以生活中有不同的颜色选择,比如衣物,生活用品等

而颜色有它的反色,又叫补色。比如有黑就有白,红对应青。

下面函数用RGB取颜色的反色 对比色


Public Function GetRevColor(lngColor As Long) As Long
   Dim lngR  As Long
   Dim lngG As Long
   Dim lngB As Long
   lngR = lngColor Mod 256
   lngG = lngColor / 256 Mod 256
   lngB = lngColor / 256 / 256 Mod 256
   
   lngR = 255 - lngR
   lngG = 255 - lngG
   lngB = 255 - lngB
   
   GetRevColor = lngR + lngG * 256 + lngB * 256 * 256
   
   ' Debug.Print lngR & "-"; lngG & "-" & lngB
End Function



输入黑色的颜色值0 返回白色的颜色值16777215



扩展阅读:


vb/vba颜色和RGB颜色互转

    分享