¥¿­t

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!°ÝÃD¦pªþÀÉ®×Leov33»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 5# GBKEE
GBKEE¨}®v§A¦n!
¡@¡@¡@¨}®v!!¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 4# myleoyes
If Range("C4") <> "" And Range("C4") <> 0 And InStr(Range("C4").FormulaR1C1, "=") = 0 Then ¥¿­t

myleoyes

¦^´_ 3# GBKEE
¨â¦ì«e½ú§A­Ì¦n!
         «e½ú!³o­Ó°ÝÃDÀ³¸Ó³o»ò¸ÑÄÀ¤ñ¸û©ú¥Õ
         If Range("C4") <> "" And Range("C4") <> 0 And Range("C4") <> ¤½¦¡ Then ¥¿­t
         ¦AªþÀÉ»¡©ú½Ð¨â¦ì«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

GBKEE

¦^´_ 1# myleoyes
¬O³o¼Ë¶Ü?
Sub ¥¿­t()
    If Range("C4") > 0 Then
       Range("C4") = "=-" & Mid(Range("C4").FormulaR1C1, 2)
    ElseIf Range("C4") < 0 Then
       Range("C4") = Mid(Range("C4").FormulaR1C1, 2)
    End If
    Range("D4").Select
End Sub

oobird

If Range("C4") <> "" And IsNumeric(Range("C4")) Then ¥¿­t