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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2018-9-7 02:02 | 只看該作者

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

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

Many thanks!

yahoohk1314

中學生 Rank: 2

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

21^#

發表於 2018-12-11 13:15 | 只看該作者

回復 yahoohk1314

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

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

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

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

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

20^#

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

回復 19# yahoohk1314

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

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

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

TOP

yahoohk1314

中學生 Rank: 2

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

19^#

發表於 2018-12-10 03:25 | 只看該作者

本帖最後由 yahoohk1314 於 2018-12-10 03:29 編輯

回復 yahoohk1314

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

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

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 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

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

TOP

yahoohk1314

中學生 Rank: 2

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

不勝感激!

TOP

准提部林

版主 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

TOP

yahoohk1314

中學生 Rank: 2

帖子: 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)

TOP

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兔年全勤獎章