標題: 如何才能找尋所要的顏色文字資料並在該列的儲存格塗上顏色及填入文字? [打印本頁]

---

作者: agwhk    時間: 2011-5-22 22:15     標題: 如何才能找尋所要的顏色文字資料並在該列的儲存格塗上顏色及填入文字?

當(圖 1) B欄出現藍色文字及紅色文字時，如何
在該列的儲存格塗上顏色及填入文字如 (圖 2)所示?
[attach]6296[/attach]

---

作者: dechiuan999    時間: 2011-5-23 05:57

你好：
  請試試如下：
Sub aa()
   
    Dim mSht As Worksheet
    Dim  s%
    Dim Rng As Range, mRng As Range
   
    Set mSht = Worksheets(1)
    With mSht
        Set mRng = .Range("b1:b7")
        For Each Rng In mRng
            s = Rng.Font.ColorIndex
            Select Case s
            
            Case 5
                Rng.Offset(, -1).Interior.ColorIndex = 4
                Rng.Offset(, 2).Value = "L"
            Case 3
                Rng.Offset(, 1).Interior.ColorIndex = 4
                Rng.Offset(, 2).Value = "R"
            End Select            
            
        Next
    End With
        
End Sub

---

作者: agwhk    時間: 2011-5-23 09:21

很多謝dechiuan999大大的回履指導，試用過合用再一次謝謝!!!!

---

作者: agwhk    時間: 2011-5-23 09:52

如果只在篩選出來的資料才執行此功能，隱藏的資料則不作用應如何修改呢? 謝謝

---

作者: Hsieh    時間: 2011-5-23 14:42

Set mRng = .Range("b1:b7").SpecialCells(xlCellTypeVisible)

---

作者: agwhk    時間: 2011-5-23 18:53

謝謝您們每一位熱心的朋友，使我獲益良多...謝謝

---

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