회색 대신 흰색으로 바뀌는 글꼴 색

Question

코드 작성 방법을 배우는 중이지만 왜 내가 많은 시간을 이미 거쳤는 간단한 작업에 실패했는지 알 수 없습니다.

코드는 글꼴 색을 회색으로 변경하지만 대신 흰색으로 변경됩니다.

For j = 1 To 12 

With wsTank.Cells(first(i), j) 

.Value = "NIL" 

With .Font 
.ThemeColor = xlThemeColorDark1 
.TintAndShade = -0.499984740745262 
End With 
With .Interior 
.Pattern = xlNone 
.TintAndShade = 0 
.PatternTintAndShade = 0 
End With 
With .Borders(xlEdgeTop) 
.LineStyle = xlContinuous 
.ColorIndex = xlAutomatic 
.TintAndShade = 0 
.Weight = xlHairline 
End With 
With .Borders(xlEdgeBottom) 
.LineStyle = xlContinuous 
.ColorIndex = xlAutomatic 
.TintAndShade = 0 
.Weight = xlHairline 
End With 
End With 


Next j 

나는 온라인으로 많이 검색하고 비슷한 문제를 가진 사람을 발견 :

https://www.experts-exchange.com/questions/26937588/Excel-vba-font-color-keeps-shoeing-white-instead-of-gray.html

도움이 기꺼이 다른 사람의 몇 가지 시도 후, 그는 바로 그것을 얻었다.

그러나 나는 그의 설명을 간략하게하지 않습니다. 따라서 저는 제 사건에 그것을 적용하는 데 성공하지 못하고 있습니다.

나를 계몽 해 주시겠습니까?

는 (이 문제는 엑셀 2010과 2013 Excel에서 잘 코드 작업을 무슨 일이 일어나고)

Answer 1

귀하의 링크의 대답은 전혀 대신 RGB 값으로 Color를 사용 Themecolor을 사용하지 않도록했다

:

With .Font 
    .Color = &H808080 
    .TintAndShade = 0 
end with 

Answer 2

모든 Excel 버전에서 작동합니다. 그들이 변경으로

.Font.Color = RGB(255, 255, 255)

xl... 문은 버전에서 다를 수 있습니다.