標題: [發問] 如何將儲存格內某幾個特定文字用顏色標出標出 [打印本頁]

---

作者: wendy    時間: 2010-6-19 22:08     標題: 如何將儲存格內某幾個特定文字用顏色標出標出

如何在設定格式化的條件下用公式將儲存格內某幾個特定文字用顏色標出標出

---

作者: Hsieh    時間: 2010-6-19 22:15

回復 1# wendy


    格式化條件做不到

---

作者: wendy    時間: 2010-6-19 22:40

回復 2# Hsieh

要如何做處理呢?  用函數嗎?

---

作者: Hsieh    時間: 2010-6-19 22:44

回復 3# wendy


    手動選取字元變色或使用VBA達成

---

作者: wendy    時間: 2010-6-19 23:01

回復 4# Hsieh

有可能在儲存格格式 類別 自訂內作設定嗎?

---

作者: Hsieh    時間: 2010-6-19 23:04

回復 5# wendy


    不行,你將要改顏色的字元選取
按下文字顏色就行了

---

作者: wendy    時間: 2010-6-19 23:50

回復 6# Hsieh


    知,, 所以還是要回歸到最沒有效率的方法了!!

---

作者: Hsieh    時間: 2010-6-20 00:06

回復 7# wendy


    例如渠部資料要讓"CHANGE COLOR"字串變紅色其餘則維持自動
執行以下程式

1. Sub Ex()
   
2. Dim A As Range
   
3. For Each A In Cells.SpecialCells(xlCellTypeConstants)
   
4.   A.Font.ColorIndex = -4105 '自動字型顏色
   
5.   If InStr(A, "CHANGE COLOR") > 0 Then
   
6.      For i = 1 To Len(A)
   
7.         If Mid(A, i, Len("CHANGE COLOR")) = "CHANGE COLOR" Then
   
8.         A.Characters(i, Len("CHANGE COLOR")).Font.ColorIndex = 3
   
9.         i = i + Len("CHANGE COLOR") - 1
   
10.         End If
    
11.      Next
    
12.   End If
    
13. Next
    
14. End Sub

複製代碼

---

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