1234
返回列表 上一主題 發帖

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

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1429 
主題
40 
精華
0 
積分
1453 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-6-27 
6# 跳轉到 »
發表於 2023-10-20 15:24 | 只看該作者
回復 4# shuo1125


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

TOP

hcm19522

帖子
1368 
主題
4 
精華
0 
積分
1378 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-7-4 

熱烈參與勳章
5#
發表於 2023-10-20 15:22 | 只看該作者
https://hcm19522.blogspot.com/2023/10/11912.html
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

shuo1125

帖子
121 
主題
8 
精華
0 
積分
170 
點名
60  
作業系統
win10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2021-1-21 
最後登錄
2024-6-25 
4#
發表於 2023-10-20 15:06 | 只看該作者
回復 3# Andy2483
還是Andy大思慮周到且完善~學習了!

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1429 
主題
40 
精華
0 
積分
1453 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-6-27 
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

帖子
121 
主題
8 
精華
0 
積分
170 
點名
60  
作業系統
win10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2021-1-21 
最後登錄
2024-6-25 
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

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
1234
返回列表 上一主題