[½Ð±Ð]±±¨î¶µ¸s²Õ¤Æ½Æ»s°ÝÃD
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
[½Ð±Ð]±±¨î¶µ¸s²Õ¤Æ½Æ»s°ÝÃD
¦bform¤¤¸m©ñ¤@Óframe¡A¨ä¤W¦³¤@ÓCommandButton¤Î¤@Ólabel
½Ð°Ý¡A¥i¥H¦b°õ¦æ®É¡A½Æ»s¥X¬Û¦Pµ²ºc·sªºframe¶Ü |
|
|
|
|
|
|
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
§Ú쥻¬On°Ý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³on¦p¦ó¤Þ¥Î©O¡H |
|
|
|
|
|
|
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
©Ó¤W¡A
luh¤j¡A³oÓFrame¥Î¦bSheet¤W¥i¦æ¡A¦ý¥Î¦bUserForm¤W¡A«K·|¿ù»~¡A½Ð°Ý¬OMeªº°ÝÃD¶Ü¡H
Frame1.Copy
Me.Paste |
|
|
|
|
|
|
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
¦Ûµª#3°ÝÃD
#4ªº°ÝÃDÁÙ¦b¡A½Ð°ª¤â¸Ñ´b°Ú
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then ctl.Text = ""
Next |
|
|
|
|
|
|