能在一個儲存格內執行兩個格式化條的嗎? - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 能在一個儲存格內執行兩個格式化條的嗎?

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

[發問] 能在一個儲存格內執行兩個格式化條的嗎?

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

1^# 跳轉到 »

發表於 2014-4-2 21:35 | 顯示全部帖子

回復 1# hkyan

> 但當同一儲存格內輸入是上、下午不同時段房間,便不能顕示正確設定

那正確顯示是什麼 ?

一個格只能顯示一種底色，沒有辦法顯示2種底色

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2014-4-3 22:16 | 顯示全部帖子

回復 4# hkyan

可以使用 VBA 來處理

ALT-F11 開啟VBE
複製下列VBA
工具列 - 插入 - 模組，將VBA複製貼上

先選要改變字顏色的範圍
ALT-F8 執行VBA

Sub 改變部分字串顏色()
xStr = [{"RM.A","RM.B"}]
xColor = [{3,10}] '紅、綠
For Each xRng In Selection
For j = 1 To 2
X = InStr(xRng, xStr(j))
If X > 0 Then
With xRng.Characters(Start:=X, Length:=4).Font
.ColorIndex = xColor(j)
End With
End If
Next
Next
End Sub

複製代碼

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 2014-4-11 22:11 | 顯示全部帖子

回復 7# hkyan

格式化條件
條件一，公式 =AND(WEEKDAY(A1,2)>5, A1<>"")
條件二，公式 =ISNUMBER(MATCH(A1,假日範圍,))

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2014-4-12 18:54 | 顯示全部帖子

回復 10# hkyan

做一個範例給你參考

香港公眾假期.rar (7.69 KB)

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 2014-4-12 19:08 | 顯示全部帖子

回復 9# hkyan

Sub 改變部分字串顏色()
xStr = [{"RM.A","RM.B","ACC","NM"}]
xColor = [{3,10,7,５}] '紅、綠、紫、藍
For Each xRng In Selection
For j = 1 To 4
X = InStr(xRng, xStr(j))
If X > 0 Then
With xRng.Characters(Start:=X, Length:=Len(xStr(j))).Font
.ColorIndex = xColor(j)
End With
End If
Next
Next
End Sub

複製代碼

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

靜思自在 : 人生最大的成就是從失敗中站起來。

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