vba

Question

我无法处理以下问题。我在模块中有某些代码。当我在 sheet2 中时，这段代码运行良好。当跳到 sheet1 和运行宏时 returns me 0。如果你能指出我犯的错误，我将不胜感激。

Public Sub Test()

Dim ws As Worksheet
Dim cost As Double

Set ws = Sheets("Sheet1")

cost = Worksheets("Sheet2").Application.Sum(Range("A2:A10"))
MsgBox cost
ws.Range("C2") = cost

End Sub

Answer 1

因为您忘记将 sheet2 的名称放在范围 (a2:a10) 的前面。并且无需在 Applicaiton 之前指定 sheet 名称。应该是这样的

cost = Application.Sum(Worksheets("Sheet2").Range("A2:A10"))

vba - 将另一个工作表中的单元格值分配给变量

vba - assign value of cell from another worksheet to a variable

variables

worksheet