フォントの色がグレーの代わりに白に変わる

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

を助けるために喜んで誰かのいくつかの試みの後、彼は右のそれを得ました。

しかし、私は彼の説明を控えていません...そして、私はそれを私の場合に適用することに成功していません。

誰か教えてください。

は（この問題は、Excel 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...文は、バージョン間で異なる場合があります。