返回列表 上一主題 發帖

[發問] 請問出勤系統設計

回復 67# v03586


更新版本

    Ex.zip (417.46 KB)
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 71# GBKEE
回復 68# c_c_lai


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

QQQQ.png
2016-9-6 21:07

TOP

回復 72# v03586
是這樣嗎? 這就是我感覺困惑的觀念點:
E4.png
2016-9-7 07:15

TOP

本帖最後由 v03586 於 2016-9-7 13:27 編輯

回復 73# c_c_lai


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

TOP

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

TOP

回復 75# c_c_lai


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

Q1.png
2016-9-8 13:00

TOP

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

TOP

本帖最後由 c_c_lai 於 2016-9-8 19:59 編輯

回復 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
複製代碼

TOP

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

TOP

回復 79# c_c_lai

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

TOP

        靜思自在 : 人事的艱難與琢磨,就是一種考驗。
返回列表 上一主題