PJChen

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-4-26 17:49 | 顯示全部帖子

[發問] 以A2儲存格為檔名,做成小計報表

有些步驟無法用錄製方式,請大大們幫忙!!
需要執行巨集的報表可能有數個,所以我希望將檔案名稱直接標示在A2.

巨集執行的步驟為:
1- a.xlsx已事先開啟,copy(新增) 報表.sheet後,將它變成沒有任何公式,存檔為:抽水機數據分析_值.xlsx,(為了上傳檔案不要太大,所以事先將a.xlsx變成只有值)
2- 關閉原a.xlsx並且不要存檔.
3- 刪除抽水機數據分析_值 A:C (運作次數(全) /1啟動 /2啟動 )
2- 以"連續日期 "執行分組小計",加總的欄位是"用電度數" and "使用時間(分)".
3- 刪除A欄:連續日期
4- 點選小計選項2 ActiveSheet.Outline.ShowLevels RowLevels:=2 '小計後選#2
5- 希望完成後的報表,我另放在"完成後的報表.sheet"中.
6. 報表.sheet的資料每次都不相同,當然有可能增加筆數,用錄製的無法因應每次不同筆數的作業.

抽水機數據分析報表.zip (30.09 KB)

樓主熱帖

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

2^#

發表於 2013-4-26 23:08 | 顯示全部帖子

回復 2# stillfish00

您好,

巨集雖可執行,但有以下不符,請再幫忙查看.
1. 原a.xlsx的報表.sheet為一個格式已設定好的報表,希望可以將原檔copy成新的,較方便作業.
2. 新的檔抽水機數據分析_值.xlsx,無法將公式變成值,我測試了下,還是有公式. 如: 抽水機數據分析_值.zip

抽水機數據分析_值.zip (9.21 KB)
3. 我想要完成後的檔案如: 完成後的報表.zip

完成後的報表.zip (9.9 KB)

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

3^#

發表於 2013-4-29 22:21 | 顯示全部帖子

回復 4# stillfish00

您好,

第2次的修改已經可以將另存的抽水機數據分析_值.xlsx檔案內容改為值,但它依無法完全像 "完成後的報表.zip" 同格式(包含框線),因為這部份無法用錄製的(因為報表資料會變化),如果有人知道怎麼寫後續的程式的話,是否可以幫幫忙?

我想讓小計完成後點選小計2 .Outline.ShowLevels RowLevels:=2, 將可見儲存格劃紅色粗框線(詳見: "完成後的報表.zip" )

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

4^#

發表於 2013-4-30 22:02 | 顯示全部帖子

回復 6# Hsieh

大大,

感謝你再次的幫忙.
出現了點小問題,因為每個報表要區分各種不同的抽水機,所有會有各式各樣的檔名,我想延用最初的概念,將檔名設在以下的A2儲存格中,
1) 請問在你寫的程式中,我要怎麼將以下的句子套進程式中?
With Workbooks(ThisWorkbook.Sheets("VBA").[A2].Value).Sheets("報表")
2) 我想將線改成最粗的線,是否改這句?應該怎麼改? For Each A In .Cells '畫框線

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

5^#

發表於 2013-5-1 00:12 | 顯示全部帖子

回復 8# Hsieh

大大,
1)  跑到這行就中止了,因為A2的儲存格可以用任意檔名,檔名不是"a.xlsx"時,它就無法繼續了,改成以下請問差別在哪兒?
Workbooks("a.xlsx").Close 0 '關閉a.xlsx....改為Workbooks(fs).Close 0 '關閉a.xlsx  >>ok
                                                                        ....改為Workbooks("fs").Close 0 '關閉a.xlsx  >>不行
2) 若小計&總計欄位,改為小數後2位四捨五入,請問要在哪行更改?加上什麼程式?

TOP

PJChen