Проверка наличия подчеркивания формулой Excel

Описание функции

Функция =ЕПОДЧЕРКН(ЯЧЕЙКА) возвращает значение ИСТИНА если текст в указанной ячейке подчеркнут и ЛОЖЬ если подчеркивание отсутствует. Функция имеет всего один аргумент.

• ЯЧЕЙКА - ссылка на ячейку в которой необходимо проверить текст на наличие подчеркивания.

Пример

Так как изменение шрифта в Excel не влечет за собой пересчет формул, то данная функция не обновляется автоматически! Для обновления данных пользуйтесь пересчетом листа Ctrl + Alt + F9

Код на VBA

Function ЕПОДЧЕРКН(ЯЧЕЙКА As Range) As Boolean
   ЕПОДЧЕРКН = False
 
   Select Case ЯЧЕЙКА.Font.Underline
      Case xlUnderlineStyleSingle
         ЕПОДЧЕРКН = True
      Case xlUnderlineStyleDouble
         ЕПОДЧЕРКН = True
   End Select
End Function