Функция =ЕПОДЧЕРКН(ЯЧЕЙКА) возвращает значение ИСТИНА если текст в указанной ячейке подчеркнут и ЛОЖЬ если подчеркивание отсутствует. Функция имеет всего один аргумент.
Так как изменение шрифта в Excel не влечет за собой пересчет формул, то данная функция не обновляется автоматически! Для обновления данных пользуйтесь пересчетом листа Ctrl + Alt + F9
Function ЕПОДЧЕРКН(ЯЧЕЙКА As Range) As Boolean ЕПОДЧЕРКН = False Select Case ЯЧЕЙКА.Font.Underline Case xlUnderlineStyleSingle ЕПОДЧЕРКН = True Case xlUnderlineStyleDouble ЕПОДЧЕРКН = True End Select End Function