返回列表 上一主題 發帖

請問資料比對且運算到工作表三

enhrulee

帖子
10 
主題
4 
精華
0 
積分
20 
點名
0  
作業系統
windows xp 
軟體版本
vb2008 
閱讀權限
10 
註冊時間
2011-1-28 
最後登錄
2011-8-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-7-23 11:21 | 顯示全部帖子

請問資料比對且運算到工作表三

各位前輩好
爬文找了很多文章雖然有找到類似的問題
但是檔案也不能下載只好重複問一下類似的問題
工作表一
今天的交易品項與數量
工作表二是
今天商品的報價
工作表三是
營業額的記錄區

商品有很多種但是每天交易的商品種類不固定數量也不固定
例如商品總共有99種
第一天交易的商品是1,3,5,8,16,72,44,56
第二天交易的商品是9,61,77,51,34,26,89,54,59,68,
每天商品的報價也不同

希望在工作表三記錄下
所有商品每日的營業額
工作表欄位分別為
A1:產品名稱
B1:累計20日營業額
C1~V1:日期
每次新增一日的營業額都在C欄,而原紀錄在C欄~V欄則往右移
原本V欄最早的記錄則刪除
也就是說工作表三永遠只保留二十日的營業額記錄
交易紀錄.rar (24.91 KB)
收藏 分享

enhrulee

帖子
10 
主題
4 
精華
0 
積分
20 
點名
0  
作業系統
windows xp 
軟體版本
vb2008 
閱讀權限
10 
註冊時間
2011-1-28 
最後登錄
2011-8-2 
2#
發表於 2011-7-23 17:12 | 顯示全部帖子
回復  enhrulee
試試看
GBKEE 發表於 2011-7-23 14:42



    感謝版主的熱心幫忙
我有稍微修改了一小部分
If .Range("C1") <> Date Then    '不是當日
            .Columns("C:C").Insert
            .Columns("W:W") = ""
            .Range("C1") = Date
        End If

應該是執行順序的原因
原本版主寫的程式會刪除掉原第二天(U欄)的資料
小小的修正就OK了~
超級感謝的還有中文註解
真的很貼心
:$

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題