返回列表 上一主題 發帖

[發問] 求助 特定列格中改顏色

ShtA.Range("A" & xRow & ":N" & xRow).Value = ShtA.Range("A8:N8").Value
With ShtA.Range("E" & xRow)
    If .Value >= -5 Then
       .Font.ColorIndex = 3 '字體-紅色
       .Font.Bold = True    '粗體字
       .Interior.ColorIndex = 6 '底色-黃色
    Else
       .Font.ColorIndex = 5  '字體-藍色
       .Font.Bold = False    '標準
       .Interior.ColorIndex = 0 '底色-無
    End If
End With

==========================

TOP

        靜思自在 : 受人點水之恩,須當湧泉以報。
返回列表 上一主題