Не удалось получить свойство SumProduct класса WorksheetFunction - PullRequest
Новая
       52

Не удалось получить свойство SumProduct класса WorksheetFunction

0 голосов
/ 20 июня 2020

Это структура набора данных. Я хочу поместить результат операции «Суммарный результат» в желтые строки.

введите описание изображения здесь

У меня проблемы с кодом. Когда я запускаю его, я получаю сообщение «Невозможно получить свойство SumProduct класса WorksheetFunction». Я читал, что это происходит, когда вы используете Range как строку, но в моем случае я сначала создаю переменные. Не могли бы вы помочь мне разобраться в проблеме? 

Dim im1 As Long, startpoint As Long, lastPoint As Long
Dim a As Range, b As Range, c As Range, d As Range
Dim ws As Worksheet
Dim wsf As WorksheetFunction

startpoint = 6
lastPoint = Cells(Rows.Count, 7).End(xlUp).Row
Set ws = Sheets("tabfinal")
Set wsf = Application.WorksheetFunction

Do While (startpoint < lastPoint)

For i = startpoint To lastPoint
      If (Cells(i, 1).Value = "") Then
        Exit For
      End If
    Next

im1 = i - 1
    Set a = ws.Range("F" & startpoint & ":F" & im1)
    Set b = ws.Range("G" & startpoint & ":G" & im1)

Cells(i, 7).Value = wsf.SumProduct(a, b)
startpoint = i + 1
Loop
...