Hsieh

¦^´_ 1# hbjang

1. Private Sub ComboBox1_Change()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. d(1) = Array("¥Ò", "¤A", "¤þ", "¤B", "¥³", "¤v", "©°", "¨¯", "¤Ð", "¬Ñ")
   
4. d(2) = Array("ª÷", "¤ì", "¤ô", "¤õ", "¤g")
   
5. With ComboBox2
   
6. .Clear
   
7. s = CInt(ComboBox1)
   
8. .List = d(s)
   
9. End With
   
10. End Sub
    
11. 
    
12. Private Sub UserForm_Initialize()
    
13. With ComboBox1
    
14. .List = Array(1, 2)
    
15. End With
    
16. End Sub

½Æ»s¥N½X

¤U¸ü (265.13 KB)

2012-5-2 22:03