12
返回列表 上一主題 發帖

加總問題

sky00264

帖子
10 
主題
2 
精華
0 
積分
22 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
10 
性別
女 
註冊時間
2012-3-14 
最後登錄
2013-8-21 
5# 跳轉到 »
發表於 2012-11-30 00:14 | 只看該作者
那我想在問一下大大~
s = [A65536].End(xlUp).Row ~是偵測A欄最後一列數字
假設我今天要偵測B欄共有幾列的話~
要怎麼寫呢?

TOP

sky00264

帖子
10 
主題
2 
精華
0 
積分
22 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
10 
性別
女 
註冊時間
2012-3-14 
最後登錄
2013-8-21 
4#
發表於 2012-11-29 23:56 | 只看該作者
感謝大大~晚點來試試看^^

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

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

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
12
返回列表 上一主題