123
返回列表 上一主題 發帖

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

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-9-3 11:29 | 只看該作者

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

請問先進
如何將工作表"編號"的出貨數量數字..帶到SHEET1後自動產生流水編號…
若出貨數量為100則工作表1需要有100列同資料..但不同流水編號..
(SHEET1的編號以18碼為原則..希望能不拆開這18碼..)謝謝.


PDF417CODE.rar (4.5 KB)
收藏 分享
學如逆水行舟 不進則退

GBKEE

帖子
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
  1. Sub Ex()
  2.     Dim i%
  3.     With Sheets("編號")
  4.         For i = 1 To .[h2] - 1
  5.             .[A2:G2].Offset(i) = .[A2:G2].Value
  6.             .[A2:G2].Offset(i).Cells(4) = Mid(.[d2], 1, 11) & Format(i + 1, "0000000")
  7.         Next
  8.     End With
  9. End Sub
複製代碼

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2010-9-12 23:29 | 只看該作者
回復 2# GBKEE


    版主謝謝您
對不起大概是我的敘述不是很完整
所以您的程式碼帶入後...得到的結果是相反的

資料輸入是在工作表"編號"H欄的出貨數量為標的
若出貨數量為"50"則在工作表SHEET1會得到50個不同編號順序的流水號
而不是在"編號"那張表排序出50個流水號
非常感謝您....
1.gif
2010-9-12 23:29


2.gif
2010-9-12 23:29
學如逆水行舟 不進則退

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2010-9-12 23:50 | 只看該作者
  1. Sub Ex()
  2.     Dim i%
  3.     With Sheets("編號")
  4.         For i = 1 To .[h2]
  5.             Sheets("Sheet1").[A1:G1].Offset(i) = .[A2:G2].Value
  6.             Sheets("Sheet1").[A1:G1].Offset(i).Cells(4) = Mid(.[d2], 1, 11) & Format(i, "0000000")
  7.         Next
  8.     End With
  9. End Sub
複製代碼
指定表名即可。

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
71  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-3-25 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2010-9-12 23:52 | 只看該作者
回復 3# PD961A
  1. Sub nn()
  2. With Sheets("編號")
  3. ReDim ar(.[H2] - 1)
  4. cnt = CDec(Mid(.[D2], 2))
  5. For i = 0 To .[H2] - 1
  6.   ar(i) = Array(.[A2].Value, "'" & .[B2].Value, .[C2].Value, Mid(.[D2], 1, 1) & cnt + i, .[E2].Value, .[F2].Value, .[G2].Value)
  7. Next
  8. Sheet1.[A2].Resize(.[H2], 7) = Application.Transpose(Application.Transpose(ar))
  9. End With
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2010-9-13 00:11 | 只看該作者
本帖最後由 PD961A 於 2010-9-13 00:20 編輯

回復 4# oobird
回復 5# Hsieh

    謝謝２位版主
您們目前給的程式可以輸入一列後帶到SHEET1=50個流水號

可以再請問
若持續輸入數筆資料後
是否仍能持續有排序流水號的功能
謝謝您
11.gif
2010-9-13 00:10


22.gif
2010-9-13 00:10
學如逆水行舟 不進則退

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
7#
發表於 2010-9-13 07:34 | 只看該作者
問題最好明確些，數筆資料你想建立那一筆的流水號？全部平均分攤那50筆？

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2010-9-13 09:44 | 只看該作者
回復 7# oobird

oobird版主謝謝您
   
資料輸入是在工作表"編號"H欄的出貨數量為標的

以SHEET1是執行後結果
若編號工作表第1列輸入H欄的出貨數量為標的100..則在工作表SHEET1-"D欄"會得到100個流水號(001~100)

同頁資料輸入在編號工作表第2列輸入H欄的出貨數量為標的10..
則在工作表SHEET1-"D欄"會得到10個流水號(101~110)

同頁資料輸入編號工作表第3列
輸入H欄的出貨數量為標的2..則在工作表SHEET1-"D欄"延續109之後
得到111~112
以此類推....

流水號在客戶端需求共7碼
只能累計不能重複
謝謝您
學如逆水行舟 不進則退

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
71  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-3-25 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
9#
發表於 2010-9-13 11:23 | 只看該作者
  1. Sub nn()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. Set d1 = CreateObject("Scripting.Dictionary")
  4. With Sheets("編號")
  5. For Each a In .Range(.[A2], .[A65536].End(xlUp))
  6.     d(a.Value) = d(a.Value) + a.Offset(, 7)
  7.     d1(a.Value) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, Mid(a.Offset(, 3), 1, 11), a.Offset(, 4).Value, a.Offset(, 5).Value, a.Offset(, 6).Value)
  8. Next
  9. Sheets("Sheet1").[A2:G65536].Clear
  10. For Each ky In d.keys
  11.    ReDim Ar(d(ky))
  12.    For i = 0 To d(ky) - 1
  13.      x = d1(ky)(3) & Format(i, "0000000")
  14.      With Sheets("Sheet1")
  15.        .[A65536].End(xlUp).Offset(1, 0).Resize(, 7) = Array(d1(ky)(0), d1(ky)(1), d1(ky)(2), x, d1(ky)(4), d1(ky)(5), d1(ky)(6))
  16.      End With
  17.    Next
  18. Next
  19. End With
  20. End Sub
複製代碼
學海無涯_不恥下問

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2010-9-15 00:30 | 只看該作者
本帖最後由 PD961A 於 2010-9-17 09:50 編輯

謝謝
ＧＢＫＥＥ
oobird
Hsieh 版主

客戶端需求更新
重新上傳檔案
請先進給予修正執行後的畫面
謝謝..

1.jpg
2010-9-17 09:46



2.jpg
2010-9-17 09:46




PDF417CODE990917.rar (95.67 KB)
學如逆水行舟 不進則退

TOP

        靜思自在 : 盡多少本份，就得多少本事。
123
返回列表 上一主題