返回列表 上一主題 發帖

[發問] 自動加入母檔

adam2010

帖子
145 
主題
42 
精華
0 
積分
193 
點名
0  
作業系統
Windows7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
註冊時間
2010-11-25 
最後登錄
2026-6-10 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-7-6 17:40 | 顯示全部帖子

[發問] 自動加入母檔

本帖最後由 adam2010 於 2013-7-6 17:43 編輯

請教各位高手，我有一個檔案在做完交期彙總樞紐分析轉值後(如下圖)需要加入母檔，不知是否可寫成巨集
加入母檔個規則如下~
※只要料號有尾碼不等於X的就要在那個群組下方增加一列母檔(如下紅底的尾碼=X)
※母檔的可用庫存(籃底部分)=所有子檔的可用庫存+1300+在製量NEW
※母檔的VAR(灰底)公式跟子檔或其他料號相同=總計-可用庫存NEW(總計的欄位不是固定的，但是一定在最右邊)
※母檔每個日期(日期不是連續的，而且總欄數也不一定)數量=所有子檔的加總(水藍底色)

加入後如下~

增加母檔問題.rar (12.2 KB)
收藏 分享
Adam

adam2010

帖子
145 
主題
42 
精華
0 
積分
193 
點名
0  
作業系統
Windows7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
註冊時間
2010-11-25 
最後登錄
2026-6-10 

論壇贊助勳章
2#
發表於 2013-7-7 21:25 | 顯示全部帖子
感謝GBKEE大的回覆，完全符合需求
如果我想要將加入的母檔加上底色以示區別是不是加在第18行後面就可以了，謝謝！
Adam

TOP

adam2010

帖子
145 
主題
42 
精華
0 
積分
193 
點名
0  
作業系統
Windows7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
註冊時間
2010-11-25 
最後登錄
2026-6-10 

論壇贊助勳章
3#
發表於 2013-7-8 20:25 | 顯示全部帖子
感謝GBKEE大的回覆，這樣加的話所有子檔會有底色
我是在母檔加入後加上顏色，應該也OK吧!               
  With Rng(1)
    .Cells = M & "X"
                   .Cells.Select
                   With Selection.Interior
                       .Color = vbGreen
                   End With         
                  
                   .Cells(1, "B") = .Cells(1, "B").Offset(-1)
                   .Cells(1, "C") = .Cells(1, "C").Offset(-1)
                   '沿用子檔的吋別&摻值
                  
                   .Cells(1, "H").Resize(1, R - 8) = "=SUM(R[-1]C:R[-" & Rng(2).Rows.Count & "]C)"
                   ' R - 8 :  H欗到 A1往右到最後有數值的欄號 - 1欗
Adam

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題