如何識別特定條件的數值並改字體大小和顏色? - Excelㄧ般區

帖子: 11
主題: 1
精華: 0
積分: 62
點名: 0
作業系統: win7
軟體版本: win7
閱讀權限: 20
註冊時間: 2018-6-13
最後登錄: 2018-12-13

12^#

發表於 2018-9-14 13:41 | 只看該作者

1RANGE("A1")儲存格內=23.06 +0.34 22.14 -0.14 24.14 -0.99
建議用頗析將資料轉至RANGE("A1") RANGE("B ...
rouber590324 發表於 2018-9-13 16:17

謝謝師兄熱心幫忙
看來要學學VBA了

infoverdad

帖子: 175
主題: 8
精華: 0
積分: 207
點名: 201
作業系統: WIN 10
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2026-9-24

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章

13^#

發表於 2018-9-22 21:17 | 只看該作者

回復 1# yahoohk1314

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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

14^#

發表於 2018-9-25 14:55 | 只看該作者

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

學海無涯_不恥下問

帖子: 11
主題: 1
精華: 0
積分: 62
點名: 0
作業系統: win7
軟體版本: win7
閱讀權限: 20
註冊時間: 2018-6-13
最後登錄: 2018-12-13

15^#

發表於 2018-12-8 13:26 | 只看該作者

本帖最後由 yahoohk1314 於 2018-12-8 13:32 編輯

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

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

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

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

321321.jpg (11.31 KB)

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

16^#

發表於 2018-12-9 12:05 | 只看該作者

回復 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

帖子: 11
主題: 1
精華: 0
積分: 62
點名: 0
作業系統: win7
軟體版本: win7
閱讀權限: 20
註冊時間: 2018-6-13
最後登錄: 2018-12-13

17^#

發表於 2018-12-9 13:30 | 只看該作者

本帖最後由 yahoohk1314 於 2018-12-9 13:35 編輯

回復 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
但會出現錯誤, 未知是出現什麼問題

不勝感激!

n7822123

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

18^#

發表於 2018-12-9 21:05 | 只看該作者

本帖最後由 n7822123 於 2018-12-9 21:07 編輯

回復 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

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助