返回列表 上一主題 發帖

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

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
1# 跳轉到 »
發表於 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

        靜思自在 : 自己害自己，莫過於亂發脾氣。
返回列表 上一主題