請問出勤系統設計 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問出勤系統設計

返回列表下一主題上一主題發帖

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^# 跳轉到 »

發表於 2016-8-25 07:26 | 顯示全部帖子

回復 49# v03586
1:1、1:2、1:3、1:4 的部分由可操機數做個加總
如何加總??
附檔新加上離職人員的踢除+ 出勤的取消

Ex.zip (411.19 KB)

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2016-8-25 20:55 | 顯示全部帖子

本帖最後由 GBKEE 於 2016-8-25 20:57 編輯

回復 51# v03586
程式有錯誤,可先Google 了解錯誤才會進步,

"點了離職人員名字會彈出如下錯誤"
你是如何操作沒這錯誤
這不是刪除離職人員

Private Sub UserForm_Initialize()
設定 ' 讀取 UserForm 內之環境設定
人力資料讀取 ' 執行模組中『程式』，並從『人力資料庫』中讀取「DA班別」、「DA領班」、
' 「DA工號」、「DA組別」、「DA專長」等宣告為公用變數之「字典物件」。
離職檢視 '****加上這個看看

複製代碼

"1:1、1:2、1:3、1:4 的部分由可操機數做個加總, 如何加總??"
我再看看如何作

Sub 出勤取消有修改

Private Sub 出勤取消()
Dim St As String ', i As Integer '變數定義 As 宣告型態
出勤Ar(2) = xDay
St = 出勤Ar(2) & "," & 出勤Ar(3) & "," & 出勤Ar(4) & "," & 出勤Ar(5)
If ListBox1.ListIndex < 0 Or Not DA出勤資料.exists(St) Then
If ListBox1.ListIndex < 0 Then
MsgBox "沒選擇出勤人員 !!!"
ElseIf Not DA出勤資料.exists(St) Then
MsgBox St & " 尚未出勤 !!!"
End If
Exit Sub
Else
If MsgBox(St & "", vbYesNo, "出勤取消") = vbNo Then Exit Sub
End If
i = ListBox1.ListIndex
ListBox1.ListIndex = -1
DA出勤資料(St).Delete (xlUp)
DA出勤資料.Remove St
With Sheets("出勤資料庫").[N5].Offset(i)
ListBox1.RowSource = ""
For i = 5 To 8
.Cells(1, i) = "" '
Next
With .CurrentRegion
ListBox1.RowSource = .Rows("2:" & .Rows.Count).Address(, , , 1, 1)
End With
End With
End Sub

複製代碼

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

13^#

發表於 2016-8-27 10:45 | 顯示全部帖子

本帖最後由 GBKEE 於 2016-8-27 13:22 編輯

回復 53# v03586

已修改你提的問題.

Ex.zip (428.85 KB)
更正版人員人力回報表0827v2.xls

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

14^#

發表於 2016-9-3 14:44 | 顯示全部帖子

回復 61# c_c_lai

參考看看

Ex.zip (430.82 KB)

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

15^#

發表於 2016-9-4 18:05 | 顯示全部帖子

回復 63# c_c_lai
我附檔人員人力回報表0903V1.xls
人員回報加班不正確,這裡需修改

' ***********************************
If R.Range("J1") <> "" And R.Range("J1") <> E Then ' **出勤資料庫 , 延長加班資料 **
i = Application.Match(UCase(R.Range("j1")), Ar1, 0)
站別表(i, 日數) = 站別表(i, 日數) + 1 ' ** Day(Rng(1)); 加班別的加總
End If

複製代碼

回復 64# v03586
更改人機比 , 可依人員回頁位置修改.可自己練習修改.

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

16^#

發表於 2016-9-6 14:31 | 顯示全部帖子

回復 67# v03586

更新版本

Ex.zip (417.46 KB)

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

靜思自在 : 人要知福、惜福、再造福。

返回列表下一主題上一主題