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

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

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

´Á§¡¨º¦C-5¥H¤W§ï¶À¦â

´Á§¡¨º¦C-5¥H¤W§ï¶À¦â

20190527¦­½L.jpg

201901¦­ ©].rar (20.13 KB)

´Á§¡¨º¦C-5¥H¤W§ï¶À¦â

ª½±µ¨Ï¥ÎEXCEL¤º«Ø¥\¯à "³]©w®æ¦¡¤Æªº±ø¥ó"

TOP

¦^´_ 1# pkey1999
¤£ª¾§A­n­þ¤@­Ó?
  1. Sub ¥¨¶°1()
  2. '
  3. ' ¥¨¶°1 ¥¨¶°
  4. '

  5. '
  6.     Range("E9").Select
  7.     With Selection.Interior   '  ¶ñº¡©³¦â
  8.         .Pattern = xlSolid
  9.         .PatternColorIndex = xlAutomatic
  10.         .Color = 15773696     ' ¤ÑÂŦâ
  11.         .TintAndShade = 0
  12.         .PatternTintAndShade = 0
  13.     End With
  14. End Sub

  15. Sub ¥¨¶°2()
  16. '
  17. ' ¥¨¶°2 ¥¨¶°
  18. '

  19. '
  20.     With Selection.Font    '  ¦r«¬ÃC¦â
  21.         .Name = "Arial"
  22.         .FontStyle = "¼Ð·Ç"
  23.         .Size = 10
  24.         .Strikethrough = False
  25.         .Superscript = False
  26.         .Subscript = False
  27.         .OutlineFont = False
  28.         .Shadow = False
  29.         .Underline = xlUnderlineStyleNone
  30.         .Color = 192      '  ©@°Ø¦â
  31.         .TintAndShade = 0
  32.         .ThemeFont = xlThemeFontNone
  33.     End With
  34. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ pkey1999 ©ó 2019-6-7 10:20 ½s¿è

ª½±µ¨Ï¥ÎEXCEL¤º«Ø¥\¯à "³]©w®æ¦¡¤Æªº±ø¥ó"

  µLªk°õ¦æ³nÅé

TOP

¥»©«³Ì«á¥Ñ pkey1999 ©ó 2019-6-7 10:34 ½s¿è

:'(    :'(      :'(        :'(        :'(

®Ø®Ø¥H¤º -5¥H¤W§ï¶À¦â

90347.jpg

TOP

¦^´_ 3# c_c_lai

   Àµ¨DÀ°§Ú§â¿é¤Jµ{¦¡¨ì°õ¦æ °»´úµL»~¥i¥H¥¿±`¨Ï¥Î°õ¦æ
  
   §Ú¹ï³o­Ó¤@¬¤£³q   «ç»ò¿é¤J  ¤@ª½°»´ú¿ù»~

®Ø®Ø¥H¤º -5¥H¤W§ï¶À¦â

90347.jpg

TOP

¦^´_ 6# pkey1999
¤WÀYªºµ{¦¡½X¸ÕÃD¦@ÀÀ°Ñ¦Ò®M¥Îªº¡A
²{¦b§Úª½±µ±N¥¦®M¤J¨ìµ{¦¡½X¤º¡G
  1. Sub ¦Û°Ê°O¿ý()
  2.     .
  3.     .
  4.     .

  5.     If xRow < 9 Then xRow = 9
  6.     ShtA.Range("A" & xRow & ":N" & xRow).Value = ShtA.Range("A8:N8").Value
  7.     If ShtA.Range("C" & xRow).Value >= 5 Then
  8.         ShtA.Range("C" & xRow).Font.Color = 255           '  ¬õ¦â
  9.     ElseIf ShtA.Range("C" & xRow).Value <= -5 Then
  10.         ShtA.Range("C" & xRow).Font.Color = 65535         '  ¶À¦â (¦r«¬ÃC¦â)
  11.         '  ShtA.Range("C" & xRow).Interior.Color = 65535  '  ¶À¦â (¶ñº¡©³¦â)
  12.         '  ¿ï¾Ü§A­nªºÃþ«¬
  13.     End If

  14.     .
  15.     .
  16.     .
  17. End Sub
½Æ»s¥N½X

TOP

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

§Ú´ú¸Õ ¬Ý¬Ý

TOP

¦^´_ 7# c_c_lai

§Ú´ú¸Õ ¬Ý¬Ý

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD