Если речь не о суммировать а о считать , то:

[A2] : =СЧЁТЕСЛИ($B2:$I2;"i")

KL
[MVP - Microsoft Excel]

А ты что, делаешь это в VBA?

KL
[MVP - Microsoft Excel]

Некоторые варианты использования формулы из VBA:

вставить формулу
[A1]="=CountIf($A$1:$A$3,""i"")"
[A1].Value="=CountIf($A$1:$A$3,""i"")"
[A1].Formula="=CountIf($A$1:$A$3,""i"")"
[A1].FormulaR1C1="=COUNTIF(R1C1:R3C1,""i"")"

вставить константу
[A1]=Evaluate("=CountIf(A1:A3,""i"")")
[A1]=[CountIf(A1:A3,"i")]
[A1]=Application.Countif([A1:A3],"i")
[A1]=WorksheetFunction.Countif([A1:A3],"i")
[A1]=Application.WorksheetFunction.Countif([A1:A3],"i")

объект Range можно также прописывать традиционным способом :

вставить формулу
Range("A1")="=CountIf($A$1:$A$3,""i"")"
Range("A1").Value="=CountIf($A$1:$A$3,""i"")"
Range("A1").Formula="=CountIf($A$1:$A$3,""i"")"
Range("A1").FormulaR1C1="=COUNTIF(R1C1:R3C1,""i"")"

вставить константу
Range("A1")=Evaluate("=CountIf(A1:A3,""i"")")
Range("A1")=[CountIf(A1:A3,"i")]
Range("A1")=Application.Countif(Range("A1:A3"),"i")
Range("A1")=WorksheetFunction.Countif(Range("A1:A3"),"i")
Range("A1")=Application.WorksheetFunction.Countif(Range("A1:A3"),"i")

и т.д.

KL
[MVP - Microsoft Excel]

Поправка: при использовании функции Evaluate не должен использоваться знак равенства в начале формулы .

[A1]=Evaluate( "CountIf(A1:A3,""i"")" )
Range("A1")=Evaluate( "CountIf(A1:A3,""i"")" )

KL
[MVP - Microsoft Excel]

Excel_novichokв Excel, пишу эту формулу в ячейку, где результат должен появиться, как обычно...

Отсюда серия вопросов:

1) ты уверен(а) в том, что у тебя в системе разделитель списков - запятая (,)? Может попробовать точку с запятой (;)?

2) ты уверен(а) в том, что у тебя англ. версия Office? Может попробовать вводить по-русски?

3) точное описание ошибки? Кто, где и как "пишет, что неверный формат"? Точный текст или значение ошибки?


KL
[MVP - Microsoft Excel]

k-nike KL (XL)СЧЁТЕСЛИ($B2:$I2;"i")
А у меня эта формула ноль всегда выдает.((

На это не знаю как реагировать, т.к. не понимаю смысла комментария.

k-nike[В таких случаях обычно говорят "вы уверены".))

На Вы обращаюсь только :
- к очевидно пожилым людям
- к начальству (такового давно не имею, если не считать госчиновников - но с ниме по собственной инициативе не обращаюсь)
- к обслуживающему персоналу
- к тем, от кого мне что-то нужно
- к тем, с кем хочу четко обозначить дистанцию (особенно в конфликтных ситуациях)
- к тем, кто специально просит обращаться на Вы, и я не вижу причины отказать (предпочитаю извиниться, чем просить разрешения)

в остальных случаях обращаюсь на ты, и это личное дело каждого принимать меня какой я есть или не общаться.

И да, обычно ни кому морали не читаю и на нравоучения реагирую агрессивно или никак, но в этот раз делаю исключение (так как пребываю в хорошем расположении духа)


KL
[MVP - Microsoft Excel]

Excel_novichokнемецкая версия у меня! Поэтому!! Не знаете где можно эквиваленты формул найти - как узнать как эти формулы на немецком пишутся?

=ZÄHLENWENN($B2:$I2;"i")

На будущее скачай и установи надстройку TranslateIt (автор: Jurgen Volkerink):

http://members.chello.nl/jvolk/keepitcool/download.html

KL
[MVP - Microsoft Excel]

:-)

KL
[MVP - Microsoft Excel]

KL (XL) k-nike KL (XL)СЧЁТЕСЛИ($B2:$I2;"i")
А у меня эта формула ноль всегда выдает.((

На это не знаю как реагировать, т.к. не понимаю смысла комментария.

Только сейчас (надеюсь) понял смысл комментария. Дело в том, что наши решения основаны на различных интерпретациях того, с какими данными работает автор.

=СУММЕСЛИ($B$1:$I$1;"i";$B2:$I2) исходит из того, что в строке 1 содержатся заголовки (и среди них значение "i"), а ниже числовые значения, которые и надо суммировать

=СЧЁТЕСЛИ($B2:$I2;"i") исходит из того, что все строки содержат значения подобные строке 1 и надо лишь считать кол-во появлений "i" в каждой из них.

Думаю, что путанница не возникла бы, если бы я не забыл упомянуть еще один возможный вариант: в строке 1 содержаться заголовки (и среди них значение "i"), а ниже числовые значения, которые надо посчитать , а не суммировать. Т.е. =СУММПРОИЗВ(--(B$1:F$1="i");--(B2:F2<>""))

KL
[MVP - Microsoft Excel]