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

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

q1a2z5

中學生 Rank: 2

帖子: 142
主題: 80
精華: 0
積分: 221
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2011-4-14
最後登錄: 2021-4-28

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-10-4 08:45 | 只看該作者

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

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

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

謝謝！

樓主熱帖

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

pinklee

中學生 Rank: 2

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章