返回列表 上一主題 發帖

每日進貨與歷史庫存資料

zero1019

帖子
14 
主題
6 
精華
0 
積分
64 
點名
0  
作業系統
Windows 
軟體版本
office 2007 
閱讀權限
20 
性別
女 
註冊時間
2012-11-3 
最後登錄
2017-5-30 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-9-19 00:27 | 只看該作者

每日進貨與歷史庫存資料

我的檔案有兩張sheet   「進貨」、「歷史進貨」
每天「進貨」sheet都會不一樣，而「歷史進貨」就是把每天「進貨」保留下來

-------------------------------------------------------------------------------------
DAY1  「進貨」 有 A1、A3、B1、B2  四種商品
則「歷史進貨」就會有A1、A3、B1、B2  四種商品

到了第二天
DAY2 「進貨」進了 A1、A3、B1、C1、C2 五種商品
則「歷史進貨」就會 A1、A3、B1、B2、C1、C2  六種商品

到了第三天  
DAY2 「進貨」進了 A3、B1、C1、C2、C3
則「歷史進貨」就會 A1、A3、B1、B2、C1、C2 、C3 七種商品

也就是過去曾經進貨的資料  我要留下來  新增的進貨商品  直接加在下面  
我本來想再「歷史進貨」寫公式  但不管怎麼寫 歷史資料總是無法保留  >"<
想請問各位有沒有好方法??  感謝大家~

DAY.rar (18.54 KB)
收藏 分享

zero1019

帖子
14 
主題
6 
精華
0 
積分
64 
點名
0  
作業系統
Windows 
軟體版本
office 2007 
閱讀權限
20 
性別
女 
註冊時間
2012-11-3 
最後登錄
2017-5-30 
3#
發表於 2014-9-24 11:52 | 只看該作者
回復 2# luhpro


    好厲害~~~感謝感謝~~我來研究一下  ^^

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
15  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-12 
2#
發表於 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

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題