返回列表 上一主題 發帖

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

回復 30# wayne0303


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

TOP

回復 31# Andy2483


    好喔~謝謝Andy大

TOP

回復 32# wayne0303

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

TOP

回復 33# Andy2483


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

TOP

本帖最後由 Andy2483 於 2023-10-25 08:04 編輯

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

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

20231025-1.jpg
2023-10-25 08:01





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

        靜思自在 : 慈悲沒有敵人,智慧不起煩惱。
返回列表 上一主題