Форматирование части ячейки(underline, bold... etc). HELP

[chur]

Код: Выделить всё

'Подчеркнуть 15 символов начиная с 15-го
Cells(2, 2).Characters(Start:=15, Length:=15).Font.Underline = xlUnderlineStyleSingle
'Убрать подчеркивание во всей ячейке
Cells(2, 2).Font.Underline = xlUnderlineStyleNone

[mormax]

У меня обратная ситуация, нужно найти подчеркнутую часть текста в ячейке. Как это можно сделать?

[Naeel Maqsudov]

Цикл по всем элментам коллекции Characters

Код: Выделить всё

With некая_ячейка
  For i= 1 to .Characters.Count
    if .Characters(i).Font.Underline..... и т.д.
  Next
end with