請問如何用EXCEL VB表單建立遞增數字

prince120101

請問各位大大
以下是我預想的動作流程

1.開啟表單 Key入 日期(20141213)and數目(006) 按輸入執行

動作一:日期and數目 的數值 會跑到 A3 輸入
動作二:會將A3數值 COPY 到B欄 最下方 輸入 20141213001
動作三:會下拉遞增 數目的數值 20141213001,20141213002~20141213006停止 如同C欄

到動作二就卡住
我的想法是
COPY到B欄最後面的時候
再將20141213006 刪除後面006字串改成001  在啟動遞增方式 不知道是不是這樣
遞增方式 是照著 輸入的"數目"而變

以下是用 錄製方式 的程式
煩請大大們可以幫忙教導 修改~

1. Private Sub cb1_Click()
   
2. 
   
3.     Range("A1").Select
   
4.     Selection.End(xlDown).Select
   
5.     Selection.Offset(1).Select
   
6.     ActiveWindow.RangeSelection.Value = tb1.Value & tb2.Value
   
7.     Selection.Copy
   
8.     Range("B1").Select
   
9.     Selection.End(xlDown).Select
   
10.     Selection.Offset(1).Select
    
11.     ActiveSheet.Paste
    
12.     Columns("B:B").EntireColumn.AutoFit
    
13.     Application.CutCopyMode = False
    
14. 
    
15.    
    
16. '    ActiveCell.Characters(2, 3).Delete
    
17. '   Selection.AutoFill Destination:=Range("B1:B11"), Type:=xlFillSeries
    
18. '    Range("B1:B11").Select
    
19. '    Range("B1").Select
    
20. 
    
21.    
    
22. End Sub

複製代碼

stillfish00

回復 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

複製代碼

prince120101

回復 2# stillfish00

謝謝 stillfish00 大大
晚點來試看看 ~~~

prince120101

回復 2# stillfish00


謝謝 stillfish00大提供
     試過後 如同我敘述的動作 可以使用
     但這邊想問一下 這段的意思是@@??   可以麻煩說一下嗎~~

1. AutoFill Destination:=.Resize(Val(tb2.Value)), Type:=xlFillSeries

複製代碼