標題: 如何用巨集在最後一欄顯示計算總和呢?? [打印本頁]

---

作者: willy1205    時間: 2014-7-10 12:23     標題: 如何用巨集在最後一欄顯示計算總和呢??

for example:

總共範圍為A1:H40

我想在第G41的地方顯示G1加到G40的總和，如果不用sum(G1:G40) ,而改用巨集來寫該如何寫呢??

---

作者: stillfish00    時間: 2014-7-10 23:45

回復 1# willy1205

1. [G41].Value = Application.WorksheetFunction.Sum([G1:G40])

複製代碼

---

作者: IQ2008    時間: 2014-7-11 13:47

Dim cell As Range
Set av1 = Range("G1:G40")
  sumi = 0
    For Each cell In av1
  sumi = sum+i  cell.Value
    Next cell
'sumi即為G1:G40的加總

---

作者: GBKEE    時間: 2014-7-11 14:54

回復 3# IQ2008
樓主 也可能是要如此的

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer
   
4.     With [A1: H40]
   
5.         For i = 1 To .Columns.Count
   
6.             .Cells(.Rows.Count + 1, i) = Application.Sum(.Columns(i))
   
7.         Next
   
8.     End With
   
9. End Sub

複製代碼

---

作者: IQ2008    時間: 2014-7-11 15:08

抱歉, 有一行有誤,更正sumi = sum+i  cell.Value 如下

Dim cell As Range
Set av1 = Range("G1:G40")
  sumi = 0
    For Each cell In av1
  sumi = sumi  +cell.Value
    Next cell
'sumi即為G1:G40的加總

---

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