Board logo

標題: 設定格式化條件 [打印本頁]
作者: hkyan    時間: 2013-12-9 12:06     標題: 設定格式化條件

希望做到效果是Column A內日期跟TODAY差距超過210天,而且Column B又是2的話,儲存格變成黃色

DATE                      CODE
30/4/2013        3
6/5/2013                           2
15/5/2013        2
20/5/2013        3
22/5/2013        2
23/5/2013        3

請幫忙
作者: rc_chc    時間: 2013-12-9 12:57

Hi

到 A2 加入格式化條件 =AND(TODAY()-$A2>210,$B2=2)
作者: samwang    時間: 2013-12-9 13:08

先點選B欄>常用>設定格式化的條件>公式
=AND(TODAY()-A1>210,B1=2) ，設定黃色
作者: c_c_lai    時間: 2013-12-9 13:26

回復 1# hkyan
  1. Option Explicit

  3. Sub Ex()
  4.     Dim dt As Long, sh As Range
  5.    
  6.     With 工作表1
  7.         For Each sh In .Range("A2", "A" & .Range("A65536").End(xlUp).Row)
  8.             ' sh 本身指的是 A 欄位， sh.Offset(, 1) 指的是 B 欄位， sh.Offset(, 2) 指的是 C 欄位
  9.             sh.Offset(, 2) = DateDiff("d", sh, Now)
  10.             If (sh.Offset(, 1) = 2 And sh.Offset(, 2) > 210) Then sh.EntireRow.Interior.ColorIndex = 6
  11.         Next
  12.     End With
  13. End Sub
複製代碼
[attach]17018[/attach]
[attach]17019[/attach]
作者: hkyan    時間: 2013-12-9 14:44

有一點我忽略了,數據是從外部查詢MIS_ODBC 更新得來的,頭兩個設定都無正常展示,仍未試c_c_lai的方法,一定要有C欄嗎?
是否外部查詢的數據就無法執行設定格式化條件呢？
作者: rc_chc    時間: 2013-12-9 20:18

可能是IMPORT 的資料是文字格式
作者: hkyan    時間: 2013-12-10 10:10

[attach]17027[/attach]

但格式還是日期!!?那還有辦法試嗎?
作者: rc_chc    時間: 2013-12-10 15:32

奇怪, 可以上載檔案看看是否有人能解答
可惜我不能下載檣案
作者: Hsieh    時間: 2013-12-10 16:13

回復 7# hkyan


    檢查看格式化條件是否還存在
有可能因為資料查詢將原本設定給覆蓋了
上傳檔案來看看



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)