Проверить есть ли у ячейки примечание

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

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

Проверить есть ли у ячейки примечание (Формулы/Formulas)

Shakal07

Дата: Четверг, 16.11.2023, 04:21 | Сообщение № 1

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

Ранг: Участник

Сообщений: 54

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

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

Excel 2k3;2k7;2k10;2k13;2k19

Здравствуйте.

Есть ли способ проверить есть ли у ячейки примечание. Скорее всего прийдется соображать пользовательскую функцию из категории "Проверка свойств и значений"
Облазил много где, но ничего похожего не нашел. Поэтому и написал здесь. Может кто и поможет с поставленной задачей.
Задача состоит в следующем в отдельном столбце вывести значение "ИСТИНА" или "ЛОЖЬ" при наличии или отсутствии примечания.
И/ИЛИ с помощью уже пользовательской функции и условного форматирования "подсветить" ячейку с примечанием например другим цветом или заливкой

Спасибо

Ответить

Nic70y

Дата: Четверг, 16.11.2023, 08:08 | Сообщение № 2

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

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

Сообщений: 9005

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

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

Excel 2010

так
[vba]

Код

Function u_17(u As Range)
    Set x = u.Comment
    If Not x Is Nothing Then
        x = True
    Else
        x = False
    End If
    u_17 = x
End Function

[/vba]или так
[vba]

Код

Function u_16(u As Range)
u_16 = IsNumeric(u.Comment.Creator)
End Function

[/vba]наверное

ЮMoney 41001841029809

Ответить

AlexM

Дата: Четверг, 16.11.2023, 11:53 | Сообщение № 3

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

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

Сообщений: 4517

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

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

Excel 2003

Еще можно сделать именованную функцию, например PR с формулой

Код

=ПОЛУЧИТЬ.ЯЧЕЙКУ(46;Лист1!$A1)

тип информации 46 - Если ячейка содержит текстовую заметку, возвращается ИСТИНА, иначе возвращается ЛОЖЬ.
Если добавить или убрать примечание, возвращаемое значение функции изменится, если сделать пересчет листа CTRL+ALT+F9

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Shakal07

Дата: Четверг, 16.11.2023, 23:50 | Сообщение № 4

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

Ранг: Участник

Сообщений: 54

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

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

Excel 2k3;2k7;2k10;2k13;2k19

Nic70y, Спасибо, за ответ, обе функции работают. но не могу их прикрутить к условному форматированию

AlexM, Спасибо, за ответ, но для Excel 2010 эта формула не работает или я что-то не так сделал

Сообщение отредактировал Shakal07 - Четверг, 16.11.2023, 23:51

Ответить

elovkov

Дата: Пятница, 17.11.2023, 07:31 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 408

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

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

Excel 2013

Цитата Shakal07, 16.11.2023 в 23:50, в сообщении № 4 (

)

формула не работает или я что-то не так сделал

Это формула для именованной функции
нажимаете ctrl+F3 откроется диспетчер имен
создать - в поле "диапазон" эту формулу, в поле "имя" свое имя, например "ком"
и тогда в ячейке пишете

Код

=ком

и получаете ответ по той строке, в которой написали для столбца А, можно даже в самом столбце А это писать
Можно в условное форматирование эту формулу забить и тогда будут форматироваться ячейки столбца А с комментариями

Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица

Сообщение отредактировал elovkov - Пятница, 17.11.2023, 15:25

Ответить

Nic70y

Дата: Пятница, 17.11.2023, 07:39 | Сообщение № 6

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

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

Сообщений: 9005

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

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

Excel 2010

Цитата Shakal07, 16.11.2023 в 23:50, в сообщении № 4 (

)

не могу их прикрутить к условному форматированию

см. файл

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

ЮMoney 41001841029809

Ответить

AlexM

Дата: Пятница, 17.11.2023, 12:37 | Сообщение № 7

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

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

Сообщений: 4517

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

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

Excel 2003

Цитата Shakal07, 16.11.2023 в 23:50, в сообщении № 4 (

)

для Excel 2010 эта формула не работает

смотри файл

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

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Serge_007

Дата: Пятница, 17.11.2023, 15:08 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата Shakal07, 16.11.2023 в 23:50, в сообщении № 4 (

)

я что-то не так сделал

Что такое макрофункции?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Shakal07

Дата: Суббота, 18.11.2023, 02:31 | Сообщение № 9

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

Ранг: Участник

Сообщений: 54

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

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

Excel 2k3;2k7;2k10;2k13;2k19

Всем спасибо за помощь.

Задачу удалось решить так.
Поскольку в документе XLSX макрофункции не хотят сохранятся без преобразования файла в другой тип
А поскольку все пользовательские функции храню в отдельном файле.
А при использовании функции u_16 в условном форматировании
пробовал использовать все типы ссылок на ячейку

Код

u_16($A$1)

Код

u_16(A$1)

, и

Код

u_16($A1)

, и

Код

u_16(A1)

выдавало ошибку

Цитата

Такой тип ссылки нельзя использовать в формуле Условное форматирование.

Тогда использовал другой подход с использованием "Диспетчера имен"
Создал имя "Примечание", область Книга, а в диапазоне указал такую формулу

Код

u_16(ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ();4;1)))

И тогда в условном форматировании указал в качестве формулы

Код

Примечание

Спасибо за помощь

Ответить

Проверить есть ли у ячейки примечание (Формулы/Formulas)

Страница 1 из 1
1