返回列表 上一主題 發帖

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

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

如圖,以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

        靜思自在 : 好事要提得起,是非要放得下,成就別人即是成就自己。
返回列表 上一主題