標題:
如何依據儲存格的內容改變右邊儲存格的底色
[打印本頁]
作者:
deyan
時間:
2010-12-25 00:07
標題:
如何依據儲存格的內容改變右邊儲存格的底色
請問要怎麼依儲存格的開頭的第一個字當條件，改變同列中的另一個儲存格的底色？
例如A1~A10內容為Axxx或是Bxxx（xxx可為任意文字）
當開頭是A的時候同一列右欄(B1~B10)的儲存格的底色就變紅色，開頭是B的時候就變黃色
並套用到所有列，列數不固定，感謝！
作者:
Hsieh
時間:
2010-12-25 00:39
Sub Ex()
Dim A As Range
If Application.CountA(Columns("A")) > 0 Then
For Each A In Range("A:A").SpecialCells(xlCellTypeConstants)
Select Case Left(A, 1)
Case "A"
s = 3
Case "B"
s = 6
Case "C"
s = 5
End Select
A.Offset(, 1).Interior.ColorIndex = s
Next
End If
End Sub
複製代碼
作者:
deyan
時間:
2010-12-25 05:13
回復
2#
Hsieh
感謝版主的回答！
但我試了不管A欄的值多少，
B欄只會變成"無填滿"，
可以再幫忙看一下嗎？
作者:
Hsieh
時間:
2010-12-25 08:50
回復
3#
deyan
我測試OK，或許你執行位置錯誤
請上傳您的附件看看為何不行
作者:
deyan
時間:
2010-12-26 02:58
找到問題了，原來是大小寫的問題（我用小寫）
謝謝您！
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
