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

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