如何才能找尋所要的顏色文字資料並在該列的儲存格塗上顏色及填入文字?
- 帖子
- 21
- 主題
- 14
- 精華
- 0
- 積分
- 38
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 繁體
- 閱讀權限
- 10
- 性別
- 男
- 來自
- H0ng Kong
- 註冊時間
- 2010-5-29
- 最後登錄
- 2025-1-12
|
如何才能找尋所要的顏色文字資料並在該列的儲存格塗上顏色及填入文字?
當(圖 1) B欄出現藍色文字及紅色文字時，如何
在該列的儲存格塗上顏色及填入文字如 (圖 2)所示?
|
|
|
|
|
|
|
|
- 帖子
- 21
- 主題
- 14
- 精華
- 0
- 積分
- 38
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 繁體
- 閱讀權限
- 10
- 性別
- 男
- 來自
- H0ng Kong
- 註冊時間
- 2010-5-29
- 最後登錄
- 2025-1-12
|
6#
發表於 2011-5-23 18:53
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 21
- 主題
- 14
- 精華
- 0
- 積分
- 38
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 繁體
- 閱讀權限
- 10
- 性別
- 男
- 來自
- H0ng Kong
- 註冊時間
- 2010-5-29
- 最後登錄
- 2025-1-12
|
4#
發表於 2011-5-23 09:52
| 只看該作者
|
如果只在篩選出來的資料才執行此功能，隱藏的資料則不作用應如何修改呢? 謝謝 |
|
|
|
|
|
|
|
- 帖子
- 21
- 主題
- 14
- 精華
- 0
- 積分
- 38
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 繁體
- 閱讀權限
- 10
- 性別
- 男
- 來自
- H0ng Kong
- 註冊時間
- 2010-5-29
- 最後登錄
- 2025-1-12
|
3#
發表於 2011-5-23 09:21
| 只看該作者
|
很多謝dechiuan999大大的回履指導，試用過合用再一次謝謝!!!! |
|
|
|
|
|
|
|
- 帖子
- 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 |
|
|
|
|
|
|
|
發表於 2011-5-23 14:42
| 
