从其他文件复制的 SUMPRODUCT 读取日期

如何解决从其他文件复制的 SUMPRODUCT 读取日期

晚上好 我不是开发人员，但我喜欢解决一些问题 我需要计算每个月的平均值 我创建了一个文件 excel，其中我从第 10 行列中放置日期，在第 11 列中放置值。 代码是：

Sub Monthly Value()
'declare variables
Dim ws As Worksheet
Set ws = Worksheets("Values")
Dim i As Integer
Dim l As Single
Dim Sumrapp(1 To 12) As Double


For i = 1 To 12
        counter = 0
        
        l = ActiveSheet.Evaluate(" SUMPRODUCT((MONTH(I10:EZ10)= " & i & ")*I11:EZ11)")
       
        If l > 0 Then
         ws.Cells(26,i).Value = l
         
            For x = 9 To 155
            If Month(ws.Cells(10,x)) = i Then
            counter = counter + 1
            End If
        Next x
        ws.Cells(27,i).Value = counter
      
        ws.Cells(28,i).Value = l / counter
        Sumrapp(i) = l / counter
        Else
    End If
Next i

ws.Cells(29,1).Value = Application.WorksheetFunction.Sum(Sumrapp)
End Sub

在带有代码的文件中日期的格式为dd/mm/yyyy，原始文件中是通用的。但即使我只复制和粘贴函数 SUMPRODUCT((MONTH(I10:EZ10).. 将读取为格式 mm/dd/yyyy 的日期，所以我得到的错误不可能除以零或错误格式数据。 在启动之前，我尝试将范围编号格式设置为“dd/mm/yyyy”，但没有成功。 关于错误的任何想法？ Ps：我是新手，可能代码中的错误比较多