- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 13
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-10-25
|
¦^´_ GBKEE
Private Sub UserForm_Initialize()
Dim X As Integer
For X = 11 To 18
Controls("Textbox" & X) = Sheets(4).Cells(X - 9, "c")
'¨Ì§ÇTextbox1....Textboxªº¤º®e ¬°²Ä¤@Ó¤u§@ªíªºAÄæ ²Ä5-²Ä9 ¦C¤º®e
Next
CommandButton2.Visible = False
End Subbowwow1975 µoªí©ó 2013-9-3 09:16
§AªºUserForm1¸Ì±¦b³]p¶¥¬q¥»¨Ó´N¦³©ñ¤W 8 (11 ~ 18 ¦Xp¬° 8) ÓTextbox ¶Ü?
¦pªG¨S¦³¦ÛµM´N¤£¯à½á¤©¦W¦rµ¹®Ú¥»´N¤£¦s¦bªº Textbox ¤¸¥ó.
¨º»ò§A¥i¥H°Ñ¦Ò³o½g :
http://forum.twbts.com/thread-10357-1-1.html
¥ý³vÓ«Ø¥ßTextbox¤¸¥ó«á¦A¤©¥H½á¦W.
Y¤£¬O,
¦]¬°§A¥u¶Kµ{¦¡½X¦Ó«D¾ãÓÀÉ®×,
¦³¨Ç°ÝÃDÃöÁä³B·|¬Ý¤£¥X¨Ó,
Åܦ¨·Q°Ñ»P°Q½×ªº¤H¥u¯à "²q²q¬Ý",
³o¼Ë¸Ñ¨M°ÝÃDªº®Ä²v·|Åܪº«Ü§C,
¤]¤£®e©ö¹F¨ì§A·Qnªº¥Øªº. |
|