各位先進好
附檔中小弟先做好休假表的六日顯示
要加入節日判定時一直卡關
經過一番研究後有點進展
期望能顯示AB欄的節日與顏色 已實現
結果原先的六日跟節日判定無法同時執行
求解麻煩各位先進協助指點方向
感謝您
完成六日[點擊下載]
完成節日及顏色但與六日衝突[點擊下載]
個人積分：24分
文章編號：86558954
個人積分：34分
文章編號：86559176
個人積分：24分
文章編號：86559332
個人積分：3127分
文章編號：86565583
如果是我會改成這樣寫
Sub test()
Dim i As Integer, j As Integer, w As String
Application.ScreenUpdating = False
With Sheets("112年度特休假排休表 ")
'.Range("b4:x34").ClearContents: .Range("b4:x34").Interior.Color = xlNone
For i = 2 To 24 Step 2
For j = 4 To 34
w = .Cells(1, 8) & "/" & .Cells(3, i) & "/" & .Cells(j, 1)
If IsDate(w) = False Then
.Cells(j, i).Interior.Color = vbBlack
Else
If Weekday(w) = 1 Or Weekday(w) = 7 Then
.Cells(j, i) = IIf(Weekday(w) = 1, "日", "六")
.Cells(j, i).Interior.Color = RGB(192, 192, 192)
End If
End If
Next j
Next i
End With
Application.ScreenUpdating = True
End Sub
另外，雖然您有附上檔案，但是沒有附上人工輸入的正確答案
只有說明衝突(日期同一天)，根本不知道衝突時，優先權要給那個
是要保留六、日呢?，還是用調、補、放……等等蓋過舊的??
想回答的人如果猜錯答案，只會延後你得到解答的時間。
個人積分：24分
文章編號：86567948
snare wrote:
看了您的程式碼，六日...(恕刪)
看了您的程式碼，六日那個除了寫法怪怪的之外沒什麼問題
如果是我會改成這樣寫
感謝snare大再度出手指導
語法都是小弟自己摸索上網東拼西湊出來的
目前能力僅求結果，過程精進就後面多學多改
另外，雖然您有附上檔案，但是沒有附上人工輸入的正確答案
只有說明衝突(日期同一天)，根本不知道衝突時，優先權要給那個
是要保留六、日呢?，還是用調、補、放……等等蓋過舊的??
想回答的人如果猜錯答案，只會延後你得到解答的時間。
小弟是先做出六、日 後要把調、補、放假日一併呈現
但發現結果無法執行，於是調、補、放拿到前頭執行
才發現兩需求衝突，無法同時顯示
此工作表需求為
調、補、放優先最後補上六、日同時顯示
感謝snare大指教
先執行您的程式=>再執行我修改過的程式，或是反過來執行，看看結果如何
個人積分：24分
文章編號：86573493
先執行您的程式=>再執行我修改過的程式，或是反過來執行，看看結果如何
感謝snare 指導
重新整合後完成需求
謝謝您
[點擊下載]
