如何才能找尋所要的顏色文字資料並在該列的儲存格塗上顏色及填入文字?

帖子: 21
主題: 14
精華: 0
積分: 38
點名: 0
作業系統: XP
軟體版本: 繁體
閱讀權限: 10
性別: 男
來自: H0ng Kong
註冊時間: 2010-5-29
最後登錄: 2022-3-13

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-5-22 22:15 | 只看該作者

如何才能找尋所要的顏色文字資料並在該列的儲存格塗上顏色及填入文字?

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

樓主熱帖

帖子: 21
主題: 14
精華: 0
積分: 38
點名: 0
作業系統: XP
軟體版本: 繁體
閱讀權限: 10
性別: 男
來自: H0ng Kong
註冊時間: 2010-5-29
最後登錄: 2022-3-13

6^#

發表於 2011-5-23 18:53 | 只看該作者

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

5^#

發表於 2011-5-23 14:42 | 只看該作者

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

學海無涯_不恥下問

帖子: 21
主題: 14
精華: 0
積分: 38
點名: 0
作業系統: XP
軟體版本: 繁體
閱讀權限: 10
性別: 男
來自: H0ng Kong
註冊時間: 2010-5-29
最後登錄: 2022-3-13

4^#

發表於 2011-5-23 09:52 | 只看該作者

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

帖子: 21
主題: 14
精華: 0
積分: 38
點名: 0
作業系統: XP
軟體版本: 繁體
閱讀權限: 10
性別: 男
來自: H0ng Kong
註冊時間: 2010-5-29
最後登錄: 2022-3-13

3^#

發表於 2011-5-23 09:21 | 只看該作者

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

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

2^#

發表於 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