Board logo

標題: 請問如何用EXCEL VB表單建立遞增數字 [打印本頁]
作者: prince120101    時間: 2014-12-5 17:52     標題: 請問如何用EXCEL VB表單建立遞增數字

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

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()

  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

  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

  21.    
  22. End Sub
複製代碼
作者: stillfish00    時間: 2014-12-5 18:16

回復 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    時間: 2014-12-5 20:35

回復 2# stillfish00

謝謝 stillfish00 大大
晚點來試看看 ~~~
作者: prince120101    時間: 2014-12-8 15:29

回復 2# stillfish00


謝謝 stillfish00大提供
     試過後 如同我敘述的動作 可以使用
     但這邊想問一下 這段的意思是@@??   可以麻煩說一下嗎~~
  1. AutoFill Destination:=.Resize(Val(tb2.Value)), Type:=xlFillSeries
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)