ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦hµ§EXCEL·j´Mªº¥Îªk-©µ¦ù°ÝÃD

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-6-8 22:57 ½s¿è
¦pªG¤µ¤Ñ ­n¥Îoption±±¨î¶µ ¥h±±¨î ¥L©Ò­n·j´MªºÄæ¦ì
¦p µ{¦¡ªº·j´MÄæ¦ì¹w³] F Äæ¦ì
¦ý¬O¤µ¤Ñ¦pªG­n §ï·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

¥u­n§â´¤¨â­Ó­«Â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¿ï¾Ü.

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD