- 帖子
- 199
- 主題
- 22
- 精華
- 0
- 積分
- 233
- 點名
- 81
- 作業系統
- Vista
- 軟體版本
- Office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2020-4-14
- 最後登錄
- 2024-4-19
   
|
本帖最後由 BV7BW 於 2021-7-24 17:28 編輯
回復 20# 准提部林
謝謝 准提部林 老師
關于"修改""這部份已完成
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'程式資料來源至准提部林_1100624_X10000045_1
Dim R&, CN&, xE As Range
With Target
If .Column <> [P1].Column Or .Value = "" Then Exit Sub
R = Cells(Rows.Count, "k").End(3).Row
Cancel = True
If .Row = 1 Then
With Range("e1:n" & R)
.Borders.LineStyle = 1
.Columns(9) = .Columns(9).Value
End With
Range("h1:h" & R).Formula = "=IF(ROW(A1)=1,""(KG)"",IF(F1=""台斤"",(MOD(E1,1)*100/16+INT(E1)),E1)*G1)"
Else
Set xE = Range("K1:K" & R).Find(.Value, lookat:=xlWhole)
If xE Is Nothing Then MsgBox "＊找不到指定的單號！ ": Exit Sub
CN = Application.CountIf(Range("K" & xE.Row & ":K" & R), .Value)
With Range("e" & xE.Row).Resize(CN, 10)
.Columns(9) = "=SUM(" & .Columns(4).Address & ")"
.BorderAround Weight:=xlMedium, ColorIndex:=3
.Item(1).Select
.Item(1).Font.Color = vbRed
End With
End If
End With
End Sub
...........
至於"輸入"這追加部份則是需再產生另一單號.
例如:7月24日輸入了一張出貨單, 客戶:陳一, 單號:"1100724001", 共輸入10筆項目,
7月24日臨時客戶:陳一追加了3種商品,則客戶:陳一, 單號:"1100724002", 共輸入3筆項目,這也完成
......................
xNum = [V2] '單號
cName = [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(CL, [訂貨明細表!A:A], 0)
'If IsNumeric(Mch) Then MsgBox "**客戶已存在! ": Exit Sub
'程式資料來源至准提部林_2021_7_3指導
Mch = Application.Match(cName, [訂貨明細表!A:A], 0) '檢查客戶是否存在
If IsNumeric(Mch) Then
Beep '若存在, 發出嗶聲, 並提示是否進行補增???
If MsgBox("**客戶已存在! 你要繼續輸入本張訂單嗎? ", 4 + 32 + 256) = vbNo Then Exit Sub '按"否"結束
[E2] = [訂貨明細表!A:A].Cells(Mch, 1) '按"是", 自動填入"客戶名", 加入增補明細~~
End If
...........................
現在問題所在是因訂貨明細表中
例)7月1日客戶:陳一, 單號:"1100701001"共輸入10筆項目
7月1日客戶:陳一臨時追加, 單號:"1100701002"共輸入1筆項目
7月2日客戶:陳一, 單號:"1100702001"共輸入5筆項目
因Mch = Application.Match(cName, [訂貨明細表!A:A], 0) '檢查客戶是否存在.
("其功能是防止客戶重複輸入"造成"採購需求"失真)
所以它是檢查"訂貨明細表"中有客戶:陳一,都會先檢查1次.其功用因此只有1半作用
也就是說只有每月第1次客戶:陳一.或"訂貨明細表"中沒有客戶:陳一其功用才能呈現出
現在做法是多1動作先將每日"訂貨明細表"手動複製另1工作表"訂貨存檔"貼上後將"訂貨明細表"清空.
問題就解結了
因而提問"工作表複製跨另一檔案工作表"問題
如能在"Mch = Application.Match(cName, [訂貨明細表!A:A], 0) '檢查客戶是否存在"中
加上或改為以日期每日以客戶做檢查既可.不用再增列另一工作表"訂貨存檔"直接以"訂貨明細表"作為存檔資料
在每月以訂貨明細表中資料再另存新檔作為歷史資料存檔
感謝 准提部林 老師 指導 |
|
發表於 2021-7-13 02:33
| 
