Excel 問題~~急請幫助~~20分~~~

執行下到巨集, 就可以得到所需效果:
Dim ran As Range
Sub Macro1()
'
' Macro1 巨集表
'

Set ran = Range("a1:c1000")

For Each c In ran
r = c.Row
co = c.Column

If c.Font.ColorIndex = 3 Then
c = -1 * c
Cells(r, co) = c
Cells(r, co).Font.ColorIndex = 4
End If

Next

End Sub


2007-10-21 09:15:56 補充：
1) 工具 --> 巨集 --> vb 編輯器2) 插入 --> 模組3) 將我的 program copy and paste 在 模組 下完成.祝成功.

Actually you can select all your data you need to format, then right click and choose FORMAT CELLS and go to the tab called NUMBER

On the left hand side in the Category list, you choose CUSTOM

On the right hand side under TYPE you can just type in the following string:

0.00;-[Red]0.00

Then choose OK.

If the number's a postive number, it will be formated in black. If the number's a negative number, it will be formated in red with minus sign.

I am using english version Excel and I am not familar with chinese version.
I hope that helps.

Let me know if you need any help!!

可用設定格式化條件
方法: 假設資料在 A 欄， highlight A 欄，
格式 à 設定格式化條件
儲存格的值小於 0
將色彩設成紅色
確定

你是否需要這樣?

輸入紅色字(數字), 加個" - "(負號)係個數字前

唔係好明你個紅色數字點嚟, 如果打數字 -123出嚟
都係黑色喎, 如果你想出嚟嘅時候係紅色, 或者試吓
下列步驟吖
1. 格式
2. 儲存格
3. 數字
4. 數值 (喺隔離會見到一個有黑&紅色數字嘅格)
用mouse click 落到第五個數字, 就會係有負號
及紅字喇
5. 確定

試吓啦, 睇吓係唔係你想要嘅嘢
希望解決到你嘅問題啦

我知道的跟你剛剛相反, 是輸入負數佢自動變紅色, 係 format---cell---number 裏面調校