- 帖子
- 199
- 主題
- 22
- 精華
- 0
- 積分
- 233
- 點名
- 254
- 作業系統
- Vista
- 軟體版本
- Office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2020-4-14
- 最後登錄
- 2024-12-29
   
|
17#
發表於 2021-7-13 02:33
| 只看該作者
回復 16# 准提部林
准提部林 老師 你好
理解2.3天還是不明白.再理解理解
其中有2段不知可融匯一起
xNum = [V2] '單號
cName = [e2] '客戶.....
NM = [E2] '客戶......
DD = [E4] '日期
QQ = [E2] '客戶......原有設定
Mch = Application.Match(CLng(DD), [訂貨明細表!L:L], 0) '先檢查日期是否存在
If IsNumeric(Mch) Then
Arr = Range([訂貨明細表!L1], [訂貨明細表!A1].Cells(Rows.Count, 1).End(xlUp))
For i = Mch To UBound(Arr)
If Arr(i, 11) <> DD Then Exit For
If Arr(i, 11) = DD And Arr(i, 1) = NM Then '日期相同+客戶相同(QQ = [E2] '客戶......原有設定)
MsgBox "※日期:" & DD & "，客戶:" & NM & "已經有資料! ": Exit
.................................................................................
Beep '若存在, 發出嗶聲, 並提示是否進行補增???
If MsgBox("**客戶已存在! 你要繼續輸入本張訂單嗎? ", 4 + 32 + 256) = vbNo Then Exit Sub '按"否"結束
[e2] = [訂貨明細表!A:A].Cells(Mch, 1) '按"是", 自動填入"客戶名", 加入增補明細~~
....................................................
匯成
xNum = [V2] '單號
cName = [e2] '客戶.....
NM = [E2] '客戶......
DD = [E4] '日期
QQ = [E2] '客戶......原有設定
'程式資料來源至准提部林_出貨作業D版V01_10905
If Not xNum Like String(10, "#") Then MsgBox "**單號錯誤或空白! ": Exit Sub
If Left(xNum, 7) <> Year([E4]) - 1911 & Format([E4], "mmdd") Then MsgBox "**單號前７碼與日期不相符! ": Exit Sub
Mch = Application.Match(xNum, [訂貨明細表!K:K], 0)
If IsNumeric(Mch) Then MsgBox "**單號已存在! ": Exit Sub
Mch = Application.Match(CLng(DD), [訂貨明細表!L:L], 0) '先檢查日期是否存在
If IsNumeric(Mch) Then
Arr = Range([訂貨明細表!L1], [訂貨明細表!A1].Cells(Rows.Count, 1).End(xlUp))
For i = Mch To UBound(Arr)
If Arr(i, 12) <> DD Then Exit For
If Arr(i, 12) = DD And Arr QQ = NM Then '日期相同+客戶相同(QQ = [E2] '客戶......原有設定)
MsgBox "※日期:" & DD & "，客戶:" & NM & "已經有資料! ": Exit Sub
End If
Next i
End If
........
Beep '若存在, 發出嗶聲, 並提示是否進行補增???
If MsgBox("**客戶已存在! 你要繼續輸入本張訂單嗎? ", 4 + 32 + 256) = vbNo Then Exit Sub '按"否"結束
[e2] = [訂貨明細表!A:A].Cells(Mch, 1) '按"是", 自動填入"客戶名", 加入增補明細~~
End If
.我先理解 .
謝謝 准提部林 老師 |
|
發表於 2021-7-10 11:51
| 
