返回列表 上一主題 發帖

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

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

如圖,以vba執行將P欄為"已出圖"的時候,整列到V欄位置的文字變色?

謝謝
列變色.jpg

回復 1# wayne0303
字體變色是要整列還是限制到V欄?
Sub TEST()
    Dim i&, R&, T$
        R = [P1048576].End(3).Row
        For i = 1 To R
            T = Cells(i, 16)
            If T = "已出圖" Then Rows(i).Font.Color = RGB(128, 128, 128)
        Next
End Sub
簡易碼整列如上~

TOP

回復 1# wayne0303

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
   If .Columns.Count > ActiveSheet.UsedRange.Columns.Count Then Exit Sub
   If .Column <> 16 Or .Count > 1 Then Exit Sub
   Range(.Cells(1, -14), .Cells).Font.ColorIndex = IIf(.Value = "已出圖", 16, 1)
End With
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 3# Andy2483
還是Andy大思慮周到且完善~學習了!

TOP

隨意窩 "EXCEL迷"  blog  或https://hcm19522.blogspot.com/ EXCEL函數

TOP

回復 4# shuo1125


    彼此彼此,需求情境猜測不同,思路不同,端看需求
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 2# shuo1125


    字體變色是要整列還是限制到V欄? 到V欄
    可以執行,謝謝shuo1125大大

TOP

回復 3# Andy2483


    Andy大大...我用了代碼沒有反應,是還需要執行什麼嗎?

TOP

回復 5# hcm19522


    謝謝hcm大大

TOP

本帖最後由 Andy2483 於 2023-10-20 19:09 編輯

回復 8# wayne0303
需要將程式碼放入工作表模組
P欄輸入 已出圖 或 待確認
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題