Excel ThemeColor儲存格顏色的設定
Function Color_test()
For j = 1 To 10
Cells(1, j) = j
With Cells(1, j).Interior
.PatternColorIndex = xlAutomatic '設定顏色
.ThemeColor = j
.TintAndShade = 0.399975585192419 '設定深淺
End With
Next j
End Function
For j = 1 To 10
Cells(1, j) = j
With Cells(1, j).Interior
.PatternColorIndex = xlAutomatic '設定顏色
.ThemeColor = j
.TintAndShade = 0.399975585192419 '設定深淺
End With
Next j
End Function
留言
張貼留言