[發問] 領退料問題請教-依工單號碼KEY入領退料的資料

ann.liu

各位大大你好：
有幾個問題想請教各位高手：

下載 (298.25 KB)

2014-10-14 08:42

目前會有兩個表單，領料提領單據是key入總表的白色區塊，原料領退料單依工單編號key入黃、綠、藍、橘
1.管理編號位置是否自動產生編號，假如總表己KEY到MAL-14-028，表單的空格處可自到產生MAL-14-029，並匯入總表。
2.材料類別顯示埋入件時，材料編號可以只顯示IN-XXX。
3.是否可使用公式依據原料等級計算使用量，全次料不計算，新加次*2/3，新料正常加減，於紅色區塊的使用量空格呈現，並匯入總表。
4.綠色區塊與橘色區塊，依管理編號，將數據KEY匯入總表
5.材料編號與開單日，是否可參照總表資料的管理編號，並秀出資料
領退料問題請教.rar (61.76 KB)

下載次數: 12

2014-10-14 08:46

GBKEE

回復 1# ann.liu

1. 3.是否可使用公式依據原料等級計算使用量，全次料不計算，新加次*2/3，新料正常加減，於紅色區塊的使用量空格呈現，並匯入總表。

複製代碼

請再說清楚些!

1. Dim ws As Worksheet
   
2. Private Sub UserForm_Initialize()
   
3.     Dim sp As Variant, wsiRow As Range
   
4.     Set ws = Worksheets("領退料記錄表")
   
5.     Set wsiRow = ws.Cells(ws.Rows.Count, 1).End(xlUp)
   
6.     sp = Split(wsiRow, "-")
   
7.     sp = Replace(wsiRow, sp(UBound(sp)) & "", Format(Val(sp(UBound(sp))) + 1, "0000"))
   
8.     cmb材料編號.RowSource = ""
   
9.     '1.管理編號位置是否自動產生編號
   
10.     Albl管理編號.Caption = sp  '表單上這控制項是Lableu在物件上出現修飾文字的屬性是.Caption
    
11. End Sub
    
12. Private Sub cmb材料類別_Change()
    
13.     Dim e As Range
    
14.     With cmb材料編號
    
15.         .RowSource = ""
    
16.         If cmb材料類別.ListIndex = 0 Then
    
17.             .RowSource = [材料編號].Address(, , , 1, 1) '[活頁簿的 函數,名稱,公式]
    
18.         ElseIf cmb材料類別.ListIndex = 1 Then
    
19.            '2.材料類別顯示埋入件時，材料編號可以只顯示IN-XXX。
    
20.             For Each e In [材料編號]
    
21.                 If InStr(e, "IN-") Then .AddItem e
    
22.             Next
    
23.         End If
    
24.     End With
    
25. End Sub

複製代碼

ann.liu

下載 (78.87 KB)

2014-10-14 12:49

回復 2# GBKEE
版主你好：
不知我是否有錯誤的地方，執行時會出現錯誤訊息。
3.是否可使用公式依據原料等級計算使用量，全次料不計算，新加次*2/3，新料正常加減，於紅色區塊的使用量空格呈現，並匯入總表。
不好意思，可能解釋的不夠清楚，在原料領退料單的表單中，原料等級如果選擇新加次，使用量計算：(領料塑料重量*2/3)-
(退料塑料重量*2/3)；如果選擇全次料就不計算；；如果新料使用量計算：(領料塑料重量)-
(退料塑料重量)