Формула Excel с VBA

Question

Нужна формула для соответствия текста от одного столбца к тексту в другом листе и подсчета выделенных ячеек. Это похоже на выполнение sumif, но вместо того, чтобы возвращать числовое значение в статическом столбце, я верну счет подсвеченных ячеек.

Я успешно написал VBA для подсчета выделенных ячеек в данном столбце, но теперь должен выполнить совпадение имен. Значение, если имя в столбце А1: А50 соответствует имени в Sheet2 колонке J1: J52, а затем возвращают подсчет выделенных ячеек в колонке 2 листа X.

Формула для подсчета клеток подсвеченные: countbycolor('sheet2'!J4:J1847,A52)

VBA:

Function CountByColor(InputRange As Range, ColorRange As Range) As Long 
    Dim cl As Range, TmpCount As Long, ColorIndex As Integer 
    Application.Volatile 
    ColorIndex = ColorRange.Interior.ColorIndex 
    TmpCount = 0 
    On Error Resume Next 
    For Each cl In InputRange.Cells 
    If cl.Interior.ColorIndex = ColorIndex _ 
     Then TmpCount = TmpCount + 1 
    Next cl 
    CountByColor = TmpCount 
End Function 

Answer 1

Добавление параметра для диапазона критериев и реализации Application.Countif должно быть достаточным.

Function CountByColorAndName(InputRange As Range, NameRange As Range, ColorRange As Range) As Long 
    Dim cl As Range, TmpCount As Long, ColorIndex As Integer 
    Application.Volatile 
    ColorIndex = ColorRange.Interior.ColorIndex 
    TmpCount = 0 
    On Error Resume Next 
    For Each cl In InputRange.Cells 
     If cl.Interior.ColorIndex = ColorIndex and _ 
      cbool(application.countif(NameRange , cl.value)) then _ 
      TmpCount = TmpCount + 1 
    Next cl 
    CountByColor = TmpCount 
End Function 

Пример синтаксиса:

=CountByColorAndName('sheet2'!J4:J1847, A1:A50, A52) 

Существует небольшая путаница, как ваше описание ситуации относится как к Sheet2 Колонка J1: J52 и 'sheet2' J4: J1847. Если это не подходит, уточните пожалуйста.

MATCH function на самом деле более эффективен, чем COUNTIF function, как на рабочем столе, так и внутри VBA. Это должно уменьшить нагрузку на вычисления.

For Each cl In InputRange.Cells 
     If cl.Interior.ColorIndex = ColorIndex then _ 
      if not iserror(application.match(cl.value, NameRange , 0)) then _ 
      TmpCount = TmpCount + 1 
    Next cl