關鍵字讓列文字變色 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 關鍵字讓列文字變色

1 234 下一頁

返回列表下一主題上一主題發帖

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

16^# 跳轉到 »

發表於 2023-10-21 09:27 | 只看該作者

V欄..可連選/跳選...貼入"已出圖"或清除

關鍵字變色.rar (6.94 KB)

中學生 Rank: 2

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 0
作業系統: 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
---------------------------------------------------------------------------------
謝謝~~

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

14^#

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

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

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

中學生 Rank: 2

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 176
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-10-30

13^#

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

回復 12# Andy2483

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

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

12^#

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

回復 11# wayne0303
請上傳範例

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

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

中學生 Rank: 2

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 176
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-10-30

11^#

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

回復 10# Andy2483

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

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

10^#

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

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

回復 8# wayne0303
需要將程式碼放入工作表模組
P欄輸入已出圖或待確認

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

中學生 Rank: 2

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 176
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-10-30

9^#

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

回復 5# hcm19522

謝謝hcm大大

中學生 Rank: 2

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 176
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-10-30

8^#

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

回復 3# Andy2483

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

中學生 Rank: 2

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 176
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-10-30

7^#

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

回復 2# shuo1125

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

靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。

1 234 下一頁

返回列表下一主題上一主題