VPF::Помогите с настройкой стиля ячеек

Ravend

Дата 3.11.2006, 15:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

Привет, All!

из Delphi идет обращение к Excel
в коде есть вот такая строка

Код


FExcel.Range.Style := 'S' + IntToStr(Obj.StyleIndex);

где
Obj.StyleIndex = 1
FExcel.Range.Style становиться $001acddc

поясните пожалуйста, что значит это значение?

и подскажите, как можно отдельно настроить стиль через FExcel.Range.Style
(убрать заливку, выставить стиль шрифта где нужно)

спасибо

Это сообщение отредактировал(а) Ravend - 3.11.2006, 15:48

Izuver

Дата 5.11.2006, 00:22 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

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

В VBA?
Или Delphi?

Ravend

Дата 7.11.2006, 10:25 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата

В VBA?
Или Delphi?

писаться в Delphi будет, но стиль обращение к объекту вероятно останется VBA'шным
мне главное понять как из переданной "1" получается тот стиль, и как его можно настроить

mihanik

Дата 7.11.2006, 11:03 (ссылка)

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

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

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

Знаешь, как я изучаю Ехель?

Пускаю запись макроса и выполняю интересующее меня действие.
Потом смотрю, что получилось в коде.

Например.
Хочу убрать заливку с участка листа (Range)

Код


    Range("A1:C7").Select              ' выбрал фрагмент листа
    Selection.Font.ColorIndex = 0   ' убрал заливку...

Выбрать стиль шрифта...

Код


   Range("A1:D4").Select              ' выбрал фрагмент листа
  
  With Selection.Font                    ' устанавливаю стиль
        .Name = "Times New Roman"   ' название шрифта
        .Size = 10                                  ' размер шрифта
        .Strikethrough = False               ' и т.д. всё, вроде, понятно...
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
  End Sub

Добавлено @ 11:06
Ты скажи точно, что ты хочешь.
Я набрасаю на VB прогу. которая будет это делать.
Ты проанализируешь текст и всё поймёшь...

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

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »