Visual Basic Excel 글꼴 색

Question

현재 셀의 색을 결정하고 싶습니다. 언제 내가

Debug.Print ActiveCell.Font.Color 

나는 다시 전화를받습니다. 이 경우 24832
이 숫자 만 있으면이 색상의 적절한 RGB 값을 어떻게 결정합니까?
int를 RGB (0,0,0)로 바꾸는 함수가 있습니까?

Answer 1

RGB에 내장 된 VBA 변환이 없으므로 직접 작성해야합니다.

는 시도이

Function ColorToRgb(Color As Variant) As Variant 
    ' return #Value Error for invalid colors 
    If Color < 0 Or Color > 16777215 Then 
     ColorToRgb = CVErr(xlErrValue) 
    End If 

    ReDim Res(1 To 3) As Variant 
    ' Treating Color as a 24 bit number 
    Res(1) = Color Mod 256   ' Red value: left most 8 bits 
    Res(2) = Color \ 256 Mod 256 ' Green value: middle 8 bits 
    Res(3) = Color \ 65536 Mod 256 ' Blue value: right most 8 bits 

    ColorToRgb = Res 
End Function 

Answer 2

이 RGB 구성 요소에 대한 훨씬 빠른 비트 마스크입니다 :

Function RGBComp(Clr As Variant) As Variant 
    If Clr >= 0 Or Clr <= 16777215 Then 
     RGBComp = Array(Clr And &HFF, (Clr And &HFF00&) \ &H100&, (Clr And &HFF0000) \ &H10000) 
    Else 
     RGBComp = CVErr(xlErrValue) 
    End If 
End Function