Application.Sum結果是錯誤的

Question

我想總結一個表的列來進一步計算宏，但是我得到的結果範圍（「eq_asis」）= 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方法的結果爲空。你想通過一個Range對象

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