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

[½Ð±Ð]±±¨î¶µ¸s²Õ¤Æ½Æ»s°ÝÃD

[½Ð±Ð]±±¨î¶µ¸s²Õ¤Æ½Æ»s°ÝÃD

¦bform¤¤¸m©ñ¤@­Óframe¡A¨ä¤W¦³¤@­ÓCommandButton¤Î¤@­Ólabel
½Ð°Ý¡A¥i¥H¦b°õ¦æ®É¡A½Æ»s¥X¬Û¦Pµ²ºc·sªºframe¶Ü

§Ú­ì¥»¬O­n°ÝVBA¤WªºUSERCOTROLS¡A«á¨Ógoogle«á¡A¨Ã¨S¦³³o¥\¯à¡A·PÁ±zªº¦^µª¡A³º¯à¦p¦¹À³¥Î¡I¤Q¤À¯«©_¡I

½Ð°Ý¦b±zªº¦^µª¤W¡Aframe1¥H¤Î¶K¤W«áªºframe2¤WªºCommandButton1¡BLabel1§¡¬O¬Û¦P¦WºÙ¡A³o­n¦p¦ó¤Þ¥Î©O¡H

TOP

©Ó¤W¡A
luh¤j¡A³o­ÓFrame¥Î¦bSheet¤W¥i¦æ¡A¦ý¥Î¦bUserForm¤W¡A«K·|¿ù»~¡A½Ð°Ý¬OMeªº°ÝÃD¶Ü¡H
  Frame1.Copy
  Me.Paste

TOP

¦Ûµª#3°ÝÃD
#4ªº°ÝÃDÁÙ¦b¡A½Ð°ª¤â¸Ñ´b°Ú

    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Then ctl.Text = ""
    Next

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD