时间戳

首页 > 解决方案 > 如何在 VBA 中对另一张表中的值求和？

excel - 如何在 VBA 中对另一张表中的值求和？

问题描述

Sub GrossSplit()

Dim i As Integer

Set governmentShare = Range("C9")
Set contractorShare = Range("G9")
Set grossRevenue = Range("E6")
Set DMO = Range("E12")
Set cost = Range("I12")
Set taxableIncome = Range("G14")
Set tax = Range("G17")
Set governmentTake = Range("C21")
Set contractortake = Range("G21")

For i = 0 To WorksheetFunction.Count(Worksheets("GS CALCULATION").Range("F6:F40"))

    If Range("J5").Value = i Then
        governmentShare.Value = Worksheets("GS CALCULATION").Cells(i + 6, "AA")
        contractorShare.Value = Worksheets("GS CALCULATION").Cells(i + 6, "Z")
        grossRevenue.Value = governmentShare + contractorShare
        DMO.Value = Worksheets("GS CALCULATION").Cells(i + 6, "AB") - Worksheets("GS CALCULATION").Cells(i + 6, "AC")
        cost.Value = Application.WorksheetFunction.Sum(Sheets("GS CALCULATION").Range(Cells(i + 6, "AD"), Cells(i + 6, "AF")))
        taxableIncome.Value = Worksheets("GS CALCULATION").Cells(i + 6, "AG")
        tax.Value = Worksheets("GS CALCULATION").Cells(i + 6, "AH")
        governmentTake.Value = Worksheets("GS CALCULATION").Cells(i + 6, "AL")
        contractortake.Value = Worksheets("GS CALCULATION").Cells(i + 6, "AI")
    Exit For
    End If
    
Next i

End Sub

在这里，我有一些以下代码尝试计算一些参数，然后存储在一个变量中。但是我在这里遇到了一些障碍，我无法应用这行代码：

cost.Value = Application.WorksheetFunction.Sum(Sheets("GS CALCULATION").Range(Cells(i + 6, "AD"), Cells(i + 6, "AF")))

我试图对另一张表中的值求和，但使用这行代码不起作用。任何人都可以帮助如何克服这个问题？谢谢你。

标签： excelvba

解决方案

推荐阅读