GBKEE

回復 67# v03586


更新版本

    Ex.zip (417.46 KB)

下載次數: 7

2016-9-6 14:31

v03586

回復 71# GBKEE
回復 68# c_c_lai


    延長加班部分有些許問題, 我這次整理成用顏色來區別, 不知道怎樣的解釋, 是否比較容易辨別

下載 (28.5 KB)

2016-9-6 21:07

c_c_lai

回復 72# v03586
是這樣嗎？ 這就是我感覺困惑的觀念點：

下載 (31.48 KB)

2016-9-7 07:15

v03586

回復 73# c_c_lai


    c_c_lai 大大, 完全正確!!! 請問這樣要如何調整呢?

c_c_lai

回復 74# v03586
這是我最近修正後的 (Relaese) 版本 ：
人員人力回報表0907R1.rar (393.32 KB)

下載次數: 7

2016-9-7 14:59

v03586

回復 75# c_c_lai


    感謝c_c_lai 的協助
  今天測試大部分功能皆完成, 唯一一個小問題不知道是否是判斷錯誤
    假設我日期選別的月份(預排出勤) 選擇回報時, 會出現『沒有出勤人員』
   但實際上是有更新出勤的!!! , 只有跨月份出現這樣問題

下載 (38.61 KB)

2016-9-8 13:00

c_c_lai

回復 76# v03586
會出現『沒有出勤人員』，是因為你目前的
『出勤資料庫』無十月份的出勤紀錄。
你可以檢查一下你的『出勤資料庫』。

c_c_lai

回復 76# v03586
找到原因了。

1. Sub Main()       '  使用 Main 程式前， 需先指定 『xDay』 的日期
   
2.     Dim e As Variant, Rng As Range, cts As Integer      '  , loc As String
   
3.    
   
4.     Set 回報班別 = CreateObject("SCRIPTING.DICTIONARY")
   
5.     Set 人員回報 = CreateObject("SCRIPTING.DICTIONARY")
   
6.    
   
7.     人力資料讀取
   
8.     Main_回報清除
   
9.    
   
10.    
    
11.     For cts = 1 To 2   '  第一階段(cts=1)以正常班別為判斷基準；第二階段(2)則純以加班班別為判斷基準。
    
12.         Main_回報資料 (cts)                     '  2016/09/01 Modied by C. C. Lai
    
13.         
    
14.         If 回報班別.Count = 0 Then
    
15.             Msg = True
    
16.             MsgBox Format(xDay, "YYYY月MM份 !") & " 沒有出勤人員"
    
17.             Exit Sub
    
18.         End If

複製代碼

在第二階段，有可能全無 "延長加班"， 故應隨即跳離本執行中模組。
修正為：

1. Sub Main()       '  使用 Main 程式前， 需先指定 『xDay』 的日期
   
2.     Dim e As Variant, Rng As Range, cts As Integer      '  , loc As String
   
3.    
   
4.     Set 回報班別 = CreateObject("SCRIPTING.DICTIONARY")
   
5.     Set 人員回報 = CreateObject("SCRIPTING.DICTIONARY")
   
6.    
   
7.     人力資料讀取
   
8.     Main_回報清除
   
9.    
   
10.    
    
11.     For cts = 1 To 2   '  第一階段(cts=1)以正常班別為判斷基準；第二階段(2)則純以加班班別為判斷基準。
    
12.         Main_回報資料 (cts)                     '  2016/09/01 Modied by C. C. Lai
    
13.         
    
14.         If 回報班別.Count = 0 Then
    
15.             Msg = True
    
16.             [color=Red]If cts = 1 Then[/color]
    
17.                 MsgBox Format(xDay, "YYYY月MM份 !") & " 沒有出勤人員"
    
18.             [color=Red]ElseIf cts = 2 Then[/color]   '  在第二階段，有可能全無 "延長加班"， 故隨即跳離本執行中模組。
    
19.                 [color=Red]Msg = False
    
20.             End If[/color]
    
21.             Exit Sub
    
22.         End If

複製代碼

c_c_lai

回復 76# v03586
附上更新程式：
人員人力回報表0907R1.rar (418.9 KB)

下載次數: 13

2016-9-8 20:05

v03586

回復 79# c_c_lai

       感謝協助, 今日測試出現Error Code 超出陣列引索範圍 !!
          我怎麼看這個錯誤怎麼會錯在呼叫程式的地方.....
   

下載 (5.55 KB)

2016-9-8 23:42