返回列表 上一主題 發帖

[發問] 自動依照數量遞增序號

abc9gad2016

帖子
69 
主題
16 
精華
0 
積分
84 
點名
0  
作業系統
WIN7 
軟體版本
EXCEL2010 
閱讀權限
20 
註冊時間
2016-3-20 
最後登錄
2024-4-24 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2023-6-21 14:34 | 顯示全部帖子

[發問] 自動依照數量遞增序號

小弟VBA還停留在錄製及修改程式的新手級階段
以下遇到問題無法錄製解決還請前輩指導

如附件 TEST序號1.rar (21.41 KB)

請問要如何使用VBA將M~Q的資料，依序從C6開始，依照機種、數量把"序號-前"依序遞增上去
完成後SHEET2的樣子 感謝。

TEST序號.rar (21.21 KB)

收藏 分享

abc9gad2016

帖子
69 
主題
16 
精華
0 
積分
84 
點名
0  
作業系統
WIN7 
軟體版本
EXCEL2010 
閱讀權限
20 
註冊時間
2016-3-20 
最後登錄
2024-4-24 

論壇贊助勳章
2#
發表於 2023-6-21 17:20 | 顯示全部帖子
回復 2# Andy2483


    太感謝前輩了~測試修改目前都可以運用，請問這是怎麼寫的呢，如果有餘裕的話希望可以加上每一行註解，讓我參考學習 感謝感謝

TOP

abc9gad2016

帖子
69 
主題
16 
精華
0 
積分
84 
點名
0  
作業系統
WIN7 
軟體版本
EXCEL2010 
閱讀權限
20 
註冊時間
2016-3-20 
最後登錄
2024-4-24 

論壇贊助勳章
3#
發表於 2023-6-21 17:55 | 顯示全部帖子
有詢問到另一位前輩此方法程式更簡便，可惜序號不會自動跑出，資質駑鈍不知道該如何修改
  1. Sub sdyt()
  2. For k = 3 To 5
  3.     For i = 1 To Range("p" & k).Value
  4.         Range("a" & i + 5 + r) = i
  5.         Range("c" & i + 5 + r) = Range("M" & k).Value
  6.         Range("D" & i + 5 + r) = Range("N" & k).Value + Range("a" & i + 5 + r) - 1
  7.     Next
  8.     r = r + i - 1
  9.   Next
  10. End Sub
複製代碼

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題