Страница 1 из 1
Добавлено: 01 мар 2004, 22:17
chur
Код: Выделить всё
'Подчеркнуть 15 символов начиная с 15-го
Cells(2, 2).Characters(Start:=15, Length:=15).Font.Underline = xlUnderlineStyleSingle
'Убрать подчеркивание во всей ячейке
Cells(2, 2).Font.Underline = xlUnderlineStyleNone
Добавлено: 19 янв 2005, 11:44
mormax
У меня обратная ситуация, нужно найти подчеркнутую часть текста в ячейке. Как это можно сделать?
Добавлено: 20 янв 2005, 00:02
Naeel Maqsudov
Цикл по всем элментам коллекции Characters
Код: Выделить всё
With некая_ячейка
For i= 1 to .Characters.Count
if .Characters(i).Font.Underline..... и т.д.
Next
end with