Используя относительную ссылку (смещение) в функции СЧЕТЕСЛИ в Excel VBA

Question

У меня возникли проблемы с использованием относительной ссылки (смещение) в функции СЧЕТЕСЛИ в Excel VBA:

buildRef.Offset(i, 2) = WorksheetFunction.CountIfs _ 
      (range, ">=" & buildRef.Offset(i, 1)) 

Это всегда приводит к 0, но Я знаю, что это не правильный ответ. Однако

WorksheetFunction.CountIfs (range, buildRef.Offset(i, 1)) действительно дает правильный ответ.

Может ли кто-нибудь сказать мне, почему функция COUNTIFS не работает, если критерии «больше чем» относительная ссылка?

Answer 1

В коде нет ничего плохого. Вы получаете 0 из-за своего i. .Offset(i, 1) может не ссылаться на ячейку, на которую вы ссылаетесь. Я бы рекомендовал пройти через код, чтобы проверить значение i.

Вот пример, чтобы показать, что он работает. Я твердо кодировал значение i, чтобы продемонстрировать, как это работает.

Sub Sample() 
    Dim rng As Range, buildRef As Range 

    Set rng = [A1:A10] 
    Set buildRef = [D1] 

    buildRef.Offset(1, 2) = WorksheetFunction.CountIfs(rng, ">=" & buildRef.Offset(1, 1)) 
End Sub