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

Excel Äæ¦ì (¼Æ­È>0 Åã¥Ü¬õ¦â¦rÅé ; ¼Æ­È¤p©ó¹s Åã¥Üºñ¦â¦rÅé)

Excel Äæ¦ì (¼Æ­È>0 Åã¥Ü¬õ¦â¦rÅé ; ¼Æ­È¤p©ó¹s Åã¥Üºñ¦â¦rÅé)

¦U¦ì¤j¤j¥ý¶i¦n

¤p§Ì¦³¤@Excel Äæ¦ì°ÝÃD·Q½Ð±Ð
¦pªþ¥ó¹ÏÀÉ,¤p§Ì·QÅý¸ÓªÑº¦¶^´T
­Yº¦´T¼Æ­È>0  ¼Æ­È¦Û°Ê¥H"¬õ¦â¦rÅé"Åã¥Ü
­Yº¦´T¼Æ­È<0  ¼Æ­È¦Û°Ê¥H"ºñ¦â¦rÅé"Åã¥Ü
¤£¾å±o³o­n¹ïÄæ¦ì§@«ç¼ËªºÅܧó
©Î«ç¼Ë§@?

ÁÂÁ±z
¤j·P®¦ Orz

ask G¤j.jpg (63.09 KB)

ask G¤j.jpg

¤èªk1:³]©w®æ¦¡¤Æ±ø¥ó
¤èªk2:Àx¦s®æ¦Û­q®æ¦¡

TOP

¦^´_ 1# andylin


   
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh¤j¤j±z¦n Orz
¤p§Ì¤w´L·Ó±z«ü¥Ü©ó¦Û­q³B­×§ï
¯uªº«D±`ÁÂÁ±z¯«¤H¯Åªº«ü¥Ü Orz

¤p§Ì¥t·Q½Ð±Ð
¦pªþ¹Ï,
(1)¦bDÄæ¸Ì,¼Æ­È¬°­t-->¥Hºñ¦â¦rÅéªí¥Ü,
¦]¬°¥Õ©³¼ü¥úºñ¦rÅé¦ü¥G¤£©úÅã¿ë§O,
½Ð°Ý¬O§_¦³¤èªk¥i±N"¼ü¥úºñ¦rÅé" Åܧó¬°"¾¥ºñ¦â¦rÅé"or¨ä¥L¸û·tªººñ¦â

(2)¤p§Ì¦bCÄæ¥[µù¥¿¤T¨¤«¬(¼Æ­È>0®É)»P­Ë¤T¨¤«¬(¼Æ­È<0®É)
½Ð°Ý§Ú­n¦p¦ó¨Ï¤§¥¿¤T¨¤«¬®ÉÅã¥Ü¬õ¦â, ­Ë¤T¨¤«¬®ÉÅã¥Üºñ¦â

(3) ­Y¸ÓªÑº¦´T¬°¥¿, «h¸ÓªÑ¦W¥H¬õ¦â©³Åã¥Ü, ¥B¸ÓªÑ¦W¥H¬õ¦â¦rÅéÅã¥Ü,
³o¥Î¦Û­q¦³¿ìªk¶Ü??

¯uªº«D±`·PÁ±z
·P®¦ Orz

¤]·PÁÂregister313¤j¤jªº¦^ÂÐ ÁÂÁ±z Orz

for Hsieh¤j.jpg (173.89 KB)

for Hsieh¤j.jpg

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-11-14 08:27 ½s¿è

¦^´_ 4# andylin
³]©w®æ¦¡¤Æ±ø¥ó  ¥i«ü©w ¦r«¬ + ¥~®Ø+ ¹Ï¼Ë
2003  ¥i³]3­Ó±ø¥ó
¦p¹Ï



  


TOP

G Sir±z¦n Orz

·PÁ±z¯«¤H¯Å´£Äâ«ü¤Þ
¤w´L·Ó±z«ü¥Ü¸Ñ¨M°ÝÃD
¥Ñ©ó§Úexcel¬O2010
¤¶­±¤W¤£¦P,¹M´M¤@½§äµÛ
¦A¨Ì±z©Ò±Ðªº°Ê§@
«Ü¯«!!!(¦pªþ¹Ï)
¤p§Ì§Úµy·Ltry¤£¦Pªº
³ºµM³s¦r¥À(ªÑ¦W)¤]¥i¸òµÛ¼Æ¦r(º¦¶^´T)ÅܬõÅܺñ
±z¯u¬O¤Ó¯«¤F Orz Orz
¯uªº·PÁ±z¤j¤OÀ°¦£,
¤Ó·PÁ¤F
¯uªº¬O¤j·P®¦ Orz Orz
·PÁÂ!!·PÁÂ!!!

for G¤j_2011.11.jpg (164.34 KB)

for G¤j_2011.11.jpg

TOP

Sub wk()
For ee = 1 To xxx 'xxx=¨ì¼Æ¾Ú³Ì«á¤@µ§
    If Range("b" & ee).Value > 0 Then
        Range("c" & ee).Value = "¡¶"
        
        Range("b" & ee, "k" & ee).Select ' "b" & ee = ¶}©l¿ï¨ú / "k" & ee = ³Ì«á¿ï¨ú

        With Selection.Font
            .Color = -16776961
            .TintAndShade = 0
        End With

    End If
   
    If Range("b" & ee).Value < 0 Then
        Range("c" & ee).Value = "¡¿"
        
        Range("b" & ee, "k" & ee).Select

            With Selection.Font
                .Color = -11489280
                .TintAndShade = 0
            End With
        
    End If

Next ee

End Sub

TOP

mark15¤j
ÁÂÁ±z Orz
±zªºµ{¦¡½X¹ï¤p§Ì¦Ó¨¥
¤Ó²`¤F:L
¤p§Ì»ÝºCºC¬ã¨s
¦ý¯uªº«D±`ÁÂÁ±z Orz
¤j·P®¦ Orz

TOP

¦^´_ 8# andylin

For ee = 1 To xxx '°j°é±q1¨ì ¼Æ¾Ú³Ì«á¤@µ§(XXX)


Range("b" & ee, "k" & ee).Select   '³o¦æ¬O»¡  ±qBÄæ¦ì¿ï¨ú¨ìKÄæ¦ì
  1. Sub wk()
  2. For ee = 1 To xxx 'xxx=¨ì¼Æ¾Ú³Ì«á¤@µ§
  3.     If Range("b" & ee).Value > 0 Then
  4.         Range("c" & ee).Value = "¡¶"
  5.         
  6.         Range("b" & ee, "k" & ee).Select ' "b" & ee = ¶}©l¿ï¨ú / "k" & ee = ³Ì«á¿ï¨ú

  7.         With Selection.Font
  8.             .Color = -16776961
  9.             .TintAndShade = 0
  10.         End With

  11.     End If
  12.    
  13.     If Range("b" & ee).Value < 0 Then
  14.         Range("c" & ee).Value = "¡¿"
  15.         
  16.         Range("b" & ee, "k" & ee).Select

  17.             With Selection.Font
  18.                 .Color = -11489280
  19.                 .TintAndShade = 0
  20.             End With
  21.         
  22.     End If

  23. Next ee

  24. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# mark15jill
²¤Æ¤@¤U
  1. Option Explicit
  2. Sub wk()
  3.     Dim E As Range, S As String, C As Long
  4.     For Each E In Range("C1", Range("C1").End(xlDown))
  5.         If E > 0 Then
  6.             S = "¡¶": C = 3  '-> -16776961
  7.         ElseIf E < 0 Then
  8.             S = "¡¿": C = 14 '-> -11489280
  9.         Else
  10.             S = "": C = 0
  11.         End If
  12.         E.Offset(, 1) = S
  13.         With Range(E, "k" & E.Row).Font  'With Range(E, Cells(E.Row, "k")).Font
  14.            .ColorIndex = C
  15.            '.Color = C
  16.            '.TintAndShade = 0
  17.         End With
  18.     Next
  19. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD