v03586

回復 9# c_c_lai


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

c_c_lai

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

下載次數: 20

2016-8-1 13:10

v03586

回復 12# c_c_lai


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

c_c_lai

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

v03586

回復 14# c_c_lai

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

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

複製代碼

c_c_lai

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

下載次數: 5

2016-8-2 08:17

下載 (30.79 KB)

2016-8-2 08:30

v03586

回復 16# c_c_lai


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

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

下載 (35.95 KB)

2016-8-3 04:16

   

A65~G65 是匯入 利用INDEX與MATCH 函數匯入後排序嗎? 還是用Vlookup 呢?

下載 (60.24 KB)

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)

下載次數: 9

2016-8-3 04:21

v03586

回復 16# c_c_lai


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

c_c_lai

回復 18# v03586
試試看！
人員人力回報表.rar (397.63 KB)

下載次數: 5

2016-8-3 21:04

接下來你應該可以上手了，#18 不明瞭處理細節？
(Overtime 得加總是要計算在『人員回報』頁面的C65欄位)
明日我要到林口長庚檢查眼睛，
你自己再好好補牆吧！

c_c_lai

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

下載次數: 12

2016-8-4 07:05