請問出勤系統設計 - Excel程式區

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

11^# 跳轉到 »

發表於 2016-8-1 13:07 | 只看該作者

本帖最後由 v03586 於 2016-8-1 13:08 編輯

回復 9# c_c_lai

當時設計Userform的時候不知道清單選項能做到什麼效果, 因為我在網路上Youtube 爬文都要點選按鈕才能出現資料
因為VPK組資料太多, 就想說各組別,各別顯示才不會亂掉, 清單方塊是從別張Sheet的資料, 點選後帶入下面方塊(紅框),
之後編輯加班狀態, 至於『出勤站別』主要帶入『主要專長』的資料, 但實際出勤可能因為人力因素改變, 所以旁邊才設按鈕
讓使用者自行編輯

因為是工廠, 需要輸入她可以操作幾台機器, 才能計算出勤人力可以開啟多少機台, 只有DA需要計算機台, 其他是不用的

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

12^#

發表於 2016-8-1 13:10 | 只看該作者

回復 11# v03586
試試看！

人員人力回報表.rar (457.29 KB)

TOP

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

13^#

發表於 2016-8-1 13:19 | 只看該作者

回復 12# c_c_lai

是的!!! 超強!!!感謝大大, 確認鍵輸入後存入『出勤資料庫』, 跟『人員回報』
另外加班計算不知道怎麼帶入, 尤其是人員回報 A2欄不知道能不能做到選擇月份控制日期

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

14^#

發表於 2016-8-1 16:05 | 只看該作者

回復 13# v03586
你要先自己試寫才行啊！
都寫完了對你是沒幫助的。
原先你寫的語法我都一一修正過，
你可從中了解之前之後的異動有何不同？
如此你才會學到東西。
我已經把較不易處裡的部分解決掉了，
你先試著自行撰寫，我有空也會幫你留神的。

TOP

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

15^#

發表於 2016-8-2 03:53 | 只看該作者

回復 14# c_c_lai

對於前輩的指教...真的很感謝也受惠...因工作性質較為複雜, 無法把心力全心灌入, 才來求指教, 造成不便真的深感抱歉
寫了這段後...把輸入的資料重複跑了10次....

Private Sub CommandButton10_Click()
Dim x&
With Worksheets("出勤資料庫")
For x = 2 To 11
.Cells(x, 1) = DA出勤更新.ComboBox2.Value '班別
.Cells(x, 2) = DA出勤更新.ComboBox3.Value '領班
.Cells(x, 4) = DA出勤更新.TextBox2.Value '工號
.Cells(x, 5) = DA出勤更新.Textbox3.Value '姓名
.Cells(x, 6) = DA出勤更新.Textbox4.Value '組別
.Cells(x, 7) = DA出勤更新.TextBox5.Value '出勤站別
.Cells(x, 8) = DA出勤更新.ComboBox8.Value '可操機數
.Cells(x, 9) = DA出勤更新.TextBox8.Value '出勤時數
.Cells(x, 10) = DA出勤更新.ComboBox7.Value '延長加班
.Cells(x, 11) = DA出勤更新.TextBox7.Value '加班時數
Next x
End With
Call CommandButton11_Click
MsgBox "資料更新完成"
End Sub

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

16^#

發表於 2016-8-2 08:21 | 只看該作者

本帖最後由 c_c_lai 於 2016-8-2 08:30 編輯

回復 15# v03586
參考！ (至 3.5 的前半部)
看看 Sub overTime() 是不是你的想法，
確認更新業已完成 (你寫的也不錯)，加油！
PS 我把所有物件名稱改成對照的中文名稱
如此方便整個程式的瀏覽與瞭解。

人員人力回報表.rar (459.97 KB)

TOP

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

17^#

發表於 2016-8-3 04:22 | 只看該作者

本帖最後由 v03586 於 2016-8-3 04:23 編輯

回復 16# c_c_lai

Overtime 是我的想法沒錯!!感謝協助
另外可否更新出勤能否寫個防呆功能, 相同日期的相同工號已經有輸入過的, 再次輸入時會跳出訊息不能被輸入
測試的時候發現可以連續輸入相同日期的同一個人資料
目前只要輸入一筆資料, 確認更新鍵會自動關閉 , 要再按一次清空, 再重新選擇人員, 按鈕才又被打開
( 我把確認更新.Enabled = True )

另請問如何利用A2欄控制月份? 固定H欄後面會因為月份改變, 星期也更著改變 ( 如紅框 )