Board logo

標題: 加總問題 [打印本頁]
作者: sky00264    時間: 2012-11-26 23:56     標題: 加總問題

各位大大~

不好意思我想請問一下

如下圖~有多個sheet

每個sheet的資料量不同

但格式都一樣

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

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

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

[attach]13293[/attach][attach]13294[/attach]
作者: die78325    時間: 2012-11-27 10:00

設一個按鈕
  1. Sub 加總()

  3. Dim sh As String '宣告為字串型態
  4. sh = ActiveWorkbook.Sheets.Count '偵測活頁部內的工作表數量
  5. For i = 1 To sh '從第一個做到最後一個工作頁
  6. Sheets(i).Select
  7.     s = [A65536].End(xlUp).Row '偵測A欄最後一列數字
  8.     '加總
  9.     Cells(s + 1, 4).Value = Application.WorksheetFunction.Sum(Range(Cells(1, 4), Cells(s, 4)))
  10.     Cells(s + 1, 4).Select
  11.         '上底線加下雙底線
  12.     Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
  13.     Selection.Borders(xlEdgeBottom).LineStyle = xlDouble
  14.      
  15. Next i
  16. End Sub
複製代碼
指定巨集  搞定
作者: die78325    時間: 2012-11-27 10:03

回復 1# sky00264

設一個按鈕
  1. Sub 加總()

  3. Dim sh As String '宣告為字串型態
  4. sh = ActiveWorkbook.Sheets.Count '偵測活頁部內的工作表數量
  5. For i = 1 To sh '從第一個做到最後一個工作頁
  6. Sheets(i).Select
  7.     s = [A65536].End(xlUp).Row '偵測A欄最後一列數字
  8.     '加總
  9.     Cells(s + 1, 4).Value = Application.WorksheetFunction.Sum(Range(Cells(1, 4), Cells(s, 4)))
  10.     Cells(s + 1, 4).Select
  11.         '上底線加下雙底線
  12.     Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
  13.     Selection.Borders(xlEdgeBottom).LineStyle = xlDouble
  14.      
  15. Next i
  16. End Sub
複製代碼
指定巨集
按下按鈕 搞定!
作者: sky00264    時間: 2012-11-29 23:56

感謝大大~晚點來試試看^^
作者: sky00264    時間: 2012-11-30 00:14

那我想在問一下大大~
s = [A65536].End(xlUp).Row ~是偵測A欄最後一列數字
假設我今天要偵測B欄共有幾列的話~
要怎麼寫呢?
作者: Hsieh    時間: 2012-11-30 08:20

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

回復 1# sky00264


   使用立體參照公式即可計算
[attach]13340[/attach]
作者: sky00264    時間: 2012-11-30 18:34

回復 3# die78325

我想要在問一下~
大大幫我寫的巨集在結果上會直接顯示加總數字
但如果我今天要讓加總欄顯示sum的公式的話這樣做得到嗎?
作者: kimbal    時間: 2012-12-1 00:11

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

回復 7# sky00264
借DIE兄的來改一下
  1. Sub 加總()

  3. Dim ws As Worksheet
  4.     For Each ws In ThisWorkbook.Sheets '從第一個做到最後一個工作頁
  5.         With ws.[A65536].End(xlUp).Offset(1, 3)
  6.             '3是第3行開始加總的意思
  7.             '[A65536].End(xlUp).Row 偵測A欄最後一列數字, B欄的話是 [B65536]....
  8.            .Formula = "=Sum(" & Range(Cells(3, 4), Cells(ws.[A65536].End(xlUp).Row, 4)).Address & ")"
  9.             '上底線加下雙底線
  10.             .Borders(xlEdgeTop).LineStyle = xlContinuous
  11.             .Borders(xlEdgeBottom).LineStyle = xlDouble
  12.         End With
  13.     Next
複製代碼
作者: die78325    時間: 2012-12-1 00:13

回復 5# sky00264


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

回復 8# kimbal


K大~
我複製了您寫的巨集後~
按了都沒反應@@~
不知道是不是我這邊哪個環節出了問題>"<
作者: sky00264    時間: 2012-12-2 03:24

回復 9# die78325

感謝D大詳細的說明^^
我了解了~
作者: 自我感覺良好    時間: 2012-12-2 07:01

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

我都是先按住Ctrl+Sheet1+Sheet2+Sheet3+Sheet4+Sheet5.......
然後在預定的儲存格輸入總加的公式........
作者: sky00264    時間: 2012-12-4 11:48

回復 12# 自我感覺良好

因為每頁的資料量不同...
所以要加總的欄位也不同...
就沒有辦法用大大的辦法....
作者: GBKEE    時間: 2012-12-4 16:37

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)