Подставить формулу vba

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подставить формулу vba (Макросы/Sub)

Alex2354

Дата: Суббота, 19.03.2022, 11:08 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Добрый день.

Подскажите, пожалуйста, в чем ошибка:

[vba]

Код

Sub Макрос1()
Range("J25").Formula = "=СЧЁТЕСЛИ(N$1:N23;1)"
End Sub

[/vba]

Спасибо.

К сообщению приложен файл: 6898297.xlsm (17.1 Kb)

Ответить

Nic70y

Дата: Суббота, 19.03.2022, 11:16 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Range("J25").FormulaLocal = "=СЧЁТЕСЛИ(N$1:N23;1)"

[/vba]или[vba]

Код

Range("J25").FormulaR1C1 = "=COUNTIF(R1C[4]:R[-2]C[4],1)"

[/vba]

ЮMoney 41001841029809

Ответить

bmv98rus

Дата: Суббота, 19.03.2022, 14:38 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата Nic70y, 19.03.2022 в 11:16, в сообщении № 2 (

)

Range("J25").FormulaLocal = "=СЧЁТЕСЛИ(N$1:N23;1)"

ну это смотря у кого какая локал. Я б всеж к
[vba]

Код

Range("J25").Formula = "=COUNTIF(N$1:N23,1)"

[/vba]
cклонял

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Alex2354

Дата: Воскресенье, 20.03.2022, 12:38 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Nic70y, Спасибо. Первый вариант понравился больше.
Почему то с просто ВПР работает. А с тоже самое, но под ЕСНД ошибка
Чем они отличаются то?

[vba]

Код

Sub Макрос()

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual


    Range("B1:B200").FormulaLocal = "=ВПР(A1;Лист2!A1:F200;2;ЛОЖЬ)"
    Range("B1:B200").FormulaLocal = "=ЕСНД(ВПР(A1;Лист2!A1:F200;2;ЛОЖЬ);"")"


    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub

[/vba]

bmv98rus, Тоже спасибо.
на маленьком файлике получается, А когда вставляю в большой, где значения диапазона N$23:N$222 вычисляется формулой ниже, то ошибка

Код

=ЕСЛИ(H23<>"";СЧЁТЕСЛИ(H$23:H23;H23);"")

Эти формулы эквивалентны?

[vba]

Код

Range("I225").Formula = "=COUNTIF(N$23:N$222;1)"
Range("I225").FormulaLocal = "=СЧЁТЕСЛИ(N$23:N$222;1)"

[/vba]