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

½Ð°Ý¦p¦ó¥ÎEXCEL VBªí³æ«Ø¥ß»¼¼W¼Æ¦r

½Ð°Ý¦p¦ó¥ÎEXCEL VBªí³æ«Ø¥ß»¼¼W¼Æ¦r

½Ð°Ý¦U¦ì¤j¤j
¥H¤U¬O§Ú¹w·Qªº°Ê§@¬yµ{

1.¶}±Òªí³æ Key¤J ¤é´Á(20141213)and¼Æ¥Ø(006) «ö¿é¤J°õ¦æ

°Ê§@¤@:¤é´Áand¼Æ¥Ø ªº¼Æ­È ·|¶]¨ì A3 ¿é¤J
°Ê§@¤G:·|±NA3¼Æ­È COPY ¨ìBÄæ ³Ì¤U¤è ¿é¤J 20141213001
°Ê§@¤T:·|¤U©Ô»¼¼W ¼Æ¥Øªº¼Æ­È 20141213001,20141213002~20141213006°±¤î ¦p¦PCÄæ

¨ì°Ê§@¤G´N¥d¦í
§Úªº·Qªk¬O
COPY¨ìBÄæ³Ì«á­±ªº®É­Ô
¦A±N20141213006 §R°£«á­±006¦r¦ê§ï¦¨001  ¦b±Ò°Ê»¼¼W¤è¦¡ ¤£ª¾¹D¬O¤£¬O³o¼Ë
»¼¼W¤è¦¡ ¬O·ÓµÛ ¿é¤Jªº"¼Æ¥Ø"¦ÓÅÜ

¥H¤U¬O¥Î ¿ý»s¤è¦¡ ªºµ{¦¡
·Ð½Ð¤j¤j­Ì¥i¥HÀ°¦£±Ð¾É ­×§ï~
  1. Private Sub cb1_Click()

  2.     Range("A1").Select
  3.     Selection.End(xlDown).Select
  4.     Selection.Offset(1).Select
  5.     ActiveWindow.RangeSelection.Value = tb1.Value & tb2.Value
  6.     Selection.Copy
  7.     Range("B1").Select
  8.     Selection.End(xlDown).Select
  9.     Selection.Offset(1).Select
  10.     ActiveSheet.Paste
  11.     Columns("B:B").EntireColumn.AutoFit
  12.     Application.CutCopyMode = False

  13.    
  14. '    ActiveCell.Characters(2, 3).Delete
  15. '   Selection.AutoFill Destination:=Range("B1:B11"), Type:=xlFillSeries
  16. '    Range("B1:B11").Select
  17. '    Range("B1").Select

  18.    
  19. End Sub
½Æ»s¥N½X

01.jpg (104.52 KB)

¹Ï¤@

01.jpg

test.rar (22.17 KB)

¦^´_ 1# prince120101
  1. Private Sub cb1_Click()
  2.   Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = tb1.Value & tb2.Value
  3.   With Cells(Rows.Count, "B").End(xlUp).Offset(1)
  4.     .Value = tb1.Value & "001"
  5.     .AutoFill Destination:=.Resize(Val(tb2.Value)), Type:=xlFillSeries
  6.   End With
  7. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 2# stillfish00

ÁÂÁÂ stillfish00 ¤j¤j
±ßÂI¨Ó¸Õ¬Ý¬Ý ~~~

TOP

¦^´_ 2# stillfish00


ÁÂÁ stillfish00¤j´£¨Ñ
     ¸Õ¹L«á ¦p¦P§Ú±Ô­zªº°Ê§@ ¥i¥H¨Ï¥Î
     ¦ý³oÃä·Q°Ý¤@¤U ³o¬qªº·N«ä¬O@@??   ¥i¥H³Â·Ð»¡¤@¤U¶Ü~~
  1. AutoFill Destination:=.Resize(Val(tb2.Value)), Type:=xlFillSeries
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD