Hsieh

¦^´_ 6# sammay

§Ú·Q§A¬O§Æ±æComboBox2ªºLIST¯à¥Î¨ìStaffÀɮתº¸ê®Æ
§R°£ComboBox2_ENTERµ{§Ç
¥[¤J

1. Private Sub UserForm_Initialize()
   
2. With Workbooks.Open(ThisWorkbook.Path & "\Staff.xlsm")
   
3. r = Application.CountA(.Sheets(1).Columns("A:A"))
   
4. Ar = .Sheets(1).Range("A2:A" & r).Value
   
5. ComboBox2.List = Ar
   
6. .Close
   
7. End With
   
8. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 9# sammay

1. Private Sub ComboBox2_Change()
   
2. Application.ScreenUpdating = False
   
3. With Workbooks.Open(ThisWorkbook.Path & "\Staff.xlsm")
   
4. r = Application.CountA(.Sheets("­û¤u¸ê®Æ").Columns("A:A"))
   
5. Ar = .Sheets("­û¤u¸ê®Æ").Range("A2:A" & r).Value
   
6. For i = 2 To 5
   
7. Controls("TextBox" & i).Text = Application.VLookup(Val(ComboBox2), .Sheets("­û¤u¸ê®Æ").Columns("A:E"), i, 0)
   
8. Next
   
9. .Close
   
10. End With
    
11. End Sub

½Æ»s¥N½X