Autosum Cells VBA Excel

Question

我试图使用VBA在Excel中的单元格区域内自动清除值.调试以下代码时,我一直收到类型不匹配错误.我哪里做错了？

Sub autosumtest()
    Dim total As Integer
    Worksheets("Sheet1Test").Select
    Range("F16:G20").Select
    total = CInt("=SUM(Selection.Values)")
    MsgBox (total)
End Sub

EDIT 1: 以下是我的测试数据的简单示例,名为Autosum Range:

Answer 1

您可以使用[]评估任何电子表格表达式.

Sub autosumtest()
   Dim total As Integer
   total = CInt([=sum(sheet1Test!F16:G20)])
   MsgBox (total)
End Sub