- 帖子
- 967
- 主題
- 0
- 精華
- 0
- 積分
- 1001
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-11-29
- 最後登錄
- 2022-5-17
 
|
5#
發表於 2011-12-17 19:57
| 只看該作者
本帖最後由 register313 於 2011-12-17 20:06 編輯
回復 3# JEAN
初學者VBA- Private Sub CommandButton1_Click()
- 首頁
- End Sub
- Private Sub worksheet_activate()
- Application.ScreenUpdating = False
- Rows("3:28") = ""
- Range("H2:I2") = ""
- Sheets("進貨存庫明細表").Range("B3:B10000").Copy Sheets("庫存").Range("H3")
- Sheets("庫存").Range("H2:I2") = "商品編號"
- Range("H2:H10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("I2:I3"), CopyToRange:=Range("A2"), Unique:=True
- I = 3
- Do While Cells(I, 1) <> ""
- X = Application.SumIf(Sheets("進貨存庫明細表").Range("B3:B10000"), Cells(I, 1), Sheets("進貨存庫明細表").Range("E3:E10000"))
- Y = Application.SumIf(Sheets("領用記錄明細表").Range("D3:D10000"), Cells(I, 1), Sheets("領用記錄明細表").Range("G3:G10000"))
- Cells(I, 4) = X - Y
- Cells(I, 2) = Application.VLookup(Cells(I, 1), Sheets("進貨存庫明細表").Range("B3:K10000"), 2, 0)
- Cells(I, 3) = Application.VLookup(Cells(I, 1), Sheets("進貨存庫明細表").Range("B3:K10000"), 3, 0)
- Cells(I, 5) = Application.VLookup(Cells(I, 1), Sheets("進貨存庫明細表").Range("B3:K10000"), 5, 0)
- Cells(I, 6) = Application.VLookup(Cells(I, 1), Sheets("進貨存庫明細表").Range("B3:K10000"), 6, 0)
- I = I + 1
- Loop
- Columns("H:I") = ""
- Range("A1").Select
- Application.ScreenUpdating = True
- End Sub
 製作文具1.zip (66.51 KB)
源自Hsieh超版大之製作文具.xls |
|
