返回列表 上一主題 發帖

[發問] 關鍵字讓列文字變色

回復 10# Andy2483


    關鍵字是有的
    我把代碼改貼到工作表還是沒反應?

TOP

回復 11# wayne0303
請上傳範例

現在沒辦法幫助你
請其他前輩幫你忙
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 12# Andy2483


    沒關係,只是想知道您的代碼後續套用是不是比較簡單
    還是謝謝Andy大的幫忙~

TOP

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

本帖最後由 shuo1125 於 2023-10-20 23:19 編輯

回復 13# wayne0303
自行看圖八~Andy大代碼的使用方式。
另更新需求程式碼:
>>RGB(255, 0, 0)這可自行換色
---------------------------------------------------------------------------------
Sub TEST()
    Dim i&, R&, T$
    R = [P1048576].End(3).Row
    For i = 1 To R
        T = Cells(i, 16)
        If T = "已出圖" Then
            Range("A" & i & ":V" & i).Font.Color = RGB(255, 0, 0)
        End If
    Next
End Sub
---------------------------------------------------------------------------------
Sub TEST_1()
    Dim xR As Range, xS As Range, wS As Worksheet
    Dim T$
    Set wS = ThisWorkbook.Worksheets(1)
    '假設使用第一個工作表,如有需要請自行調整
    Set xS = wS.Range("P1:P" & wS.Cells(wS.Rows.Count, "P").End(3).Row)
    For Each xR In xS
        T = xR.Value
        If T = "已出圖" Then
            wS.Range("A" & xR.Row & ":V" & xR.Row).Font.Color = RGB(255, 0, 0)
        End If
    Next
End Sub
---------------------------------------------------------------------------------
謝謝~~
TEST.png
2023-10-20 23:07

TOP

V欄..可連選/跳選...貼入"已出圖"或清除
關鍵字變色.rar (6.94 KB)

TOP

回復 14# Andy2483


    謝謝Andy提供資料~

TOP

回復 15# shuo1125


    自行看圖八~Andy大代碼的使用方式。 我知道
   
    謝謝shuo大的熱心幫忙~

TOP

回復 16# 准提部林


    可以回復吔!!非常謝謝准大的幫忙~

TOP

回復 16# 准提部林
准大總是讓人欽佩...學習了!!

TOP

        靜思自在 : 做該做的事是智慧,做不該做的事是愚癡。
返回列表 上一主題