標題: 正負 [打印本頁]

---

作者: myleoyes    時間: 2010-12-4 23:09     標題: 正負

各位前輩你們好!
         前輩!問題如附檔案Leov33說明
         請知道的前輩,不吝賜教謝謝再三!!

---

作者: oobird    時間: 2010-12-5 00:34

If Range("C4") <> "" And IsNumeric(Range("C4")) Then 正負

---

作者: GBKEE    時間: 2010-12-5 10:25

回復 1# myleoyes
是這樣嗎?
Sub 正負()
    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

---

作者: myleoyes    時間: 2010-12-5 11:48

回復 3# GBKEE
兩位前輩你們好!
         前輩!這個問題應該這麼解釋比較明白
         If Range("C4") <> "" And Range("C4") <> 0 And Range("C4") <> 公式 Then 正負
         再附檔說明請兩位前輩,不吝賜教謝謝再三!!

---

作者: GBKEE    時間: 2010-12-5 13:54

回復 4# myleoyes
If Range("C4") <> "" And Range("C4") <> 0 And InStr(Range("C4").FormulaR1C1, "=") = 0 Then 正負

---

作者: myleoyes    時間: 2010-12-5 17:45

回復 5# GBKEE
GBKEE良師你好!
　　　良師!!辛苦囉!謝謝再三!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)