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

¥¿­t

¥¿­t

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

Leov33.rar (11.72 KB)

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

TOP

¦^´_ 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

TOP

¦^´_ 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!!

Leov33-2.rar (12.33 KB)

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD