c_c_lai

¦^´_ 1# wxad0285
¥H¤U¬O§A­ì¥»ªº«ä¸ô (¥¼¨Ï¥Î "¤½¦¡->¦WºÙºÞ²z­û " (2010)  ¡F "´¡¤J->©w¸q¦WºÙ" (2003))¡G

1. Private Sub ComboBox1_Change()
   
2.     With UserForm1
   
3.         '  IT = "¼Ò¨ã½s¸¹" & .ComboBox1.Value
   
4.         '  .ComboBox2.RowSource = Names(IT)
   
5.         .ComboBox2.RowSource = "Sheet2!" & Sheets("Sheet2").Range(Chr(Asc(.ComboBox1.Value) + 1) & "1:" & Chr(Asc(.ComboBox1.Value) + 1) & "3").Address
   
6.         .ComboBox2.ListIndex = 0
   
7.         .CommandButton2.SetFocus
   
8.     End With
   
9. End Sub
   
10. 
    
11. Private Sub ComboBox2_Change()
    
12.     UserForm1.CommandButton2.SetFocus
    
13. End Sub
    
14. 
    
15. Private Sub CommandButton1_Click()
    
16.     r = [a65536].End(3).Row + 1
    
17.     Cells(r, 1).Value = ComboBox1.Value
    
18.     Cells(r, 2).Value = ComboBox2.Value
    
19. End Sub
    
20. 
    
21. Private Sub CommandButton2_Click()
    
22.     Unload UserForm1
    
23. End Sub
    
24. 
    
25. Private Sub UserForm_Initialize()
    
26.     With UserForm1
    
27.         '  .ComboBox1.RowSource = Names("¾÷¥x")
    
28.         .ComboBox1.RowSource = "Sheet2!" & Sheets("Sheet2").[A1:A3].Address
    
29.         .ComboBox1.ListIndex = 0
    
30.         .CommandButton2.SetFocus
    
31.     End With
    
32. End Sub

½Æ»s¥N½X