vba函數(shù)用RGB取顏色的反色

不同的顏色給我們不同的感覺。所以生活中有不同的顏色選擇，比如衣物，生活用品等

而顏色有它的反色，又叫補色。比如有黑就有白，紅對應(yīng)青。

下面函數(shù)用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顏色互轉(zhuǎn)