- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2011-6-8 22:57 ½s¿è
¦pªG¤µ¤Ñ n¥Îoption±±¨î¶µ ¥h±±¨î ¥L©Òn·j´MªºÄæ¦ì
¦p µ{¦¡ªº·j´MÄæ¦ì¹w³] F Äæ¦ì
¦ý¬O¤µ¤Ñ¦pªGn §ï·j´M DÄæ¦ì
¨º»ò OPTION±±¨î¶µ³o³¡¤Àn«ç³]©w
¦³¸ÕµÛ³]©w ¦ý¬O·|Åܦ¨µLªk§PŪ(§ä¤£¥X¨Ó)
mark15jill µoªí©ó 2011-6-8 15:48 
¦]¬°¬Ý¤£¨ì§Aªº¹ê¨Ò, ©Ò¥H§Ú²q´ú¨º¥i¯à¬O¦]¬°§A¨S¦³µ¹©wªìÈ, ©Î¬OȤ£¥¿½T,
¥ç©Î¬O¿ï¶µ¼W§R«á·|²£¥Í¨t²Î»~§P(¤£¯à½T©wþ¨Çºâ¤@²Õ),
¨º»ò§ÚÌ¥i¥H¦Û¤v±±¨î¹ê»Ú°õ¦æªºµ²ªG.
¥H¤Uµ{¦¡©ñ¦b ThisWorkbook :
Private Sub Workbook_Open()
obD = True
obe = False
obF = False
End Sub
¥H¤Uµ{¦¡ª½±µ¦b³]p¼Ò¦¡¤UÂùÀ»OptionButton¥H²£¥Í¬ÛÃö¤èªk Sub ÀY§À, ¤¤¶¡©ñ¤WÓ§OȪº³]©wµ{¦¡§Y¥i
Private Sub obD_Click()
obD = True
obe = False
obF = False
End Sub
Private Sub dbE_Click()
obD = False
obe = True
obF = False
End Sub
Private Sub obF_Click()
obD = False
obe = False
obF = True
End Sub
¥un§â´¤¨âÓ«ÂI :
1. µ{¦¡¶}±Ò®É°O±o³]©w¤@Ó OptionButton ¬° True, ¨ä¥L«h³]¬° False
2. ·í¨Ï¥ÎªÌÂIÀ»¬YÓ OptionButton ®ÉÀ³³y¦¨¸Ó OptionButton ¬° True, ¨ä¥L«h¶·³]¬° False
¥ç§Y¤£ºÞ¨t²Î·|¦Û°Ê§ì¨ú¨ìþÓ,
§Ú̦ۤv¨Ó«ü©w§ÚÌnþÓ³Q¿ï¾Ü. |
|