Подсчет ячеек со сбитой формулой

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

Подсчет ячеек со сбитой формулой (Формулы/Formulas)

Leprotto

Дата: Четверг, 29.09.2016, 15:45 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 145

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

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

Excel 2016

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

К сообщению приложен файл: formula_sbita.xlsx (13.1 Kb)

Ответить

buchlotnik

Дата: Четверг, 29.09.2016, 16:01 | Сообщение № 2

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

так нужно?

Код

=ROWS(Таблица1[№ п/п])-SUMPRODUCT(--ISFORMULA(Таблица1[№ п/п]))

К сообщению приложен файл: 6797280.xlsx (13.4 Kb)

Ответить

Leprotto

Дата: Четверг, 29.09.2016, 16:35 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 145

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

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

Excel 2016

buchlotnik,

Код

=ЕФОРМУЛА

не работает в Excel 2010

Ответить

buchlotnik

Дата: Четверг, 29.09.2016, 16:44 | Сообщение № 4

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Leprotto, конечно, не работает - а у вас в профиле что указано?

Ответить

Nic70y

Дата: Четверг, 29.09.2016, 16:50 | Сообщение № 5

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

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

Сообщений: 9131

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

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

Excel 2010

намахлевал:

Код

=ЕСЛИ(И(B3<>""; C3<>"");МАКС(A$2:A2)+1+СТРОКА()/1000000;"")

К сообщению приложен файл: 5171088.xlsx (13.6 Kb)

ЮMoney 41001841029809

Ответить

buchlotnik

Дата: Четверг, 29.09.2016, 17:00 | Сообщение № 6

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Цитата

намахлевал

а я наUDF-ил

[vba]

Код

Function is_formula(a As Range) As Variant()
    Dim ans(), i%, j%
    j = a.Count
    ReDim ans(1 To j)
        For i = 1 To j
            ans(i) = a(i).HasFormula
        Next
    is_formula = ans
End Function

[/vba]