½Ð°Ý¦p¦ó¥ÎEXCEL VBªí³æ«Ø¥ß»¼¼W¼Æ¦r
- ©«¤l
- 25
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-12-4
- ³Ì«áµn¿ý
- 2018-6-6
|
½Ð°Ý¦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À°¦£±Ð¾É קï~- Private Sub cb1_Click()
- Range("A1").Select
- Selection.End(xlDown).Select
- Selection.Offset(1).Select
- ActiveWindow.RangeSelection.Value = tb1.Value & tb2.Value
- Selection.Copy
- Range("B1").Select
- Selection.End(xlDown).Select
- Selection.Offset(1).Select
- ActiveSheet.Paste
- Columns("B:B").EntireColumn.AutoFit
- Application.CutCopyMode = False
-
- ' ActiveCell.Characters(2, 3).Delete
- ' Selection.AutoFill Destination:=Range("B1:B11"), Type:=xlFillSeries
- ' Range("B1:B11").Select
- ' Range("B1").Select
-
- End Sub
½Æ»s¥N½X |
-
-
01.jpg
(104.52 KB)
¹Ï¤@
-
-
test.rar
(22.17 KB)
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 1# prince120101 - Private Sub cb1_Click()
- Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = tb1.Value & tb2.Value
- With Cells(Rows.Count, "B").End(xlUp).Offset(1)
- .Value = tb1.Value & "001"
- .AutoFill Destination:=.Resize(Val(tb2.Value)), Type:=xlFillSeries
- End With
- End Sub
½Æ»s¥N½X |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 25
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-12-4
- ³Ì«áµn¿ý
- 2018-6-6
|
¦^´_ 2# stillfish00
ÁÂÁÂ stillfish00 ¤j¤j
±ßÂI¨Ó¸Õ¬Ý¬Ý ~~~ |
|
|
|
|
|
|
- ©«¤l
- 25
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-12-4
- ³Ì«áµn¿ý
- 2018-6-6
|
¦^´_ 2# stillfish00
ÁÂÁ stillfish00¤j´£¨Ñ
¸Õ¹L«á ¦p¦P§Ú±Ôzªº°Ê§@ ¥i¥H¨Ï¥Î
¦ý³oÃä·Q°Ý¤@¤U ³o¬qªº·N«ä¬O@@?? ¥i¥H³Â·Ð»¡¤@¤U¶Ü~~- AutoFill Destination:=.Resize(Val(tb2.Value)), Type:=xlFillSeries
½Æ»s¥N½X |
|
|
|
|
|
|