文字跟數字混在一起，如何只讓數字變成紅色? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 文字跟數字混在一起，如何只讓數字變成紅色?

返回列表下一主題上一主題發帖

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

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

1^# 跳轉到 »

發表於 2014-12-15 23:12 | 顯示全部帖子

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

Sub test()
'假設要判斷的文字+數字放在A1儲存格
i = Len(Range("A1"))
For j = 1 To i '對A1逐字判斷,數字則改為紅字
If Asc(Mid(Range("A1"), j, 1)) > 47 And Asc(Mid(Range("A1"), j, 1)) < 58 Then
With Range("A1").Characters(Start:=j, Length:=1).Font
.ColorIndex = 3
End With
End If
Next j
'asc 的結果如果是落在48-57,代表數字,其餘可參考 asc 語法
End Sub

複製代碼

靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。

返回列表下一主題上一主題