標題: 如何搜尋資料並將資料顯示為紅色字樣？ [打印本頁]

---

作者: q1a2z5    時間: 2011-10-4 08:45     標題: 如何搜尋資料並將資料顯示為紅色字樣？

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

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

謝謝！

---

作者: Hsieh    時間: 2011-10-4 09:26

本帖最後由 Hsieh 於 2011-10-4 09:28 編輯

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

---

作者: pinklee    時間: 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

---

作者: handmuch    時間: 2011-10-4 16:17

本帖最後由 handmuch 於 2011-10-4 16:23 編輯

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)