- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2014-10-14 10:49
| 只看該作者
本帖最後由 GBKEE 於 2014-10-14 11:10 編輯
回復 1# ann.liu - 3.是否可使用公式依據原料等級計算使用量，全次料不計算，新加次*2/3，新料正常加減，於紅色區塊的使用量空格呈現，並匯入總表。
- Dim ws As Worksheet
- Private Sub UserForm_Initialize()
- Dim sp As Variant, wsiRow As Range
- Set ws = Worksheets("領退料記錄表")
- Set wsiRow = ws.Cells(ws.Rows.Count, 1).End(xlUp)
- sp = Split(wsiRow, "-")
- sp = Replace(wsiRow, sp(UBound(sp)) & "", Format(Val(sp(UBound(sp))) + 1, "0000"))
- cmb材料編號.RowSource = ""
- '1.管理編號位置是否自動產生編號
- Albl管理編號.Caption = sp '表單上這控制項是Lableu在物件上出現修飾文字的屬性是.Caption
- End Sub
- Private Sub cmb材料類別_Change()
- Dim e As Range
- With cmb材料編號
- .RowSource = ""
- If cmb材料類別.ListIndex = 0 Then
- .RowSource = [材料編號].Address(, , , 1, 1) '[活頁簿的 函數,名稱,公式]
- ElseIf cmb材料類別.ListIndex = 1 Then
- '2.材料類別顯示埋入件時，材料編號可以只顯示IN-XXX。
- For Each e In [材料編號]
- If InStr(e, "IN-") Then .AddItem e
- Next
- End If
- End With
- End Sub
|
|
發表於 2014-10-14 08:46
| 
