返回列表 上一主題 發帖

[發問] 文字跟數字混在一起，如何只讓數字變成紅色?

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-12-15 19:48 | 只看該作者

[發問] 文字跟數字混在一起，如何只讓數字變成紅色?

文字跟數字混在一起，如何只讓數字變成紅色?
Sheets("Sheet1").Range("A65536").End(xlUp).Offset(1) = "最高" & Sheets("Sheet3").Range("Q10").value
Sheets("Sheet3").Range("Q10").value 小於 0 則變成紅色(數字)
收藏 分享

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
10#
發表於 2014-12-23 14:33 | 只看該作者
原來可以這樣做判斷
雖然沒有這種需求
但還是學習了
字典兩各字 還真難理解

TOP

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-28 
9#
發表於 2014-12-22 07:05 | 只看該作者
回復  t8899

不是這樣喔！除了英文、數字、中文以外，還有符號喔！(例如!@#$....，甚至空白鍵、Esc之類 ...
chingmac 發表於 2014-12-22 01:26

謝謝指導

TOP

chingmac

帖子
10 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
win7 
軟體版本
office2003或2010 
閱讀權限
10 
性別
男 
註冊時間
2014-11-20 
最後登錄
2014-12-24 
8#
發表於 2014-12-22 01:26 | 只看該作者
本帖最後由 chingmac 於 2014-12-22 01:27 編輯

回復 7# t8899

不是這樣喔！除了英文、數字、中文以外，還有符號喔！(例如!@#$....，甚至空白鍵、Esc之類的)，可用ASCII碼去區別
  1. Sub Ex()
  2.     '假設要判斷的文字+數字放在A1儲存格
  3.     Dim j
  4.     For j = 1 To Len(Sheets("sheet1").Range("A1"))
  5.         With Range("A1").Characters(Start:=j, Length:=1).Font
  6.             If Mid(Range("A1"), j, 1) Like "[0-9]" Then       '是數字
  7.                .ColorIndex = 3
  8.             ElseIf Mid(Range("A1"), j, 1) Like "[A-Z]" Then   '是大寫英文字母
  9.                .ColorIndex = 8
  10.             ElseIf Mid(Range("A1"), j, 1) Like "[a-z]" Then   '是小寫英文字母
  11.                .ColorIndex = 4
  12.             ElseIf Asc(Mid(Range("A1"), j, 1)) > 0 Then       '不是數字也不是英文也不是中文的其他符號
  13.                .ColorIndex = 1
  14.             ElseIf Asc(Mid(Range("A1"), j, 1)) < 0 Then       '是中文
  15.                .ColorIndex = 5
  16.             End If
  17.         End With
  18.     Next
  19. End Sub
複製代碼

TOP

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-28 
7#
發表於 2014-12-17 12:51 | 只看該作者
回復  t8899


   1.  3,0 -> 表示顏色的數字

   2. GBKEE  大大  在他的程式碼第10列已經，寫好了呀 ...
hugh0620 發表於 2014-12-17 11:59


那抓中文應該是   Like "[!A-z]" and Like "[!0-9]"     ? (不是數字，不是英文)

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
6#
發表於 2014-12-17 11:59 | 只看該作者
本帖最後由 hugh0620 於 2014-12-17 12:14 編輯

回復 5# t8899


   1.  3,0 -> 表示顏色的數字

   2. GBKEE  大大  在他的程式碼第10列已經，寫好了呀~ 不是英文字的時候是甚麼顏色
       依GBKEE大大的寫法修改， 這樣就可以應用到各種字的型態顏色變換。
  1. [code]Sub Ex()
  2.     '假設要判斷的文字+數字放在A1儲存格
  3.     Dim j
  4.     For j = 1 To Len(Range("A1"))
  5.         With Range("A1").Characters(Start:=j, Length:=1).Font
  6.             If Mid(Range("A1"), j, 1) Like "[0-9]" Then       '是數字
  7.                .ColorIndex = 3
  8.             ElseIf Mid(Range("A1"), j, 1) Like "[A-Z]" Then   '是大寫英文字母
  9.                .ColorIndex = 8
  10.             ElseIf Mid(Range("A1"), j, 1) Like "[A-z]" Then   '是英文字母
  11.                .ColorIndex = 4
  12.             ElseIf Mid(Range("A1"), j, 1) Like "[!A-z]" Then  '不是英文字母
  13.                .ColorIndex = 6
  14.             End If
  15.         End With
  16.     Next
  17. End Sub
複製代碼
[/code]
學習才能提升自己

TOP

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-28 
5#
發表於 2014-12-17 11:47 | 只看該作者
本帖最後由 t8899 於 2014-12-17 11:54 編輯
回復  jackdream
可用 Like 運算子
GBKEE 發表於 2014-12-17 11:22


Like "[0-9]", 3, 0)
1. 3跟0 是??
2. like 可以判斷中文字嗎?

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2014-12-17 11:22 | 只看該作者
回復 2# jackdream
可用 Like 運算子
  1. Option Explicit
  2. Sub Ex()
  3.     '假設要判斷的文字+數字放在A1儲存格
  4.     Dim j
  5.     For j = 1 To Len(Range("A1"))
  6.         With Range("A1").Characters(Start:=j, Length:=1).Font
  7.             .ColorIndex = IIf(Mid(Range("A1"), j, 1) Like "[0-9]", 3, 0)  '是數字
  8.             '.ColorIndex = IIf(Mid(Range("A1"), j, 1) Like "[A-z]", 3, 0)  '是英文字母
  9.             '.ColorIndex = IIf(Mid(Range("A1"), j, 1) Like "[A-Z]", 3, 0)  '是大寫英文字母
  10.             '.ColorIndex = IIf(Mid(Range("A1"), j, 1) Like "[!A-z]", 3, 0) '不是英文字母
  11.         End With
  12.     Next   
  13. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-28 
3#
發表於 2014-12-16 06:56 | 只看該作者
jackdream 發表於 2014-12-15 23:12


謝謝指導

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
2#
發表於 2014-12-15 23:12 | 只看該作者
文字跟數字混在一起，如何只讓數字變成紅色?
  1. Sub test()

  3.     '假設要判斷的文字+數字放在A1儲存格
  4.    
  5.     i = Len(Range("A1"))

  7.     For j = 1 To i  '對A1逐字判斷,數字則改為紅字
  8.         If Asc(Mid(Range("A1"), j, 1)) > 47 And Asc(Mid(Range("A1"), j, 1)) < 58 Then
  9.             With Range("A1").Characters(Start:=j, Length:=1).Font
  10.                 .ColorIndex = 3
  11.             End With
  12.         End If
  13.     Next j
  14.    
  15.     'asc 的結果如果是落在48-57,代表數字,其餘可參考 asc 語法
  16.    
  17. End Sub
複製代碼

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題