問問蓮蓬頭

【說明】

如何使用程式碼來進行區間數字加總，該如何撰寫程式碼呢?以下分享

【程式碼】

1.寫入程序後，觸發程式碼，就可對A1至J1的區間進行數字加總

2.輸入以下程式碼

Public Sub 區間加總()

  AREASUM = Application.WorksheetFunction.Sum(Range("A1:J1"))

  MsgBox "A1至J1區間加總共" & AREASUM

End Sub

【程序碼解說】

Public Sub 區間加總()

AREASUM = Application.WorksheetFunction.Sum(Range("A1:J1"))

變數AREASUM 等於Application 物件的 WorksheetFunction 屬性的SUM函數，將A1至J1的區間數字加總

MsgBox "A1至J1區間加總共" & AREASUM, , "提示視窗"

跳出訊息視窗，顯示A1至J1區間加總共是多少，兩個逗號後為設定視窗表頭

End Sub

【特別說明】

若想透過For迴圈，讓程式碼更加的靈活，可將程式碼修改如下

AREASUM = Application.WorksheetFunction.Sum(Range(Cells(Y, X), Cells(Y, X)))