ML089

回復 10# phoebegin

下載 (93.44 KB)

2015-7-21 22:55

A3 =DATE(B1,1,1)
A9 =EDATE(A3,1)
B3:H8 {=IF(MONTH(A3)=MONTH(A3-WEEKDAY(A3)+{1,2,3,4,5,6,7}+{0;1;2;3;4;5}*7),A3-WEEKDAY(A3)+{1,2,3,4,5,6,7}+{0;1;2;3;4;5}*7,"")}
I4 =NETWORKDAYS(A3,EOMONTH(A3,0),OFFSET(K$2,,,COUNT(K:K)))
I7 =DAY(EOMONTH(A3,0))-I4
{…} 表示為陣列公式，輸入公式需使用三鍵輸入(CTRL+SHIFT+ENTER三鍵齊按輸入)

EDATE函數
工具\加載宏(繁體版稱增益集)\打勾以下三個選項
1. internet VBA輔助程式
2.VBA分析工具箱
3.分析工具箱

行事曆ML089.rar (13.54 KB)

下載次數: 12

2015-7-21 22:56

補充
格式化條件 B3
=(B3>0)*(0=NETWORKDAYS(B3,B3,OFFSET($K$2,,,COUNT($K:$K))))

phoebegin

回復 11# ML089


　　謝謝您~您太貼心了，從昨天一直在思考如何修改，您這場及時雨又出現了，
　　　　　　不但秀檔案，知道我目前權限不足還幫我把公式秀出，問題幾乎都解決了～
　　　　　　現在有狀況的剩最下方設定格式的問題，等權限足夠(快足囉)，再把您的檔案下載來好好研究~
               另外想請教您陣列公式
{=IF(MONTH(A5)=MONTH(A5-WEEKDAY(A5)+{1,2,3,4,5,6,7}+{0;1;2;3;4;5}*7),A5-WEEKDAY(A5)+{1,2,3,4,5,6,7}+{0;1;2;3;4;5}*7,"")}
　　　　　　裡頭{1,2,3,4,5,6,7}代表欄，{0;1;2;3;4;5}代表列嗎？

ML089

回復 12# phoebegin


    裡頭{1,2,3,4,5,6,7}代表欄，{0;1;2;3;4;5}代表列嗎？

YES

{1,2,3,4,5,6,7}代表水平陣列
{0;1;2;3;4;5}代表垂直陣列

phoebegin

回復 13# ML089


    老師~我真的發現自己很鈍，再教教我好嗎？

下載 (88.81 KB)

2015-7-28 10:24

　 另外設定格式條件要全部反白設定，還是一個一個設定呢？（我記得之前的檔是直接全部反白設定）

   再另外～如果其中一天六或日必須補班（上班），那麼要再如何設定呢？

ML089

回復 14# phoebegin


    設定格式條件要全部反白設定，還是一個一個設定呢？（我記得之前的檔是直接全部反白設定）

全部反白設定

我目前使用2007版，有時全部反白設定有會有問題，我都是先清除選擇範圍內的原先設定再重設
我覺得2003我比較習慣。

ML089

回復 14# phoebegin

如果其中一天六或日必須補班（上班），那麼要再如何設定呢？

這有些麻煩，使用EXCEL的內定公式可能作不到，需要自行定義 補班日期 再加回來。
條件設定也是需要再參考  補班日期 。

幾年前有作過類似，晚上回家再找看看。

ML089

回復 14# phoebegin

加一欄 補班日期

    行事曆ML089.rar (13.75 KB)

下載次數: 12

2015-7-29 22:50

phoebegin

回復 15# ML089


    老師：
　　　　我全部反白連其他格式都變成，="(B3>0)*(0=NETWORKDAYS(B3,B3,OFFSET($X$3,,,COUNT($X:$X))))"[attach]21584[/attach]

　　　　而且在其他假日儲存格修改，雖然已改成功，但還是不會填滿顏色

下載 (131.09 KB)

2015-7-31 11:31

！

　　　　還有會變成雙引號，現在才發現原來我和EXCEL這麼不熟！:'(

ML089

回復 18# phoebegin

複製公式時，或填入公式時前面有空白
須手工將雙引號去除

phoebegin

回復 19# ML089


    當我手動刪除雙引號時

下載 (87.57 KB)

2015-7-31 15:49

，他說我參照到其他工作表
   
    當我連同=號和"號一起刪除時，它雙引號又跑出來見我了～

    Book1.zip (10.91 KB)

下載次數: 6

2015-7-31 15:53