Question

我想总结一个表的列以进一步计算宏，但是我得到的结果是Range（＆＃34; eq_asis＆＃34;）= 1.00，它应该给我0.00的结果

我做错了什么？

Sub cambios_combobox()
Dim librito As Worksheet
Dim celda As Range

Set librito = ActiveWorkbook.Sheets("Tabla Paquetes")
Set celda = Range("A40")
'Range("Table1[[#All],[Column1]]").Select
    Select Case ComboBox1.Text
        Case "Deco"
            Range("eq_asis").Value = Application.Sum(librito.Range("Tabla2[Asistente fotografía]").Select)
        Case "Moda"
            celda.Value = 122
        Case "SODIMAC"
            celda.Value = 121
        Case "Multimarca"
            celda.Value = 120
        Case "Belcorp"
            celda.Value = 119
    End Select
End Sub

尝试使用DSum无效（未定义子错误）

Answer 1

当你因某种原因没有将任何内容传递给sum函数时会发生这种情况。您传入的Select方法的结果为null。您想传入Range对象

Range("eq_asis").Value = Application.Sum(librito.Range("Tabla2[Asistente fotografía]"))

Application.Sum结果是错误的

1 个答案: