Board logo

標題: [發問] 領退料問題請教-依工單號碼KEY入領退料的資料 [打印本頁]
作者: ann.liu    時間: 2014-10-14 08:46     標題: 領退料問題請教-依工單號碼KEY入領退料的資料

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

本帖最後由 GBKEE 於 2014-10-14 11:10 編輯

回復 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    時間: 2014-10-14 13:02

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)