返回列表 上一主題 發帖

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

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

回復 9# c_c_lai


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

TOP

回復 11# v03586
試試看!
人員人力回報表.rar (457.29 KB)

TOP

回復 12# c_c_lai


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

TOP

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

TOP

回復 14# c_c_lai

對於前輩的指教...真的很感謝也受惠...因工作性質較為複雜, 無法把心力全心灌入, 才來求指教, 造成不便真的深感抱歉
寫了這段後...把輸入的資料重複跑了10次....
  1. Private Sub CommandButton10_Click()
  2.     Dim x&
  3.     With Worksheets("出勤資料庫")
  4.         For x = 2 To 11

  5.                 .Cells(x, 1) = DA出勤更新.ComboBox2.Value '班別
  6.                 .Cells(x, 2) = DA出勤更新.ComboBox3.Value '領班
  7.                
  8.                 .Cells(x, 4) = DA出勤更新.TextBox2.Value  '工號
  9.                 .Cells(x, 5) = DA出勤更新.Textbox3.Value  '姓名
  10.                 .Cells(x, 6) = DA出勤更新.Textbox4.Value '組別
  11.                 .Cells(x, 7) = DA出勤更新.TextBox5.Value   '出勤站別
  12.                 .Cells(x, 8) = DA出勤更新.ComboBox8.Value '可操機數
  13.                 .Cells(x, 9) = DA出勤更新.TextBox8.Value '出勤時數
  14.                 .Cells(x, 10) = DA出勤更新.ComboBox7.Value '延長加班
  15.                 .Cells(x, 11) = DA出勤更新.TextBox7.Value '加班時數

  16.         Next x
  17.     End With
  18.     Call CommandButton11_Click
  19.     MsgBox "資料更新完成"
  20. End Sub
複製代碼

TOP

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

回復 15# v03586
參考!  (至 3.5 的前半部)
看看 Sub overTime() 是不是你的想法,
確認更新業已完成 (你寫的也不錯), 加油!
PS 我把所有物件名稱改成對照的中文名稱
      如此方便整個程式的瀏覽與瞭解。
人員人力回報表.rar (459.97 KB)
A2.png
2016-8-2 08:30

TOP

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

回復 16# c_c_lai


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

  另請問如何利用A2欄控制月份?  固定H欄後面會因為月份改變, 星期也更著改變 ( 如紅框 )
  
Q1.png
2016-8-3 04:16

   

A65~G65 是匯入 利用INDEX與MATCH 函數匯入後排序嗎? 還是用Vlookup 呢?
Q2.png
2016-8-3 04:17

我只知道排序的寫法如下...但不知道如何從第65欄開始利用程式排序,  其他維護的資訊是否可利用程式方式帶入呢?
  1. Dim xArea As Range
  2. xArea.Resize(, 7).Sort Key1:=xArea(1, 1), Order1:=xlAscending, _
  3.                        Key2:=xArea(1, 2), Order2:=xlAscending, _
  4.                        Key3:=xArea(1, 7), Order3:=xlAscending, Header:=xlNo
複製代碼
人員人力回報表.rar (399.75 KB)

TOP

回復 16# c_c_lai


    Overtime 得加總是要計算在『人員回報』頁面的C65欄位

TOP

本帖最後由 c_c_lai 於 2016-8-4 07:12 編輯

回復 18# v03586
試試看!
人員人力回報表.rar (397.63 KB)
接下來你應該可以上手了,#18 不明瞭處理細節?
(Overtime 得加總是要計算在『人員回報』頁面的C65欄位)
明日我要到林口長庚檢查眼睛,
你自己再好好補牆吧!

TOP

回復 17# v03586
針對 "A2欄控制月份?  固定H欄後面會因為月份改變, 星期也更著改變"
做了修正 (增列 chgMonth())。在 UserForm_Initialize() 階段便做了判斷。
接下來就看你了!加油!
我要準備就醫了。
人員人力回報表.rar (400.7 KB)
1

評分人數

    • ML089: 真骨力,祝早日康復。金錢 + 2

TOP

        靜思自在 : 君子如水,隨方就圓,無處不自在。
返回列表 上一主題