countif выводя «true» или «false», а не число vba

Я пытался закодировать функцию countif в цикле, однако у меня возникают небольшие проблемы с выходами. Вместо того, чтобы читать число при вычислении, функция продолжает выводить «true» или «false». Возможно, в моем коде есть ошибка, но в прошлом я использовал множество функций countif, не испытывая такой проблемы. Как вы можете видеть ниже, я попытался написать функцию двумя разными способами, но оба они не работали или не выводили «истинные» или «ложные».countif выводя «true» или «false», а не число vba

Пожалуйста, помогите.

Sub CorrectSets() 

Dim Cell As Range 

Range("B100000").End(xlUp).Select 
LastRow = ActiveCell.Row 

For Each Cell In Range("S2:S" & LastRow) 
    StartTime = Cell.Offset(0, -12) 
    Shift = Cell.Offset(0, -14) 
    SortedOp = Cell.Offset(0, -17) 
    DOW = Cell.Offset(0, -5) 
    'Cell.Value = CountIF(E2:E & LastRow, Shift, N2:N & LastRow ,DOW, B2:B & LastRow,SortedOp, G2:G & LastRow, " < " & StartTime) 
    Cell.Value = "=CountIF(E2:E" & LastRow & ", " & Shift & ", N2:N" & LastRow & "," & DOW & ",  B2:B" & LastRow & "," & SortedOp & ", G2:G" & LastRow & ", " < " " & StartTime & ")" 
Next Cell

источник

2015-01-12 ksmit144

Вы уверены, что не хотите использовать функцию 'COUNTIFS', а не функцию' COUNTIF', учитывая количество аргументов, которые вы передаете? – Gareth

Да, очень немой. Позвольте мне посмотреть, поможет ли это. – ksmit144

@ Gareth К сожалению, все еще выводя «true» или «False» – ksmit144

Если вы хотите поставить СЧЕТЕЛА()Формулы в Cell затем:

Cell.Formula = "=CountIF(E2:E &...............

Если вы хотите поставить эту формулу результата в Cell затем:

Cell.Value = Application.Worksheetfunction.CountIF(E2:E &....................

источник

2015-01-12 16:05:36

Существует также «Application.Evaluate (« COUNTIFS (...) »), но я не рекомендую его, не указывая имена рабочих листов в адресах ячеек и ячеек. – Jeeped

@ Jeeped ... Я согласен с тобой ..... много работы, получая точную строку для * Evaluate() * –

@ Студент Гэри. Я попытался изменить формулу на 'Cell.Value = WorksheetFunction.CountIfs (E2: E "& LastRow &", "=" "& Shift &", N2: N "& LastRow &", "=" "& DOW &", B2: B "& LastRow &", "=" " & SortedOp & ", G2: G" & LastRow & "," <"" и StartTime & ")', но теперь он говорит, что ожидает скобок, где он не должен. – ksmit144

Вы должны использовать

Cell.Formula = "=CountIFs..."

или

Cell.Value = WorksheetFunction.CountIfs...

См official documentation.

Plus:

Чтобы найти последнюю строку, содержащую данные в колонке (B в данном случае) использовать
```
Dim ws as Worksheet 
Set ws = ActiveSheet 
Dim LastRow as Long 
LastRow = ws.Range("B" & ws.Rows.Count).End(xlUp).Row 
```
ws является ссылкой на рабочий лист интереса (ActiveSheet в моем пример). См. this answer.
Вы предпочитаете полностью квалифицировать свои диапазоны и избегать использования Select, если это строго необходимо. С кодом размещен выше,
```
Range("B100000").End(xlUp).Select 
```
не могут быть необходимы.
При использовании Cell.Formula = "=CountIFs...", это может быть удобно использовать
```
Dim frm as String 
frm = "=CountIFs..." 
Cell.Formula = frm 
```
для облегчения отладки.

источник

2015-01-12 16:10:17

countif выводя «true» или «false», а не число vba

ответ

Смежные вопросы