1234
返回列表 上一主題 發帖

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

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

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


最右邊的字是"假"也可以
Right(xR, 1) = "假"
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

wayne0303

帖子
86 
主題
15 
精華
0 
積分
148 
點名
51  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2019-1-17 
最後登錄
2024-4-26 
32#
發表於 2023-10-23 14:35 | 只看該作者
回復 31# Andy2483


    好喔~謝謝Andy大

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
33#
發表於 2023-10-23 14:38 | 只看該作者
回復 32# wayne0303

列出的方法:
15 ^ -(InStr("/事假/病假/出差/離職/特休/", "/" & xR & "/") > 0)
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

wayne0303

帖子
86 
主題
15 
精華
0 
積分
148 
點名
51  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2019-1-17 
最後登錄
2024-4-26 
34#
發表於 2023-10-23 15:44 | 只看該作者
回復 33# Andy2483


    是不需要那麼多選項啦XD
    謝謝熱心的Andy大大~

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
35#
發表於 2023-10-25 08:02 | 只看該作者
本帖最後由 Andy2483 於 2023-10-25 08:04 編輯

回復 16# 准提部林
回復 1# wayne0303

謝謝 准提部林前輩指導,學習心得如下,請前輩再指教






Private Sub Worksheet_Change(ByVal Target As Range)
'↑當使用者或外部連結變更工作表中的儲存格時會發生此事件
https://learn.microsoft.com/zh-t ... el.worksheet.change
Dim xA As Range, xR As Range
'↑宣告(xA,xB)是儲存格變數
Set xA = Intersect(Target, Range("V:V"))
'↑令這xA儲存格變數是(觸發格與V欄儲存格)交集的儲存格
If xA Is Nothing Then Exit Sub
'↑如果xA變數是空的!就結束程序執行
Application.ScreenUpdating = False
'↑令螢幕暫時停止變化
For Each xR In xA
'↑設逐項迴圈!令xR這儲存格變數是xA變數裡的一個儲存格
    Range(Cells(xR.Row, 1), xR).Font.ColorIndex = 15 ^ -(xR = "已出圖")
    '↑令xR變數所在列的第1欄儲存格到xR變數間的字色是邏輯計算後的色號
    '當xR = "已出圖":(True)  >>  15 ^ -(-1)   >>  15
    '當xR = "已出圖":(False)  >>  15 ^ -(0)   >>  1
Next
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
1234
返回列表 上一主題