返回列表 上一主題 發帖

每日進貨與歷史庫存資料

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2014-9-20 03:49 | 顯示全部帖子
我的檔案有兩張sheet   「進貨」、「歷史進貨」
每天「進貨」sheet都會不一樣，而「歷史進貨」就是把每天「 ...
zero1019 發表於 2014-9-19 00:27
  1. Private Sub cbTran_Click()
  2.   Dim lSRow&, lTRow&
  3.   Dim vD
  4.   Dim wsSou As Worksheet
  5.   
  6.   Set vD = CreateObject("Scripting.Dictionary")
  7.   lSRow = 2
  8.   Set wsSou = Sheets("歷史進貨")
  9.   With wsSou
  10.     Do While .Cells(lSRow, 1) <> ""
  11.       With .Cells(lSRow, 1)
  12.         vD(.Value) = .Offset(, 2)
  13.       End With
  14.       lSRow = lSRow + 1
  15.     Loop
  16.   End With
  17.   
  18.   lTRow = 2
  19.   With Sheets("進貨")
  20.     Do While .Cells(lTRow, 1) <> ""
  21.       With .Cells(lTRow, 1)
  22.         If Not vD.Exists(.Value) Then
  23.           vD(.Value) = .Offset(, 1)
  24.           wsSou.Cells(lSRow, 1) = .Value
  25.           wsSou.Cells(lSRow, 2) = .Offset(, 1)
  26.           lSRow = lSRow + 1
  27.         End If
  28.         .Resize(1, 2).Delete xlShiftUp
  29.       End With
  30.     Loop
  31.     MsgBox "歷史進貨資料已更新完畢..."
  32.     .Cells(2, 1).Select
  33.   End With
  34. End Sub
複製代碼
每日進貨與歷史庫存資料-a.zip (17.61 KB)

TOP

        靜思自在 : 知識要用心體會，才能變成自己的智慧。
返回列表 上一主題