123
返回列表 上一主題 發帖

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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11# 跳轉到 »
發表於 2010-9-17 17:34 | 只看該作者
回復 10# PD961A
  1. Sub Ex()
  2.     Dim Rng As Range, N%
  3.     Set Rng = Sheet2.Range("A1").CurrentRegion
  4.     Sheet1.Range("A1").CurrentRegion.Offset(1) = ""
  5.     N = 1
  6.     For i = 2 To Rng.Rows.Count
  7.         For II = 1 To Rng.Rows(i).Cells(Rng.Columns.Count)
  8.             With Sheet1.Range("A1").CurrentRegion.Rows(N + 1)
  9.                 .Value = Rng.Rows(i).Resize(, Rng.Columns.Count - 1).Value
  10.                 .Cells(4) = Rng.Rows(i).Cells(4) & Format(N, "0000000")
  11.                 N = N + 1
  12.             End With
  13.         Next
  14.     Next
  15. End Sub
複製代碼

TOP

PD961A

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

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

回復 11# GBKEE


    謝謝GBKEE版主
學如逆水行舟 不進則退

TOP

PD961A

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

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

回復 11# GBKEE

版主
不好意思..帶到條碼機程式後..PN的資料有些資料讀不出來
可以請您幫忙修正..謝謝您..

pdf417.rar (13.2 KB)

學如逆水行舟 不進則退

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
14#
發表於 2010-9-21 17:14 | 只看該作者
回復 13# PD961A
請附上 條碼機程式 試試看

TOP

PD961A

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

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


    請問版主和先進
ELSeq的流水號排序會重複..請問可以修正嗎?謝謝....

ELSeq需求(I0831固定前5碼)(6-11碼為年月日)
若第1次輸入內容為I0831100109出貨數量=4則按下執行鈕後..SHEET1可得到
I08311001090000001~0000004的流水號排序




可是同天生產的製造日期會有相同..但是品名不同
若清除第1次輸入的內容再輸入不同的品名(但同生產日期)會產生相同的ELSeq



PDF417.rar (55.81 KB)
學如逆水行舟 不進則退

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
16#
發表於 2010-9-29 19:33 | 只看該作者
回復 15# PD961A
  1. Sub Ex()
  2.    '在Sheet2的IU欄加上日期紀錄輔助
  3.   Dim Rng As Range, N%, F As Range, No%
  4.    Dim Sh As Worksheet
  5.     Set Sh = Sheet2
  6.     Set Rng = Sh.Range("A1").CurrentRegion
  7.     Sheet1.Range("A1").CurrentRegion.Offset(1) = ""
  8.     N = 2
  9.     For i = 2 To Rng.Rows.Count
  10.         For II = 1 To Rng.Rows(i).Cells(Rng.Columns.Count)
  11.             ''''''''''''''''''''''''''''''''''''''''''''''''''''
  12.             Set F = Sh.Range("IU:IU").Find(Rng.Rows(i).Cells(5).Value)
  13.             If Not F Is Nothing Then No = F(1, 2) + 1 Else No = 1
  14.            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  15.             With Sheet1.Range("A1").CurrentRegion.Rows(N)
  16.                 .Value = Rng.Rows(i).Resize(, Rng.Columns.Count - 1).Value
  17.                 .Cells(4) = Rng.Rows(i).Cells(4) & Format(No, "0000000")
  18.                 N = N + 1
  19.                 No = No + 1
  20.             End With
  21.             ''''''''''''''''''''''''''''''''''
  22.             If Not F Is Nothing Then
  23.                 F(1, 2) = No - 1
  24.             Else
  25.                 With Sh.Range("IU65536").End(xlUp)
  26.                     .Offset(1) = Rng.Rows(i).Cells(5).Text
  27.                     .Offset(1, 1) = No - 1
  28.                 End With
  29.             End If
  30.             '''''''''''''''''''''''''''''''''''''''''
  31.         Next
  32.     Next
  33. End Sub
複製代碼

TOP

PD961A

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

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
17#
發表於 2010-9-30 08:43 | 只看該作者
回復 16# GBKEE
版主
請問
    '在Sheet2的IU欄加上日期紀錄輔助
這行指令要在Sheet2的IU欄加上日期?請問要如何加??
謝謝您..
學如逆水行舟 不進則退

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
18#
發表於 2010-9-30 13:00 | 只看該作者
    '在Sheet2的IU欄加上日期紀錄輔助
這行指令要在Sheet2的IU欄加上日期?請問 ...
PD961A 發表於 2010-9-30 08:43

這行不是指令 是註解 前面有加上'  註解符號
程式裡有兩段註解中的程式碼 就是在Sheet2的IU欄加上日期紀錄輔助
執行看看就知道

TOP

PD961A

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

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

版主
    這行不是指令 是註解 前面有加上'  註解符號
不好意思...我知道它是程式碼裡的註解符號...
是要請問您加到SHEET2的IU欄的日期??怎麼加??
我到"編號"那個工作表的IU1欄打入日期後執行不會變阿...
不知道哪裡不對...
謝謝您..
學如逆水行舟 不進則退

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
20#
發表於 2010-9-30 17:04 | 只看該作者
本帖最後由 GBKEE 於 2010-9-30 17:05 編輯
程式裡有兩段註解中的程式碼 就是在Sheet2的IU欄加上日期紀錄輔助
執行看看就知道GBKEE 發表於 2010-9-30 13:00

我是告訴你 程式在 Sheet2的IU欄加上日期紀錄輔助  請執行程式後到IU欄看看

請你不用到"編號"那個工作表的IU1欄打入日期

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
123
返回列表 上一主題