自動複製多活頁公式並貼上值(文長慎入) - Excel程式區

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

11^# 跳轉到 »

發表於 2016-8-19 22:22 | 只看該作者

回復 10# msmplay

利用VBA填入[錄製]取得的公式, 再貼成值, 工作表除小計總計欄位外, 不留任何公式:

Xl0000085_V2.rar (157.6 KB)

看一下檔案, A1:A3有變動, 便利于公式在不同且相同需求的工作表的通用性!
另[週小計]欄的[比例]公式, 可套用[總計]欄的公式, 方法:複製→選擇性貼上→公式

TOP

msmplay

中學生 Rank: 2

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

12^#

發表於 2016-8-19 22:33 | 只看該作者

回復 8# zyzzyva

z大!!真的測試成功了耶~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~太厲害了你!!!!!

以後也麻煩多多關照了!!

*宅女一枚無誤*

TOP

msmplay

中學生 Rank: 2

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

13^#

發表於 2016-8-20 00:27 | 只看該作者

回復 11# 准提部林

准大好貼心~~~~~

*宅女一枚無誤*

TOP

msmplay

中學生 Rank: 2

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

14^#

發表於 2016-10-1 00:55 | 只看該作者

回復 8# zyzzyva

z大~~~可以請教一下之前您幫忙做的巨集，我套用到公司的報表會發生錯誤訊息，可以再跟您請問一下該如何修改跟原因是什麼呢？非常感謝~~~

測試檔.rar (769.8 KB)

*宅女一枚無誤*

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

15^#

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

本帖最後由 GBKEE 於 2016-10-1 06:12 編輯

回復 14# msmplay

程式碼要先消化瞭解,就能嘗試化解錯誤

Row = Application.Match(CLng(CDate(Date)), ActiveWorkbook.Worksheets(I).Range("A1:A300"), 0)

複製代碼

Row是 VBA的Row 屬性 關鍵字,盡量不要做為變數的名稱

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

zyzzyva