请教求和问题

neilwf

我的一个表格里面有Sheet1至Sheet21.
Sheet21中的A1单元格=Sheet1-20中所有的A1之和，且我在Sheet1-20中插入其他的工作簿时Sheet21中A1单元格的求和包括新增加进来的表格的A1数值
{:soso_e183:}{:soso_e183:}{:soso_e183:}

gongzl1981

excel2007的,自定義函數

1. Public Function SumAllSheet(RngAddress As String) As Variant
   
2.         Dim ws As Worksheet
   
3.         Dim TotalSum As Variant
   
4.         Application.Volatile True
   
5.         TotalSum = 0
   
6.         On Error GoTo Error_Function
   
7.         For Each ws In ThisWorkbook.Worksheets
   
8.                 If Not ws Is Application.Caller.Parent Then
   
9.                         TotalSum = TotalSum + Val(ws.Range(RngAddress))
   
10.                 End If
    
11.         Next
    
12.         SumAllSheet = TotalSum
    
13.         Exit Function
    
14. Error_Function:
    
15.         SumAllSheet = CVErr(2015)
    
16. End Function
    

复制代码

在sheet1!a1中輸入=sumallsheet("A1") 表示將所有表的A1加起來(不包括sheet1中的a1本身)

neilwf

{:soso_e183:}{:soso_e181:}