Указатель вложенности VBA внутри оператора If

Question

Используя VBA, у меня есть формула countifs, которая возвращает число в зависимости от значения ячейки F3.F3 - проверка данных.Я могу выбрать отдельные случаи с моей формулой, но у меня возникают проблемы при выборе значений «все».Исследуя, я придумал "*" как свою ценность, чтобы вытянуть все (подстановочный знак).Условное форматирование не позволяет мне маскировать имя как что-то еще, потому что оно является звездой.Любые идеи о том, как отобразить имя как-то еще, или изменить мою формулу, чтобы вытянуть все имена в столбце AF?Большое спасибо!Мэтт.

Sheets("Macro").Range("M54") = _
    Application.WorksheetFunction.CountIfs(.Range("E5:E" & finRow), _
         "=Addition", .Range("N5:N" & finRow), _
         "=" & Sheets("Macro").Range("$D$3").Value, .Range("AF5:AF" & finRow), _
         "=" & Sheets("Macro").Range("$F$3").Value)

Answer 1

Если я правильно понимаю вашу проблему (то есть, что ваш список проверки данных в ячейке F3 в настоящее время правильно работает с вашим кодом VBA, но вы ищете способ отобразить звездочку в виде другого слова, такого как «Все»), тогда я бы предложил изменить список проверки ваших данных с отображения звездочки на отображение «ВСЕ» и редактирования вашего VBA, чтобы учесть это изменение.Например:

If Sheets("Macro").Range("F3").Value = "ALL" Then

Sheets("Macro").Range("M54") = _
    Application.WorksheetFunction.CountIfs(.Range("E5:E" & finRow), _
         "=Addition", .Range("N5:N" & finRow), _
         "=" & Sheets("Macro").Range("$D$3").Value, .Range("AF5:AF" & finRow), _
         "=*")
Else

Sheets("Macro").Range("M54") = _
    Application.WorksheetFunction.CountIfs(.Range("E5:E" & finRow), _
         "=Addition", .Range("N5:N" & finRow), _
         "=" & Sheets("Macro").Range("$D$3").Value, .Range("AF5:AF" & finRow), _
         "=" & Sheets("Macro").Range("$F$3").Value)
End If