[發問] 逐筆比對回傳資料

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

14^#

發表於 2021-1-31 09:54 | 只看該作者

回復 13# 軒云熊

請假也許是一天, 或半天, 或幾小時幾分的, 越弄越複雜,
還是看題主的意思吧!
我是覺得, 這用手動登錄較不出錯, 應該都有請假單,
或者, 出勤系統也會有這種設置.

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

13^#

發表於 2021-1-29 18:21 | 只看該作者

回復 12# 准提部林

回準大補班的條件我加了如果有多餘的時間可以幫我看看是不是這樣的邏輯麻煩你了

javascript:;

特休統計0129.rar (103.29 KB)

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

12^#

發表於 2021-1-29 16:28 | 只看該作者

回復 11# 軒云熊

這跟萬年曆沒有關係,
每年政府都會公佈隔年的節日及補班日,
所以幾乎每年都要建一個年度日期對照表!!!
請特休, 也只跟今年及明年有關係

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

11^#

發表於 2021-1-29 16:16 | 只看該作者

本帖最後由軒云熊於 2021-1-29 16:19 編輯

回復 10# 准提部林

準大這是有加入萬年曆(網路上找的稍微修改假日) 的方式有扣除列假日大概隨意設定了幾個項目有空可以幫我看看有沒有達到你給的題目要求缺點就是有點慢因為程式太長了
感覺我的邏輯有問題的樣子. 麻煩你了

[attach]33015[/attach]

特休統計練習.rar (54.88 KB)

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

10^#

發表於 2021-1-29 10:14 | 只看該作者

題主這檔案應是草稿性質,其實還有諸多實際問題,
1) 可能上午有上班, 下午臨時有事, 又不能請事假(會扣錢), 只能用半天抵特休
2) 特休連續日期中遇例假日, 這總不能算進去吧!
3) 例假日中的周六, 有時又是調休的補班日, 那又可以算進去?

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

9^#

發表於 2021-1-29 04:57 | 只看該作者

回復 6# 准提部林

抱歉沒有發現準大在提醒我 .. 但這寫法沒有 jcchiang 大大的好

Public Sub 字典運用練習()
Application.ScreenUpdating = False
Arr = [特休天數!A1].CurrentRegion
Brr = [登錄!A1].CurrentRegion
Set xD = CreateObject("Scripting.Dictionary")
For H = Brr(3, 2) To Brr(3, 2) + (Brr(3, 3) - 1)
xD(H) = ""
Next H
For x = 2 To UBound(Arr)
If Brr(1, 2) = Arr(x, 1) Then
For Each D In xD
R = Array(Arr(x, 1), Arr(x, 2), [登錄!A3], D, 1, Arr(x, 8))
If D >= Arr(x, 4) And D <= Arr(x, 5) Then
For K = 1 To 6
[list!A1].Cells(Rows.Count, K).End(xlUp)(2) = R(K - 1)
Next K
Sheets(2).Cells(3, 4) = Sheets(2).Cells(3, 4) & " " & Arr(x, 8)
G = G + 1
End If
Next D
If G <> 0 Then Sheets(1).Cells(x, 9) = Sheets(1).Cells(x, 9) + G
End If
G = 0
Next x
Application.ScreenUpdating = True
End Sub

複製代碼

jcchiang

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

8^#

發表於 2021-1-28 12:35 | 只看該作者

本帖最後由 jcchiang 於 2021-1-28 12:47 編輯

回復 1# 蘿蔔泥

試試看
Sub ex()
Dim d As Object
Dim a, b, x%
Set d = CreateObject("Scripting.Dictionary")
For Each b In Range(Sheets("登錄").[B3], Sheets("登錄").[B65536].End(3))
For x = 0 To b.Offset(, 1) - 1
   With Sheets("特休天數")
      For Each a In Range(.[a2], .[a65535].End(3))
         If a = Sheets("登錄").[b1] And a.Offset(, 3) <= b + x And a.Offset(, 4) >= b + x Then
            If b.Offset(, 2) = "" Then '將年度資料放入Sheets("登錄")
               b.Offset(, 2) = a.Offset(, 7)
            Else
               b.Offset(, 2) = b.Offset(, 2) & "/" & a.Offset(, 7)
            End If
            a.Offset(, 8) = a.Offset(, 8) + 1 '將已休天數累計放入Sheets("特休天數")
            d(a & b + x) = Array(a, a.Offset(, 1), b.Offset(, -1), b + x, "1", a.Offset(, 7))
         End If
      Next
   End With
Next
Next
Sheets("list").[a65535].End(3).Offset(1).Resize(d.Count, 6) = Application.Transpose(Application.Transpose(d.Items))
Set d = Nothing
End Sub

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

7^#

發表於 2021-1-27 20:45 | 只看該作者

本帖最後由軒云熊於 2021-1-27 20:50 編輯

回復 5# 蘿蔔泥

(2) 會固定保持在第2欄開始
End(xlUp) 是避免每列中如果有空格也不會偵測錯誤因為是由下往上
如果使用 End(xlDown) 也是可以但第一列到最後一列中間不可以有空格否則會少抓資料
a(Y - 1)因為是陣列所以A(0)是第一的意思嗎？是的
我到這裡從0開始到現在也還在摸索中.. 有機會就來這裡找一些題目來練習順便請大大們幫忙測試也許會跌跌撞撞...
但到最後還是可以學習到更多的經驗. 知識
對我來說這些都是會累積的  都是值得的  這裡是一個很好的地方我也很喜歡這裡
因為可以學習到很多大大的編寫方式與函式的用法還有思考觀念

謝謝準大幫忙回復感謝

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

6^#

發表於 2021-1-27 17:12 | 只看該作者

工號 W0008
2020/4/24 請特休3天
則108年度有2天..4/24.4/25, 109年有1天..4/26