返回列表 上一主題 發帖

如何搜尋資料並將資料顯示為紅色字樣？

q1a2z5

帖子
142 
主題
80 
精華
0 
積分
221 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2011-4-14 
最後登錄
2021-4-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-4 08:45 | 只看該作者

如何搜尋資料並將資料顯示為紅色字樣？

數筆地址資料如下？
台北市中正區○○○○○○○○○○○○
台北市中正區○○○○○○○○○○○○
台北市信義區○○○○○○○○○○○○
台北市中山區○○○○○○○○○○○○
台北市中山區○○○○○○○○○○○○

搜尋資料條件為只要有中山區的字樣，只有將中山區顯示為紅色字體．
如果如下：
台北市中正區○○○○○○○○○○○○
台北市中正區○○○○○○○○○○○○
台北市信義區○○○○○○○○○○○○
台北市中山區○○○○○○○○○○○○
台北市中山區○○○○○○○○○○○○

謝謝！
收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-10-4 09:26 | 只看該作者
本帖最後由 Hsieh 於 2011-10-4 09:28 編輯

回復 1# q1a2z5
要取得準則資料，使用進階篩選即可
取得的值，字型格式無法設定多樣
學海無涯_不恥下問

TOP

pinklee

帖子
57 
主題
25 
精華
0 
積分
87 
點名
0  
作業系統
xp2 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-16 
最後登錄
2023-11-29 
3#
發表於 2011-10-4 10:15 | 只看該作者
在這裡學到的
您參考一下下

Sub 改變字串顏色()
Dim A As Range
Dim cclor As Integer
Dim cput As String
cclor = InputBox("顏色代碼: 1黑  2白  3紅  4綠  5藍  6黃  7紫  ", "請選擇顏色:1-7")
cput = InputBox("請輸入要改變顏色的字串:", "請輸入字串  ")
For Each A In Cells.SpecialCells(xlCellTypeConstants)
  A.Font.ColorIndex = -4105 '自動字型顏色
  If InStr(A, cput) > 0 Then
     For i = 1 To Len(A)
        If Mid(A, i, Len(cput)) = cput Then
        A.Characters(i, Len(cput)).Font.ColorIndex = cclor
        i = i + Len(cput) - 1
        End If
     Next
  End If
Next
End Sub

TOP

handmuch
　暱稱: expresmile

中學生Rank: 2

帖子
43 
主題
1 
精華
0 
積分
74 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-1-17 
最後登錄
2020-8-24 
4#
發表於 2011-10-4 16:17 | 只看該作者
本帖最後由 handmuch 於 2011-10-4 16:23 編輯

試試"設定格試化條件"，不過整個儲存格的字都會變色就是了

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題