帖子: 10
主題: 2
精華: 0
積分: 22
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 10
性別: 女
註冊時間: 2012-3-14
最後登錄: 2013-8-21

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-11-26 23:56 | 只看該作者

加總問題

各位大大~

不好意思我想請問一下

如下圖~有多個sheet

每個sheet的資料量不同

但格式都一樣

我想在每個sheet的金額欄加總

因為sheet很多~要花一些時間~

不知道有沒有巨集是可以按一下就加總完外加把格式弄好(上底線+下雙底線)?

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兔年全勤獎章

14^#

發表於 2012-12-4 16:37 | 只看該作者

回復 13# sky00264
因為每頁的資料量不同... 所以要加總的欄位也不同...
這樣是沒人了解的

TOP

sky00264

小學生 Rank: 1

帖子: 10
主題: 2
精華: 0
積分: 22
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 10
性別: 女
註冊時間: 2012-3-14
最後登錄: 2013-8-21

13^#

發表於 2012-12-4 11:48 | 只看該作者

回復 12# 自我感覺良好

因為每頁的資料量不同...
所以要加總的欄位也不同...
就沒有辦法用大大的辦法....

TOP

自我感覺良好

中學生 Rank: 2

帖子: 116
主題: 41
精華: 0
積分: 162
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2024-2-9

12^#

發表於 2012-12-2 07:01 | 只看該作者

每個sheet的資料量不同
但格式都一樣
我想在每個sheet的金額欄加總

我都是先按住Ctrl+Sheet1+Sheet2+Sheet3+Sheet4+Sheet5.......
然後在預定的儲存格輸入總加的公式........

50 字節以內
不支持自定義 Discuz! 代碼

TOP

sky00264

小學生 Rank: 1

帖子: 10
主題: 2
精華: 0
積分: 22
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 10
性別: 女
註冊時間: 2012-3-14
最後登錄: 2013-8-21

11^#

發表於 2012-12-2 03:24 | 只看該作者

回復 9# die78325

感謝D大詳細的說明^^
我了解了~

TOP

sky00264

小學生 Rank: 1

帖子: 10
主題: 2
精華: 0
積分: 22
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 10
性別: 女
註冊時間: 2012-3-14
最後登錄: 2013-8-21

10^#

發表於 2012-12-2 03:24 | 只看該作者

回復 8# kimbal

K大~
我複製了您寫的巨集後~
按了都沒反應@@~
不知道是不是我這邊哪個環節出了問題>"<

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

9^#

發表於 2012-12-1 00:13 | 只看該作者

回復 5# sky00264

s = [A65536].End(xlUp).Row    從A65536往上找先碰到的位置
紅色部分要B欄就改為B65536
如果B欄都有數值  中間都沒有空格的劃  也可以使用  s =  [B1].End(xldown).Row       意思是從B1往下找
s都可以自行變化可以定義為你比較能辨識的代號

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

8^#

發表於 2012-12-1 00:11 | 只看該作者

本帖最後由 kimbal 於 2012-12-1 09:00 編輯

回復 7# sky00264
借DIE兄的來改一下

Sub 加總()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets '從第一個做到最後一個工作頁
With ws.[A65536].End(xlUp).Offset(1, 3)
'3是第3行開始加總的意思
'[A65536].End(xlUp).Row 偵測A欄最後一列數字, B欄的話是 [B65536]....
.Formula = "=Sum(" & Range(Cells(3, 4), Cells(ws.[A65536].End(xlUp).Row, 4)).Address & ")"
'上底線加下雙底線
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlDouble
End With
Next

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

sky00264

小學生 Rank: 1

帖子: 10
主題: 2
精華: 0
積分: 22
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 10
性別: 女
註冊時間: 2012-3-14
最後登錄: 2013-8-21

7^#

發表於 2012-11-30 18:34 | 只看該作者

回復 3# die78325

我想要在問一下~
大大幫我寫的巨集在結果上會直接顯示加總數字
但如果我今天要讓加總欄顯示sum的公式的話這樣做得到嗎?

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2012-11-30 08:20 | 只看該作者

本帖最後由 Hsieh 於 2012-11-30 08:30 編輯

回復 1# sky00264

使用立體參照公式即可計算

學海無涯_不恥下問

TOP

加總問題

加總問題

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]