VPF::форматирование содержимого ячейки Excel

AzuManga

Дата 12.7.2005, 20:04 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 168
Регистрация: 12.5.2005

Репутация: нет
Всего: нет

Здравствуйте, коллеги 8))

Можно ли форматировать текст-соержимое ячейки программно. Например, назначить определенной подстроке другой цвет?

Спасибо за ответы 8)

--------------------

Точка с запятой;

Akella

Дата 18.7.2005, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

конечно можно smile

Добавлено @ 16:32

Код


    //рисуем border
    Range:=Sheets.Range['A1'];
    Range.Borders[4].LineStyle := 1;
    //название поставщика
    Sheets.Cells[iBegRowTitle,1]:=lcbApt.Text;
    Range:=Sheets.Cells[iBegRowTitle,1];
    Range.HorizontalAlignment := xlCenter;
    Range.VerticalAlignment := xlCenter;
  //подписывает под название поставщика
    Sheets.Cells[iBegRowTitle,1]:='/поставщик/';
    Range:=Sheets.Cells[iBegRowTitle,1];
    Range.HorizontalAlignment := xlCenter;
    Range.VerticalAlignment := xlCenter;

Добавлено @ 16:35

Код


Range.Font.Bold:=True;
Range.Font.Color:=clRed;
Range.Font.Size:=10;

Делаешь макрос в Excel`е смотришь, как реализовано в VB приблизительно также и в свое й проге делаешь.
Добавлено @ 16:38

Код


iRow,iCol:integer;
Range:=Sheets.Cells[iRow,iCol];//диапазон
//и так поймём
Range:=Sheets.Cells['F12'];//одна ячейка

Akella

Дата 18.7.2005, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

такой код генерируется при создании и записи макроса

Код


Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 18.07.2005 (Duron)
'
' Сочетание клавиш: Ctrl+p
'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "dghfghfghfghfghfgh"
    With ActiveCell.Characters(Start:=1, Length:=18).Font
        .Name = "Arial Cyr"
        .FontStyle = "полужирный"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select
    With Selection.Font
        .Name = "Arial Cyr"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select
    With Selection.Font
        .Name = "Arial Black"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("C7").Select
End Sub

Vet

Дата 22.7.2005, 20:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 24.2.2005

Репутация: нет
Всего: нет

Цитата

Делаешь макрос в Excel`е смотришь, как реализовано в VB приблизительно также и в свое й проге делаешь.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »