msmplay

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-8-17 23:16 | 只看該作者

[發問] 自動複製多活頁公式並貼上值(文長慎入)

本帖最後由 msmplay 於 2016-8-17 23:18 編輯

以下條件不知是否可依巨集按鈕達成，可能要麻煩大師們幫忙看看了~~~~~~~提醒文長慎入喔!!!

說明：
1. 檔案裡共有27個活頁，其中21個活頁(反黃)需使用到巨集，其他活頁無需理會。
2. 每日會以人工貼上資料至「系統導出」活頁A:Y欄，再從21個活頁以公式自動統計「系統導出」活頁相關數據。
3. 21個活頁自動統計出數據後，需以人工方式，先將當日公式複製到隔日，再將當日公式貼上值。
4. 前14個顧客數量活頁，每日為由上至下排序；後7個顧客問題活頁，每日為由左至右排序。

舉例1「A顧客數量(商品)」：
今天是8/15，「系統導出」貼上資料後，C20:BI20公式會統計出數據，需先人工複製C20:BI20公式至C21:BI21，再將C20:BI20公式貼上為值。
原因是：如果當日只貼上值未複製公式至隔日，隔天要統計數據時就無統計公式。而如果C:BI欄每日均先寫好公式，檔案內共21個活頁，每個活頁均有35列公式的話，打開或編輯此檔案就會變超慢。

舉例2「顧客問題(商品)」：
今天是8/15，「系統導出」貼上資料後，AK4:AK177公式會統計出數據，需先人工複製AK4:AK177公式至AM4:AM77，再將AK4:AK177公式貼上為值。
特別說明：顧客問題7個活頁的列數，每個活頁均不相同，例如「顧客問題(電腦)」只有AK4:AK6，所以無法像顧客數量14個活頁都一樣欄列，只要全選活頁再一起複製公式跟貼上值就好。

希望達成條件：
每日「系統導出」貼上資料後，只要按下「系統導出」右上方【貼上值】按鈕，即可達成多活頁自動複製公式並貼上值條件。
且需自動判斷當日日期，才能自動複製當日欄列公式至隔日欄列，再將當日公式貼上為值。

以上~~~~~~~~~~因為真的很複雜，也非常需要人工重複作業，才會打這麼落落長，希望大家能體諒!!!!

最後希望~~~~~~~有人能幫幫小妹嗎!?

測試檔.rar (620.86 KB)

樓主熱帖

*宅女一枚無誤*

msmplay

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

20^#

發表於 2016-10-1 12:38 | 只看該作者

回復 18# zyzzyva

z大~~~~謝謝您又再解救了小妹一次呢!!

*宅女一枚無誤*

TOP

msmplay

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

19^#

發表於 2016-10-1 12:37 | 只看該作者

回復 15# GBKEE

G大~~~原來如此丫!!真是感激不盡唷~~~~

*宅女一枚無誤*

TOP

zyzzyva

中學生 Rank: 2

帖子: 109
主題: 1
精華: 0
積分: 116
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2016-8-4
最後登錄: 2018-10-22

論壇榮譽勳章論壇贊助勳章

18^#

發表於 2016-10-1 06:53 | 只看該作者

回復 14# msmplay
如果有用到的工作表命名上固定都會是IB、OB，那可以改成 If aA = 73 Or aA = 79 Then (只跑開頭 = "I" 跟 = "O"的)

TOP

zyzzyva

中學生 Rank: 2

帖子: 109
主題: 1
精華: 0
積分: 116
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2016-8-4
最後登錄: 2018-10-22

論壇榮譽勳章論壇贊助勳章

17^#

發表於 2016-10-1 06:38 | 只看該作者

回復 15# GBKEE
對耶，寫的時候沒注意，感謝版大的提醒。

TOP

zyzzyva

中學生 Rank: 2

帖子: 109
主題: 1
精華: 0
積分: 116
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2016-8-4
最後登錄: 2018-10-22

論壇榮譽勳章論壇贊助勳章

16^#

發表於 2016-10-1 06:37 | 只看該作者

本帖最後由 zyzzyva 於 2016-10-1 06:40 編輯

回復 14# msmplay
應該是'E化系統'的問題，因為sheet名稱也是英文開頭。
最簡單是改個名字，不然就是在跑迴圈的時候加限制。
例如For I = 1 To WS_Count，改成For I = 1 To 25 (只跑到顧客問題(通訊類產品))，不過如果之後有新增或更動順序要再檢查。
或是If (aA >= 65 And aA <= 90) Or (aA >= 97 And aA <= 122) Then這句加個條件讓工作表名稱的開頭不能= "E"。

TOP

GBKEE