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

[µo°Ý] VBA userform textbox ­Èªº¶Ç°e

[µo°Ý] VBA userform textbox ­Èªº¶Ç°e

tb1¬O­n¶Ç°eªº­È¡A§Ú·Q­nÅýtb2¨Ó±±¨î¿é¤Jªº¦¸¼Æ¡A¦ý¬O­n«ç¼Ë¤~¯àÅý¸ê®Æ¤@ª½©¹¤U¿é¤J¡A¦Ó¤£¬~±¼«e­±ªº?
Â^¨ú.JPG
2019-6-25 11:51

¦^´_ 1# s13030029
¤@ÂI«Øij¨Ñ§A°Ñ¦Ò
¦b§AªºFOR°j°é«e ¥ý¨ú±oAÄæ³Ì«á¤@µ§ªº¦C¼Æ ¡]ÅܼÆK¡^
±µµÛ §â­ì¥»FOR°j°é¤¤ CELLS(1,A)§ï¦¨ CELLS(K,A)

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-6-26 00:22 ½s¿è

¦^´_ 1# s13030029


§A¨Sµ¹ÀɮסA§Ú¤£ª¾¹D¤u§@ªí¦WºÙ¡AÀH«K¨ú¤@­Ó¤u§@ªí¦WºÙ¡A§A¦Û¤v§ï§a

Set sht = Sheets("¤u§@ªí1") '¦Û¤v§ï­n¶ñ¤J­Èªº¤u§@ªí¦WºÙ
n& = sht.UsedRange.Rows.Count '¸Ó¤u§@ªí¦³¸ê®Æªº¦C¼Æ
If n = 1 And sht.[A1] = "" Then n = 0 '­Y[A1]µL¸ê®ÆUsedRange.Rows.Count¤]·|µ¹1¡A©Ò¥Hn­n§ï¬°0
For i = n + 1 To n + tb2.Value '±qn+1¶}©l¡A©¹¤U¶ñ¡AµL¸ê®Æ:n=0
  Cells(i, "A") = tb1.Value
Next
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD