關鍵字讓列文字變色 - Excel程式區

wayne0303

中學生 Rank: 2

帖子: 93
主題: 16
精華: 0
積分: 156
點名: 158
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2024-11-22

11^# 跳轉到 »

發表於 2023-10-20 19:53 | 只看該作者

回復 10# Andy2483

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

12^#

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

回復 11# wayne0303
請上傳範例

現在沒辦法幫助你
請其他前輩幫你忙

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

TOP

wayne0303

中學生 Rank: 2

帖子: 93
主題: 16
精華: 0
積分: 156
點名: 158
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2024-11-22

13^#

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

回復 12# Andy2483

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

14^#

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

回復 13# wayne0303
https://learn.microsoft.com/zh-t ... el.worksheet.change

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

TOP

shuo1125

中學生 Rank: 2

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 62
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

15^#

發表於 2023-10-20 23:08 | 只看該作者

本帖最後由 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
---------------------------------------------------------------------------------
謝謝~~