返回列表 上一主題 發帖

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

prince120101

帖子
25 
主題
7 
精華
0 
積分
53 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-12-4 
最後登錄
2018-6-6 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
複製代碼

01.jpg (104.52 KB)

圖一

01.jpg

test.rar (22.17 KB)

收藏 分享

prince120101

帖子
25 
主題
7 
精華
0 
積分
53 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-12-4 
最後登錄
2018-6-6 
4#
發表於 2014-12-8 15:29 | 只看該作者
回復 2# stillfish00


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

TOP

prince120101

帖子
25 
主題
7 
精華
0 
積分
53 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-12-4 
最後登錄
2018-6-6 
3#
發表於 2014-12-5 20:35 | 只看該作者
回復 2# stillfish00

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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 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
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題