返回列表 上一主題 發帖

加總問題

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
1# 跳轉到 »
發表於 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
複製代碼
指定巨集  搞定

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
2#
發表於 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
複製代碼
指定巨集
按下按鈕 搞定!

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

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

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題