標題:
請問如何計算總和(每筆資料範圍不一)
[打印本頁]
作者:
yanto913
時間:
2011-2-5 22:26
標題:
請問如何計算總和(每筆資料範圍不一)
如題檔案Sheet1與Sheet2總和的位置不一樣
有何語法可以判斷出資料範圍的列高與行高
使SUM函數可以在那個資料格做運算
作者:
jackdream
時間:
2011-2-6 13:49
有何語法可以判斷出資料範圍的列高與行高
使SUM函數可以在那個資料格做運算
yanto913 發表於 2011-2-5 22:26
'顯示目前頁面的使用列數
MsgBox ActiveSheet.Range("A1").CurrentRegion.Rows.Count
'顯示目前頁面的使用欄數
MsgBox ActiveSheet.Range("A1").CurrentRegion.Columns.Count
建議:
如果直接搜尋"總和",再往右移動一格作計算,也可以達到您的需求.
作者:
yanto913
時間:
2011-2-6 15:24
本帖最後由 yanto913 於 2011-2-6 16:16 編輯
謝謝你！很受用，這樣就可以知道資料範圍是多少進而作總和運算
不過剛剛試一下還是用不出來，可否以Sheet1為例作解答呢？
y = ActiveSheet.Range("A1").CurrentRegion.Rows.Count
卡在ActiveCell.cells(5,4) = "SUM(range(cells(2,4):cells(y,4)))"弄不出來
作者:
Hsieh
時間:
2011-2-7 00:30
回復
3#
yanto913
y = Range("A1").CurrentRegion.Columns.Count - 1
Cells(Rows.Count, 1).End(xlUp).Offset(1, y) = "=SUM(R2C:R[-1]C)"
作者:
GBKEE
時間:
2011-2-7 14:17
回復
1#
yanto913
Sub Ex()
Dim Sh As Worksheet
For Each Sh In Sheets(Array("SHEET1", "SHEET2"))
With Sh.Range("A1").CurrentRegion
.Cells(.Count).Offset(1, -1) = "總和"
.Cells(.Count).Offset(1) = Application.Sum(.Columns(.Columns.Count))
End With
Next
End Sub
複製代碼
作者:
b9208
時間:
2011-2-8 19:59
非常好用的程式碼
下載收集
謝謝
作者:
yanto913
時間:
2011-2-10 20:36
謝謝幫忙！讓我從原本什麼都不會的菜鳥變的看的懂一些入門的語法，再次感謝
作者:
himl18
時間:
2011-12-22 09:45
感謝解答正努力學習中~感謝!!
作者:
tzyun
時間:
2011-12-22 12:10
謝謝，很受用11111111111111111��
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
