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

[µo°Ý] Userform¸Ì¥Î°j°é§ìToggleButton¦WºÙ

[µo°Ý] Userform¸Ì¥Î°j°é§ìToggleButton¦WºÙ

¤p§Ì¦buserform¸Ì©ñ¸m50­ÓToggleButton

¤À§O©R¦W¬°A1 A2....A50

¨Ï¥ÎªÌ©óÂI¿ï«á±N¼Æ­È¶Ç¨ìsheet1¸Ì

·Q¥ÎFor¨Ó´î¤Ö½s½X¡A¦p¤U¡G

For i = 1 to 50

¡@x = "A" & i

¡@If x = ¢ârue Then sheet1.cells(0+i,1) = ½s¸¹.value

Next

¦ý¬O§ì¤£¨ì­È

½Ð°Ý¦p¦ó¤~¯à§ì¨ì©O¡HÁÂÁ¡C

¤j¤jÀɮצp¤U

§ì¸ê®Æ.rar (26.41 KB)

³o¬O¥Î¦b¼t¤º³W¹º

¦]¬°¦³«Ü¦h¼t ²Ä¤@­Ó¼t´N44¶ô¤è®æ Á`¦@ÁÙ¦³¤­­Ó ¤j·§­n200­Ó¤è®æ

¤§«áÁÙ­n§Q¥Î¨â¦Ê­Ó¤è®æ °µ¤£¦P¤ë¥÷ªº½s¿è ©Ò¥H ½s°_¨Ó¤ÓÃe¤j §Æ±æÂǥѰj°éªº¤è¦¡

¦³³Ò¤j¤j¡AÁÂÁ¡C

TOP

·PÁ¤j¤jªºÀ°¦£¡A

¤p§Ì¦³§ä¨ì¤èªk¤F¡A

For A = 1 To 44

AA = "A" & A

Controls(AA).Caption = Sheet3.Cells(1 + A, 2).Value

Next

¦pªG¦³Ãþ¦ü°ÝÃDªº¤H¥i¥H°Ñ¦Ò¬Ý¬Ý¡AÁÂÁ¡C

TOP

¦^´_ 2# lifedidi

For i = 1 To 44
  Controls("A" & i).Caption = Sheet3.Cells(i + 1, 2)
Next
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD