|
Подчеркнуть одно из слов в ячейке Excel | ☑ | ||
---|---|---|---|---|
0
Napalmmm
14.10.15
✎
10:27
|
Здравствуйте!
Сохраняю табличный документ в excel. Далее необходимо подчеркнуть одно из слов в ячейке excel. Саму ячейку целиком подчеркнуть могу, а вот добраться до слова внутри её не получается. Возможно ли это? Если да, то как? Заранее спасибо! |
|||
1
ibreiter
14.10.15
✎
10:30
|
Неа
|
|||
2
DDwe
14.10.15
✎
10:31
|
(0) Нет
|
|||
3
Napalmmm
14.10.15
✎
10:34
|
(1), (2) Спасибо!
|
|||
4
Fish
14.10.15
✎
10:36
|
(0) Руками можно, значит, теоретически возможно и программно.
|
|||
5
DDwe
14.10.15
✎
10:40
|
(4) Точно, руками можно... век живи, век учись, спасибо товарищ!
|
|||
6
MiniMuk
14.10.15
✎
10:42
|
(5) начать запись макроса, подчеркнуть руками, почитать макрос
|
|||
7
Fish
14.10.15
✎
10:50
|
(6) Вот что получилось:
" Range("A1").Select ActiveCell.FormulaR1C1 = "авпвап апы ывап авпывап вапвап апы ва" With ActiveCell.Characters(Start:=1, Length:=18).Font .Name = "Calibri" .FontStyle = "обычный" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With With ActiveCell.Characters(Start:=19, Length:=7).Font .Name = "Calibri" .FontStyle = "обычный" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleSingle .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With With ActiveCell.Characters(Start:=26, Length:=15).Font .Name = "Calibri" .FontStyle = "обычный" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With Range("A2").Select End Sub. Теперь осталось понять стоит ли овчинка выделки, чтобы это из 1С делать. |
|||
8
MiniMuk
14.10.15
✎
10:54
|
ну номр
ActiveCell.Characters(Start:=26, Length:=15).Font.Underline = xlUnderlineStyleNone ActiveCell.Characters(Start:=19, Length:=7).Font.Underline = xlUnderlineStyleSingle |
|||
9
Napalmmm
14.10.15
✎
11:26
|
(8) Получилось Вашим способом. Огромное спасибо!
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |