½Ð°Ý¦p¦óÅýªí³æ¿ï¶µ°±¦b¤W¤@¦¸¨Ï¥Îª¬ºA

fei6999

½Ð°Ý¦p¦óÅýªí³æ¿ï¶µ°±¦b¤W¤@¦¸¨Ï¥Îª¬ºA
OptionButton1 OptionButton2¬°¸s²Õ
OptionButton3 OptionButton4 OptionButton5¬°¸s²Õ
¿ï§¹«á­n½T©w
­«¶}­n°±¦b¤W¤@¦¸¨Ï¥Îª¬ºA
»Ý­n¦p¦ó³]©w

register313

¦^´_ 1# fei6999
ªì¾ÇªÌVBA

1. Private Sub UserForm_Initialize()
   
2.   OptionButton1 = Range("A1")
   
3.   OptionButton2 = Range("A2")
   
4.   OptionButton3 = Range("A3")
   
5.   OptionButton4 = Range("A4")
   
6.   OptionButton5 = Range("A5")
   
7. End Sub
   
8. Private Sub OptionButton1_Click()
   
9.   Range("A1") = True
   
10.   Range("A2") = False
    
11. End Sub
    
12. Private Sub OptionButton2_Click()
    
13.   Range("A1") = False
    
14.   Range("A2") = True
    
15. End Sub
    
16. Private Sub OptionButton3_Click()
    
17.   Range("A3") = True
    
18.   Range("A4") = False
    
19.   Range("A5") = False
    
20. End Sub
    
21. Private Sub OptionButton4_Click()
    
22.   Range("A3") = False
    
23.   Range("A4") = True
    
24.   Range("A5") = False
    
25. End Sub
    
26. Private Sub OptionButton5_Click()
    
27.   Range("A3") = False
    
28.   Range("A4") = False
    
29.   Range("A5") = True
    
30. End Sub
    
31. Private Sub ½T©w_Click()
    
32.   Unload Me
    
33. End SubPrivate Sub ¨ú®ø_Click()
    
34.   Unload Me
    
35. End Sub

½Æ»s¥N½X

Book1.zip (11.47 KB)

¤U¸ü¦¸¼Æ: 4

2011-12-23 12:06

fei6999

·PÁÂ!¦¹¤èªk¥i¦æ
¦ý¬O¤£ª¾¹D¥i¦³¨ä¥L¤£»Ý­n°Ê¥Î¨ìÄæ¦ìªº¤èªk

register313

¦^´_ 3# fei6999

1. Private Sub ½T©w_Click()
   
2.   UserForm1.Hide
   
3. End Sub
   
4. 
   
5. Private Sub ¨ú®ø_Click()
   
6.   UserForm1.Hide
   
7. End Sub

½Æ»s¥N½X

Book2.zip (10.49 KB)

¤U¸ü¦¸¼Æ: 6

2011-12-23 13:09

fei6999

·PÁÂ!¥i¥H¨Ï¥Î
­Y¬O­n¶i¤@¨B
§Æ±æ¦b¦sÀÉÃö³¬«á,«O¯dª¬ºA
¦A¤U¤@¦¸¶}Àɮɭn¦P¤W¦¸¦sÀɪ¬ºAªº¸Ü
¥i¦³¤èªk!

fei6999

§Ú±Ä¥Î¤èªk¤@¨Ó¸Ñ¨M!ÁÂÁÂ