Changing cell color with user-defined function

Question

Among the ways to use user-defined functions in MSOffice's Excel (2021 version), I would like to change the cell color using the source below. However, I am inquiring because it is not working, so I would appreciate it if you could tell me a solution.

(User-defined function source)

Option Explicit
--------------------------------------------------------------------------
Function FCOLOR(sHex, srng As Range) As String
    Dim sr As Long: Dim sb As Long: Dim sg As Long

    sHex = CStr(svRng(sHex))               'CStr 정수를 문자열로
    sHex = Replace(sHex, "#", "")
    sHex = Right("000000" & sHex, 6)

    sr = Val("&H" & Left(sHex, 2))
    sg = Val("&H" & Mid(sHex, 3, 2))
    sb = Val("&H" & Right(sHex, 2))

    srng.Interior.Color = RGB(sr, sg, sb)

    FCOLOR = srng.Address(0, 0) & " = (" & sr & "," & sg & "," & sb & ")"
    
End Function

--------------------------------------------------------------------------

Function svRng(TargetRng)

If TypeName(TargetRng) = "Range" Then
    svRng = TargetRng.Value
Else
    svRng = TargetRng
End If

End Function

Answer 1

이 응답은 자동으로 번역되었습니다. 따라서 문법 오류 또는 이상한 표현이 있을 수 있습니다.

나는 시도했지만 성공하지 못했다.

https://stackoverflow.com/questions/tagged/vba VBA 질문을 처리하기위한 특수 채널 인 Stack Overflow에 새 스레드를 만드는 것이 좋습니다. 이렇게 하면 쿼리에 대한 보다 전문적인 지원을 받을 수 있습니다. 

양해 바랍니다.

Answer 2

I want to create a user-defined function that changes the color of cells in columns K to M. The user-defined function that changes the text color is "srng.Interior.Color = RGB(sr, sg, sb)" to "srng.Font.Color = RGB. (sr, sg, sb)" to execute. However, the cell color does not work. Is there a user function that changes the cell color by referring to the color number?

Answer 3

이 응답은 자동으로 번역되었습니다. 따라서 문법 오류 또는 이상한 표현이 있을 수 있습니다.

매크로를 테스트하기 위해 더미 데이터가 있는 테스트 파일을 공유할 수 있습니까? 그런 다음 코드를 수정하는 데 도움을 드릴 수 있습니다.

파일 공유의 경우 OneDrive 또는 다른 클라우드 드라이브에 업로드한 다음 여기에 링크를 게시할 수 있습니다.  *업로드하기 전에 샘플 파일에서 민감한 정보나 개인 정보를 제거했는지 확인하십시오.