­ã´£³¡ªL

ShtA.Range("A" & xRow & ":N" & xRow).Value = ShtA.Range("A8:N8").Value
With ShtA.Range("E" & xRow)
    If .Value >= -5 Then
       .Font.ColorIndex = 3 '¦rÅé-¬õ¦â
       .Font.Bold = True    '²ÊÅé¦r
       .Interior.ColorIndex = 6 '©³¦â-¶À¦â
    Else
       .Font.ColorIndex = 5  '¦rÅé-ÂŦâ
       .Font.Bold = False    '¼Ð·Ç
       .Interior.ColorIndex = 0 '©³¦â-µL
    End If
End With

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