Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Немного о записи данных в excel-ячейки посредством VBA / 5 сообщений из 5, страница 1 из 1
19.10.2004, 09:42:23
    #32743723
ThuG
ThuG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Немного о записи данных в excel-ячейки посредством VBA
Как в одну ячейку excel записать две строки, первая из которых выделена жирным шрифтом, а вторая - нет?

Set xlsObj = CreateObject("Excel.Application")
Set xlsWb = xlsObj.Workbooks.Open("c:\test.xls")
xlsObj.Sheets("Лист1").Cells(1, 1) = "здесь жирным " & " здесь обычным"
xlsObj.Visible = True
Set xlsObj = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2004, 09:50:26
    #32743740
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Немного о записи данных в excel-ячейки посредством VBA
Excel -> Сервис -> Макрос -> Начать запись:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
    ActiveCell.FormulaR1C1 = "sssssdddddfffffaaaaa"
    With ActiveCell.Characters(Start:= 1 , Length:= 5 ).Font
        .Name = "Arial Cyr"
        .FontStyle = "обычный"
        .Size =  10 
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:= 6 , Length:= 5 ).Font
        .Name = "Arial Cyr"
        .FontStyle = "полужирный"
        .Size =  10 
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:= 11 , Length:= 5 ).Font
        .Name = "Arial Cyr"
        .FontStyle = "полужирный курсив"
        .Size =  10 
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:= 16 , Length:= 5 ).Font
        .Name = "Arial Cyr"
        .FontStyle = "обычный"
        .Size =  10 
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("B3").Select
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2004, 10:01:00
    #32743766
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Немного о записи данных в excel-ячейки посредством VBA
я думал что эксел этого не умеет.
интересно с какой версии эта фича?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2004, 10:16:03
    #32743806
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Немного о записи данных в excel-ячейки посредством VBA
2 АлексейК
2003 точно умеет, а вот XP не уверен, но по-моему тоже умеет...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2004, 13:14:19
    #32744357
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Немного о записи данных в excel-ячейки посредством VBA
По-моему, даже 95 умеет...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Немного о записи данных в excel-ячейки посредством VBA / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 329ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1671000]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 33ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 229ms
total:  329ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]