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

wayne0303

中學生 Rank: 2

帖子: 77
主題: 13
精華: 0
積分: 137
點名: 126
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2023-11-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-10-20 13:30 | 只看該作者

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

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

謝謝

樓主熱帖

shuo1125

中學生 Rank: 2

帖子: 85
主題: 7
精華: 0
積分: 133
點名: 46
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2023-11-28

2^#

發表於 2023-10-20 14:18 | 只看該作者

回復 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

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1077
主題: 40
精華: 0
積分: 1102
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010&2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2023-11-28

3^#

發表於 2023-10-20 14:33 | 只看該作者

回復 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

shuo1125