ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨D§U ¯S©w¦C®æ¤¤§ïÃC¦â

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

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

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD