返回列表 上一主題 發帖

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

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

在工作表內設定如下
Rm.A 為紅色
Rm.B 為藍色

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

1/4/2014        RM.A
2/4/2014        RM.B
3/4/2014        RM.B//RM.A



因為一定要在同一儲存格內,有甚麼辦法? 試過 Rm.A Rm.B 之間space 也不成功
努力學習中,謝謝前輩

本帖最後由 Hsieh 於 2014-4-14 10:08 編輯

回復 10# hkyan

以周六、周日為周休二日分別顯示不同顏色
其餘假日寫於假期表中供對照
字型顏色要多種不同表示,則須以VBA輔助
因為對照字串的新增、刪減,所以也應做成對照表
簡單附件供你參考
假期格式.zip (19.03 KB)
附件更新加入字型斜體、粗體、底線等格式
學海無涯_不恥下問

TOP

想了解多些,即再有新增時,必需改動的是 02. 03.行內容, 哪05. 行 > For j = 1 To 4 也要修正嗎? 它代表甚麼?.還要注意甚麼?除顏色用代號, 若加上粗體 或斜體, 又如何?

因平日多只用格式化條件,對此不怎明白.
努力學習中,謝謝前輩

TOP

回復 9# hkyan
  1. Sub 改變部分字串顏色()
  2.     xStr = [{"RM.A","RM.B","ACC","NM"}]
  3.     xColor = [{3,10,7,5}] '紅、綠、紫、藍
  4.     For Each xRng In Selection
  5.         For j = 1 To 4
  6.             X = InStr(xRng, xStr(j))
  7.             If X > 0 Then
  8.                 With xRng.Characters(Start:=X, Length:=Len(xStr(j))).Font
  9.                     .ColorIndex = xColor(j)
  10.                 End With
  11.             End If
  12.         Next
  13.     Next
  14. End Sub
複製代碼
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 10# hkyan

做一個範例給你參考
    香港公眾假期.rar (7.69 KB)
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 10# hkyan


假期轉色已成功,只剩 改變字串顏色
努力學習中,謝謝前輩

TOP

18/4, 19/4 及 21/4 是香港假期
努力學習中,謝謝前輩

TOP

週日及假期的做不到效果,可否上傳檔案讓我參考.

另外,改變部分字串顏色,如尚會新增多項及字串長短不一時,又如何改
例如再增加
ACC >紫色
NM > 粉紅色
努力學習中,謝謝前輩

TOP

回復 7# hkyan


    格式化條件
條件一,公式  =AND(WEEKDAY(A1,2)>5, A1<>"")
條件二,公式  =ISNUMBER(MATCH(A1,假日範圍,))
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 6# hkyan



尚有問題,如何設定格式化條件,讓每月拉出的星期日及假期(香港)都填上顏色如下

努力學習中,謝謝前輩

TOP

        靜思自在 : 謊言像一朵盛開的鮮花,外表美麗,生命短暫。
返回列表 上一主題