使用命名范围的VBA中的SUM函数仅显示错误

Question

我定义了两个命名范围；一个（myplace）表示将结果写入的位置，一个（myrange）表示需要求和的范围。 编译器返回错误

尝试了求和的公式方法，但这将返回“ #NAAM”错误

这是我使用的简单代码：

Sub optelsom()

myplace = Range("plaats") 
myrange = Range("deelsom")

Range(myplace).Value = Application.WorksheetFunction.Sum(myrange)

End Sub

Answer 1

（1）养成声明变量的习惯（按照PEH的建议，使用Option Explicit：在VBA编辑器中，转到“工具›选项›要求变量声明”）

（2）分配对象变量（例如范围）时需要设置

（3）myplace已经是范围，因此不需要“包装器”

Sub optelsom()

Dim myplace as range, myrange as range

Set myplace = Range("plaats") 
Set myrange = Range("deelsom")

myplace.Value = Application.WorksheetFunction.Sum(myrange)

End Sub