Hsieh

¦^´_ 1# ÅQ®ð¨«¥þ¨­

¸Õ¸Õ
123.rar (19.1 KB)

¤U¸ü¦¸¼Æ: 13

2013-5-12 21:34

Hsieh

¦^´_ 3# ÅQ®ð¨«¥þ¨­
¬O³o¼Ë®ÄªG¶Ü?

123.rar (19.06 KB)

¤U¸ü¦¸¼Æ: 12

2013-5-13 19:31

Hsieh

¦^´_ 5# ÅQ®ð¨«¥þ¨­

¥ý»¡²Ä¤@­Ó°ÝÃD
¿é¤Jªºµ{¦¡½X§ï¤@¤U´N¥i¹ïÀ³Äæ¦ì

1. Private Sub CommandButton1_Click()
   
2. r = [A65536].End(xlUp).Offset(1).Row
   
3. For i = 1 To 3
   
4.   Cells(r, i) = Dic(i)
   
5. Next
   
6. Dic.RemoveAll
   
7. End Sub

½Æ»s¥N½X

²Ä¤G­Ó°ÝÃD¨S¬ÝÀ´§Aªº»Ý¨D

Hsieh

¦^´_ 7# ÅQ®ð¨«¥þ¨­
ª«¥óÄݩʤ£¦P

1. Private Sub CboNNN_Click()
   
2.   myarray = Array(ComboBox1.Value, ComboBox2.Value, ComboBox3.Value)
   
3.     [A65536].End(xlUp).Offset(1).Resize(, 3) = myarray
   
4.     For Each a In Array(ToggleButton1, ToggleButton3, ToggleButton5)
   
5.        If a.Value = True Then [A65536].End(xlUp).Offset(, 3) = a.Caption: Exit For
   
6.     Next
   
7.     For Each a In Array(ToggleButton2, ToggleButton4, ToggleButton6)
   
8.        If a.Value = True Then [A65536].End(xlUp).Offset(, 4) = a.Caption: Exit For
   
9.     Next
   
10. End Sub
    
11. 
    
12. 
    
13. Private Sub UserForm_Initialize()
    
14. ComboBox1.AddItem "A"
    
15. ComboBox1.AddItem "AA"
    
16. 
    
17. ComboBox2.AddItem "B"
    
18. ComboBox2.AddItem "BB"
    
19. 
    
20. ComboBox3.AddItem "C"
    
21. ComboBox3.AddItem "CC"
    
22. 
    
23. ToggleButton1.Caption = "AA"
    
24. 
    
25. ToggleButton2.Caption = "AAA"
    
26. 
    
27. ToggleButton3.Caption = "AAAA"
    
28. 
    
29. ToggleButton4.Caption = "BB"
    
30. 
    
31. ToggleButton5.Caption = "BBB"
    
32. 
    
33. ToggleButton6.Caption = "BBBB"
    
34. 
    
35. End Sub

½Æ»s¥N½X