返回列表 上一主題 發帖

[發問] 儲存格規則問題

eghost

帖子
24 
主題
8 
精華
0 
積分
74 
點名
0  
作業系統
windows 7 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2014-1-14 
最後登錄
2019-8-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-12-22 15:49 | 只看該作者

[發問] 儲存格規則問題

各位大大 您好:

目的要使儲存格自動變色  判斷式需有跨分頁判斷某區域的值  詳細問題有寫在檔案裡 煩請協助解疑 或者有其他作法 謝謝

cc.rar (8.63 KB)

文件

收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-21 
2#
發表於 2015-12-22 17:08 | 只看該作者
=OR(B$3=INDIRECT("A!$M$4:$M$17"))*(B$3<>"")
=MATCH(B$3,INDIRECT("A!$M$4:$M$17"),)
=RANK(B$3,INDIRECT("A!$M$4:$M$17"))
=COUNTIF(INDIRECT("A!$M$4:$M$17"),B$3)

TOP

eghost

帖子
24 
主題
8 
精華
0 
積分
74 
點名
0  
作業系統
windows 7 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2014-1-14 
最後登錄
2019-8-30 
3#
發表於 2015-12-22 17:10 | 只看該作者
回復 2# 准提部林


    感謝版主  可以了  我研究一下 謝謝您

TOP

eghost

帖子
24 
主題
8 
精華
0 
積分
74 
點名
0  
作業系統
windows 7 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2014-1-14 
最後登錄
2019-8-30 
4#
發表於 2015-12-22 19:25 | 只看該作者
回復 2# 准提部林

版主您好  :

還有遇到一個問題 卡住了  我試過剛剛版主的四種寫法去搭配AND 但是還是失敗  初學者 抱歉  再請指教 DD.rar (9.25 KB)
   
增加規則 判讀A! M$4和N$4之間的日期 要顯示黃色  之前在同一工作頁是用AND解決  有辦法在範圍性區域A!(M4:N14)判讀出各組區(M$4 N$4)

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-21 
5#
發表於 2015-12-22 20:56 | 只看該作者
回復 4# eghost


=(B$3>INDIRECT("A!M4:M17"))*(B$3<INDIRECT("A!N4:N17"))

TOP

eghost

帖子
24 
主題
8 
精華
0 
積分
74 
點名
0  
作業系統
windows 7 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2014-1-14 
最後登錄
2019-8-30 
6#
發表於 2015-12-23 17:54 | 只看該作者
回復 5# 准提部林


    感謝版大解疑  導向小弟不同的應用思維

     目前測試有一問題   A! 設了多組區段時間(起點 終點)  目前只能讀到第一組的區間  之後的區間無法讀出  在煩請版大或各位先進解疑  儲存格皆有確認規則寫入
                                                    EE.rar (8.95 KB)

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-21 
7#
發表於 2015-12-23 18:35 | 只看該作者
本帖最後由 准提部林 於 2015-12-24 09:34 編輯

回復 6# eghost

OFFICE版本太舊, 格式化公式會被吃掉一些字元, 再試試:
=OR((B$3>INDIRECT("A!M4:M17"))*(B$3<INDIRECT("A!N4:N17")))

Xl0000233.rar (4.84 KB)

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
8#
發表於 2015-12-24 09:19 | 只看該作者
試試VBA:
  1. Sub 簡易橫式年曆()
  2.     Dim yy As Integer, mm As Integer, dd As Integer, d2 As Integer, w As Integer
  3.     yy = 2016
  4.     [B2:AF47] = ""
  5.     [B2:AF47].Interior.ColorIndex = xlNone
  6.     For mm = 1 To 12
  7.         d2 = Day(DateSerial(yy, mm + 1, 0))
  8.         For dd = 1 To d2
  9.             Cells(mm * 4 - 1, dd + 1) = DateSerial(yy, mm, dd)
  10.             w = Weekday(Cells(mm * 4 - 1, dd + 1), vbSunday)
  11.             Cells(mm * 4 - 2, dd + 1).NumberFormatLocal = "d"
  12.             Cells(mm * 4 - 2, dd + 1).FormulaR1C1 = "=RIGHT(TEXT(R[1]C,""aaa""))"
  13.             If w = 1 Then
  14.                 Cells(mm * 4 - 2, dd + 1).Font.ColorIndex = 3
  15.             ElseIf w = 7 Then
  16.                 Cells(mm * 4 - 2, dd + 1).Font.ColorIndex = 5
  17.             Else
  18.                 Cells(mm * 4 - 2, dd + 1).Font.ColorIndex = 1
  19.             End If
  20.         Next
  21.     Next
  22. End Sub

  24. Sub 漆後資訊()
  25.     Dim shA As Worksheet
  26.     Dim LstR As Integer, I As Integer, J As Integer, eDay As Integer, mNUM As Integer
  27.     Dim Rng As Range, SD As Range, ED As Range, Scel As Range, Ecel As Range
  28.     Set shA = Sheets("A")
  29.     Set Rng = [B3:AF47]
  30.     Rng.Interior.ColorIndex = xlNone
  31.     LstR = shA.[M4].End(xlDown).Row
  32.     For I = 4 To LstR
  33.         Set SD = shA.Cells(I, 13)     'Start Date
  34.         Set ED = shA.Cells(I, 14)     'End Date
  35.         If SD.Value > ED.Value Then
  36.             MsgBox "起始日期：" & SD.Value & " > 終止日期：" & ED.Value & ", 請查明再繼續!!", vbOKOnly
  37.             Exit For
  38.         End If
  39.         Set Scel = Rng.Find(SD, Lookat:=xlWhole)       '在年曆中尋找 Start Date
  40.         If Scel Is Nothing Then
  41.             MsgBox "查無此日期:" & SD & ", 請查明再繼續!!", vbOKOnly
  42.             Exit For
  43.         End If
  44.         Set Ecel = Rng.Find(ED, Lookat:=xlWhole)       '在年曆中尋找 End Date
  45.         If Ecel Is Nothing Then
  46.             MsgBox "查無此日期:" & ED & ", 請查明再繼續!!", vbOKOnly
  47.             Exit For
  48.         End If
  49.         
  50.         If Scel.Row = Ecel.Row Then    '同一月
  51.             Scel.Resize(1, Ecel.Column - Scel.Column + 1).Interior.ColorIndex = 6
  52.         ElseIf Ecel.Row - Scel.Row >= 4 Then    '跨前後月
  53.             eDay = Day(DateSerial(Year(Scel), Month(Scel) + 1, 0))
  54.             Scel.Resize(1, eDay - Scel.Column + 2).Interior.ColorIndex = 6
  55.             Cells(Ecel.Row, "B").Resize(1, Ecel.Column - 1).Interior.ColorIndex = 6
  56.             If Ecel.Row - Scel.Row > 4 Then     '跨兩三月
  57.                 For J = Scel.Row + 4 To Ecel.Row - 4 Step 4
  58.                     Cells(J, "B").Resize(1, Cells(J, "B").End(xlToRight).Column - 1).Interior.ColorIndex = 6
  59.                 Next
  60.             End If
  61.         End If
  62.     Next
  63. End Sub
複製代碼
test.gif

TOP

eghost

帖子
24 
主題
8 
精華
0 
積分
74 
點名
0  
作業系統
windows 7 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2014-1-14 
最後登錄
2019-8-30 
9#
發表於 2015-12-25 16:20 | 只看該作者
回復 8# yen956


    感謝版主和yen956大的vba支援  小弟問題解決了 會研究y大的vba  謝謝兩位大大 ! 感激不盡 !!:loveliness:

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題