Board logo

標題: 我遇到很急手的問題? [打印本頁]
作者: JEAN    時間: 2011-12-16 12:40     標題: 我遇到很急手的問題?

版主:
我遇到很急手的問題?
主管說可不可以做庫存數量

就是說 人家領一件物品,庫存會扣掉一個

這要這樣做。
作者: register313    時間: 2011-12-16 12:52

回復 1# JEAN


    [attach]8823[/attach]
作者: JEAN    時間: 2011-12-16 22:29

我是要做在領用明細表裡面嗎?
作者: register313    時間: 2011-12-16 23:04

回復 3# JEAN

    我誤會意思了
    原來是要與"製作文具"作結合 那真的是"急"手了
   可能要增加一"庫存"工作表
作者: register313    時間: 2011-12-17 19:57

本帖最後由 register313 於 2011-12-17 20:06 編輯

回復 3# JEAN
  [attach]8828[/attach]
初學者VBA
  1. Private Sub CommandButton1_Click()
  2. 首頁
  3. End Sub

  5. Private Sub worksheet_activate()
  6. Application.ScreenUpdating = False
  7. Rows("3:28") = ""
  8. Range("H2:I2") = ""
  9. Sheets("進貨存庫明細表").Range("B3:B10000").Copy Sheets("庫存").Range("H3")
  10. Sheets("庫存").Range("H2:I2") = "商品編號"
  11. Range("H2:H10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("I2:I3"), CopyToRange:=Range("A2"), Unique:=True
  12. I = 3
  13. Do While Cells(I, 1) <> ""
  14.    X = Application.SumIf(Sheets("進貨存庫明細表").Range("B3:B10000"), Cells(I, 1), Sheets("進貨存庫明細表").Range("E3:E10000"))
  15.    Y = Application.SumIf(Sheets("領用記錄明細表").Range("D3:D10000"), Cells(I, 1), Sheets("領用記錄明細表").Range("G3:G10000"))
  16.    Cells(I, 4) = X - Y
  17.    Cells(I, 2) = Application.VLookup(Cells(I, 1), Sheets("進貨存庫明細表").Range("B3:K10000"), 2, 0)
  18.    Cells(I, 3) = Application.VLookup(Cells(I, 1), Sheets("進貨存庫明細表").Range("B3:K10000"), 3, 0)
  19.    Cells(I, 5) = Application.VLookup(Cells(I, 1), Sheets("進貨存庫明細表").Range("B3:K10000"), 5, 0)
  20.    Cells(I, 6) = Application.VLookup(Cells(I, 1), Sheets("進貨存庫明細表").Range("B3:K10000"), 6, 0)
  21.    I = I + 1
  22. Loop
  23. Columns("H:I") = ""
  24. Range("A1").Select
  25. Application.ScreenUpdating = True
  26. End Sub
複製代碼
[attach]8829[/attach]   源自Hsieh超版大之製作文具.xls
作者: JEAN    時間: 2011-12-17 20:22

沒有辦法下載
可以E-MAIL給我嗎
[email protected]
作者: JEAN    時間: 2011-12-17 23:52

本帖最後由 JEAN 於 2011-12-21 21:42 編輯

你真的好厲害喔~~



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