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

[µo°Ý] ¦p¦óÅý¦h­ÓUserForm¤¤ªºCheckBox°Ñ·Ó

[µo°Ý] ¦p¦óÅý¦h­ÓUserForm¤¤ªºCheckBox°Ñ·Ó

UserForm1¤º¦³
CheckBox1~CheckBox28

¦@¦³30­ÓUserForm
¤º¦³
CheckBox1~CheckBox28

¦h­ÓªºUserFormªºCheckBox1.caption~CheckBox28.caption
¬O§_¯à¦Û°Ê°Ñ·ÓUserForm1ªºCheckBox1~CheckBox28

¤£ª¾¹D¦U¦ì¦Ñ®v¦³¨S¦³¬ÝÀ´§Úªº°ÝÃD@§Ú¦b¤U¤èÄ~Äò´y­z

¦]¬°UserForm1¤ºªº
CheckBox1.caption~CheckBox28.caption
¸g±`§ó·s~
¾É­P¨C¦¸³£¥²¶·¨ì¦h­ÓUserFormªºCheckBox1.caption~CheckBox28.caption
°µ­×§ï~
­è¶}©l¤@¦¸¨â¦¸¤T¦¸¨ìN¦¸~¯uªº«D±`ªº¨¯­W~§Æ±æ¯à§ä¨ì¤èªk!ÁÂÁ¦Ѯv­Ìªº¤j¤O¤ä«ù!

30­Ó USERFORM³]­p¬O§_³£¤@¼Ë?
¬O¸Ü¤£¦p¥ý§â30­ÓUSERFORMÂର1­Ó,
µM«á¦]À³±ø¥ó³]©w¤@¤UCHECKBOX CAPTIONµ¥¤º®e?
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 1# av8d
2#  kimbalª©¥D °Ý»¡ "30­Ó USERFORM³]­p¬O§_³£¤@¼Ë? "
¦p¬O ½Ð¤W¶ÇÀÉ®× ,¥i¥Îª«¥óÃþ§O¨Ó¸Õ¸Õ

TOP

¦^´_ 3# GBKEE


    tt.rar (163.96 KB)
§Ú¦b·QªO¥D¥i¯à¦³¬Ý¹L¤F~¦A¦¸·PÁ¤j®aªºÀ°¦£!

TOP

¦^´_ 4# av8d
ªþÀÉ«D¬O "30­Ó USERFORM³]­p¬O¤@¼Ëªº " ¤£¦n³]­p
¸Õ¸Õ¬Ý  30­Ó USERFORM CheckBox¦WºÙ³£¤@¼Ë  ¨ÌUserForm1ªº CheckBoxªº.Caption
  1. Private Sub UserForm_Initialize()
  2.     Dim cCBs As Integer
  3.     Âà´«Caption Me 'UserForm11 UserForm12       '¨C¤@­Ó UserForm ¼g¤J¦¹µ{¦¡½X
  4.     'ThisWorkbook.Âà´«Caption Me                '¸m©óThisWorkbook
  5. End Sub
½Æ»s¥N½X
  1. Sub Âà´«Caption(theForm As UserForm)     '¦¹µ{§Ç¨Ñ30­ÓUserForm¨Ï¥Î,¥i¸m©óThisWorkbook ©Î ¤@¯ë¼Ò²Õ¤¤
  2.     Dim cCBs As Integer
  3.     For cCBs = 1 To 28    ,©Ò¦³ªí³æ ªº CheckBox ¦WºÙ³£¤@¼Ë
  4.        theForm.Controls("CheckBox" & cCBs).Caption = UserForm1.Controls("CheckBox" & cCBs).Caption
  5.     Next
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# GBKEE


    «D±`·PÁ¦Ѯv­Ì~«Ü¹ê¥Î~¾Ç²ß¤F!

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD