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

wayne0303

中學生 Rank: 2

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

26^# 跳轉到 »

發表於 2023-10-21 22:53 | 只看該作者

回復 24# 准提部林

原來如此~
感謝准大的說明~

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

25^#

發表於 2023-10-21 22:15 | 只看該作者

回復 23# wayne0303

讓P欄格公式變成已出圖的源頭欄位做觸發
例如以O欄輸入日期（出圖日），P欄公式就會變成已出圖
如果是這種情境就觸發O欄
還是建議上傳個範例

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

24^#

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

回復 23# wayne0303

P欄是公式, 只能 1)格式條件 2)按鈕執行

TOP

wayne0303

中學生 Rank: 2

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

23^#

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

本帖最後由 wayne0303 於 2023-10-21 20:50 編輯

回復 22# shuo1125

先謝謝shuo大的幫忙~
但不知是不是我P欄有公式影響的關係，用工作表的程式碼執行都沒反應，用打字key入倒是可以...
所以結果只能走您 15#提供的模組程式碼執行，但是這樣應該就沒有辦法做像准大那種回復這個動作了吧

以上，謝謝大大們的幫忙~

TOP

shuo1125

中學生 Rank: 2

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

22^#

發表於 2023-10-21 17:36 | 只看該作者

回復 21# wayne0303
嘗試微修了一下准大提供的程式碼...謝謝。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xA As Range, xR As Range
Set xA = Intersect(Target, Range("P:P"))
If xA Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xR In xA
Range(Cells(xR.Row, 1), Cells(xR.Row, 22)).Font.ColorIndex = 15 ^ -(xR = "已出圖")
Next
End Sub

TOP

wayne0303