[µo°Ý] ·Q­n¦bxls¶}±Ò«á¥X²{combobox

a703130

½Ð°Ý¦U¦ì«e½ú
¥Ø«e²{¦b¦³A & B xls,²{¬ðµo©_·Q,·Q­n±NA ¸òBªº¤u§@­¶©ñ¦b¤@­Ó C.xls
·í¶}±Ò C.xls®É,·|¥X²{­Ó¿ï¾Üµøµ¡¥i¥H¿ï¾Ü A or B
¦Ó±N¤£»Ý­nªº¤u§@­¶§R°£

³o¼Ë§Ú´N¤£¥Î³B²z¨â­Óxls¤F

·Q½Ð°Ý  ¶}±Òxls«á¸õ¥X¿ï¾Üµøµ¡,³o³¡¤ÀÀ³¸Ó­n¦p¦ó°µ??

¥t¥~¬ÛÃöMFC ³¡¤À§Ú¸ûÁ¡®z,¤£ª¾¹D¬O§_¦³¹q¤l®Ñ©Î¬O±ÀÂ˪º®Ñ¥i¥H¬Ý
¦]¬°¦n¹³¸òVBªº©R¥O¤£¤Ó¤@¼Ë~

ÁÂÁ¦U¦ì«e½ú«ü¾É

mark15jill

¦^´_ 1# a703130
²©ö§PÂ_

1. Private Sub CheckBox1_Click()
   
2.     If CheckBox2.Value = True Then CheckBox2.Value = False
   
3.     If CheckBox1.Value = True Then
   
4.         ¤u§@ªí1.Select
   
5.         OptionButton1.Value = False
   
6.         OptionButton2.Value = False
   
7.     End If
   
8. End Sub
   
9. 
   
10. Private Sub CheckBox2_Click()
    
11.     If CheckBox1.Value = True Then CheckBox1.Value = False
    
12.     If CheckBox2.Value = True Then
    
13.         ¤u§@ªí2.Select
    
14.         OptionButton1.Value = False
    
15.         OptionButton2.Value = False
    
16. 
    
17.     End If
    
18. End Sub
    
19. 
    
20. Private Sub OptionButton1_Click()
    
21.     If CheckBox1.Value = True Then CheckBox1.Value = False
    
22.     If CheckBox2.Value = True Then CheckBox2.Value = False
    
23.    
    
24.     ¤u§@ªí1.Select
    
25. End Sub
    
26. 
    
27. 
    
28. 
    
29. Private Sub OptionButton2_Click()
    
30.     If CheckBox1.Value = True Then CheckBox1.Value = False
    
31.     If CheckBox2.Value = True Then CheckBox2.Value = False
    
32.    
    
33.     ¤u§@ªí2.Select
    
34. End Sub
    
35. 
    
36. Private Sub UserForm_Click()
    
37. 
    
38. End Sub

½Æ»s¥N½X

'²©öÀÉ®×
select.rar (14.68 KB)

¤U¸ü¦¸¼Æ: 10

2012-11-20 15:05

a703130

¦^´_ 2# mark15jill

©êºp~³o»ò±ß¤~¦^ÂÐ
§Ú¦³½T»{¹LªþÀÉ~¬O§Ú·Q¤F¸Ñªº³¡¥÷¨S¿ù

§Ú·|¦bStudy¤@¤U

ÁÂÁ«e½ú«ü¾É