[發問] 如何識別特定條件的數值並改字體大小和顏色?

yahoohk1314

下載 (685 Bytes)

2018-9-7 01:59

如何當我在同一儲存格當中
輸入負數或正數(條件為必須有+/-號)時
自動把
負數改字體大小為10, 顏色為紅色
正數改字體大小為10, 顏色為綠色

Many thanks!

yahoohk1314

回復  yahoohk1314


請確認+,- 符號後需要變顏色的數字 到 不需變顏色的數字，中間是否有空格

建議 ...
n7822123 發表於 2018-12-11 11:30

    是存在空格的, 不過這問題出現的情況很奇怪
難以有確定的解釋
考慮到問題不是太大, 我還是每次手動COPY貼上一下就當DEBUG好了
謝謝各位的熱心幫忙!
不勝感激!

n7822123

回復 19# yahoohk1314


請確認+,- 符號後需要變顏色的數字 到 不需變顏色的數字，中間是否有空格

建議上傳檔案，大家比較好幫你Debug

yahoohk1314

回復  yahoohk1314


因為本來只有一個儲存格，被你改掉之後，
.value取出的資料已經不是單一字串，變 ...
n7822123 發表於 2018-12-9 21:05

    感謝阿龍指教
這個指令達到我的要求了
但是出現了些問題, 未知是原因為何
如下圖中, 每列中的首行數值會達不到我的要求(藍圈位置)
但是奇怪地每列第2列開始的數值能正常達到我要求

下載 (20.43 KB)

2018-12-10 03:29

n7822123

回復 17# yahoohk1314


因為本來只有一個儲存格，被你改掉之後，
.value取出的資料已經不是單一字串，變成陣列了

試試下面的程式吧!

Sub TEST_02()
Dim i%, C%, U%, T$
For Each rg In [H1:H100]: With rg
     For i = 1 To Len(.Value) + 1
         T = Trim(Mid(.Value, i, 1))
         If T = "+" Then U = i: C = 43
         If T = "-" Then U = i: C = 3
         If T = "" Then With .Characters(U, i - U).Font: .Size = 10: .ColorIndex = C: End With
     Next i
End With: Next
End Sub

yahoohk1314

回復  yahoohk1314


Sub TEST_02()
Dim i%, C%, U%, T$
With Range("A1")
     For i = 1 To Len(. ...
准提部林 發表於 2018-12-9 12:05

    感謝版大指教
此行做到我想要的效果了
但敢問如何設定修改需要更改的位置
例如 H1 至 H100
試了將上述的A1改做H1:H100
但會出現錯誤, 未知是出現什麼問題

不勝感激!

准提部林

回復 15# yahoohk1314


Sub TEST_02()
Dim i%, C%, U%, T$
With Range("A1")
     For i = 1 To Len(.Value) + 1
         T = Trim(Mid(.Value, i, 1))
         If T = "+" Then U = i: C = 43
         If T = "-" Then U = i: C = 3
         If T = "" Then With .Characters(U, i - U).Font: .Size = 10: .ColorIndex = C: End With
     Next i
End With
End Sub

yahoohk1314

回復  yahoohk1314
是同一儲存格內的數值產生不同顏色與字體大小嗎?
Hsieh 發表於 2018-9-25 14:55

    非常對不起, 之前一直忘了上來
問了很多都不太懂怎做, 所以一直都以手動改文字大小和顏色
有Hsieh版大親自回答真是感恩萬分!!

是的, 同一儲存格
簡單說 我要的效果是這樣

從下圖中 下面的儲存格變成上面的儲存格
0或+數變綠色 字體大小為10
-數變紅色 字體大小為10
不勝感激!

Hsieh

回復 10# yahoohk1314
是同一儲存格內的數值產生不同顏色與字體大小嗎?


   

下載 (5.59 KB)

2018-9-25 14:55

infoverdad

回復 1# yahoohk1314

若不考慮改字體大小的話，直接用自訂格式可以達到變色的效果。
    [綠色]+ #,##0;[紅色]- #,##0