如何將出貨數量數字.帶到另個工作表後自動產生流水編號 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何將出貨數量數字.帶到另個工作表後自動產生流水編號

返回列表下一主題上一主題發帖

[發問] 如何將出貨數量數字.帶到另個工作表後自動產生流水編號

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^# 跳轉到 »

發表於 2010-9-12 17:30 | 只看該作者

回復 1# PD961A

Sub Ex()
Dim i%
With Sheets("編號")
For i = 1 To .[h2] - 1
.[A2:G2].Offset(i) = .[A2:G2].Value
.[A2:G2].Offset(i).Cells(4) = Mid(.[d2], 1, 11) & Format(i + 1, "0000000")
Next
End With
End Sub

複製代碼

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。

返回列表下一主題上一主題