Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как мне задать её размеры ячейки, границы, цвет, вопросы по раб. с Excel XP 
:(
    Опции темы
devmstr
  Дата 7.9.2004, 07:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Developer
**


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

Репутация: 2
Всего: 11
У меня есть ячейка ExcelApplication1.Cells.Item[1,1]. Как мне задать её размеры(например
ExcelApplication1.Cells.ColumnWidth:=50 задает размер для всех ячеек, но мне необходимо именно для одной). Еще как
задать цвет данной ячейки и как задать тип границы заданной ячейки.
Извините за обилие вопросов.
Буду благодарен за любую помощь.



--------------------
Think different ©Steve Jobs 
user posted image
PM MAIL WWW   Вверх
Dimich
Дата 7.9.2004, 11:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 7
Думаю изменить ширину отдельной ячейки не тронув весь столбец не получится. Для таких целей используется например "объединение ячеек". Может быть я и не прав, но если такого нельзя сделать средствами самого Excel (в нем ручками) то и из delphi не получится...
--------------------
Не работает - исправь, работает - не трогай!!!
PM MAIL ICQ Jabber   Вверх
Гость_Magician
Дата 7.9.2004, 15:31 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
А я и согласен тронуть весь столбец, мен в принципе это и нужно, но просто
ExcelApplication1.Cells.ColumnWidth:=50
устанавливает для всех ячеек ширину 50. Для все вообще в документе, а не для заданного столбца
  Вверх
Dimich
Дата 7.9.2004, 16:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 7
Я бы запустил запись макроса в Excel и сделал бы с ячейкой (столбцом) все, что мне надо и посмотрел бы на тело макроса - что же там получилось? Далее текст перенес в дельфи (с некоторыми маленькими изменениями конечно). Попробуй! Если не получится, то завтра с утра код приведу (просто сейчас уже ухожу домой, а дома нета нету).
--------------------
Не работает - исправь, работает - не трогай!!!
PM MAIL ICQ Jabber   Вверх
devmstr
Дата 7.9.2004, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Developer
**


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

Репутация: 2
Всего: 11
Я конечно извиняюсь за свой низкий уровень, но кодить в Exel(в смысле макросы писать и т.д.) я не умею. Я вообще Basic не знаю. Object Pascal and C++ вообщем немного шарю. Да и вообще с Excel я мало работал. А тут сказали результат в Ехел и все. Братаны помогите!



--------------------
Think different ©Steve Jobs 
user posted image
PM MAIL WWW   Вверх
Dimich
Дата 8.9.2004, 08:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 7
Код
Uses ..., ComObj;
...
Var
 X : OleVariant;
begin
 X := CreateOleObject ('Excel.Application');   // Запускаем excel
 X.Visible := true;  // показываем его на экране (желательно это сделать после всех операций,
              // просто в начале - для наглядности)
//  X.WorkBooks.Open ('filename.xls', true, true);  // открыть файл с шаблоном
 X.WorkBooks.Add;  // добавить новую книгу
 X.Cells.Item [1, 1].Value := 'мой текст';  // вывести текст в ячейку
 X.Cells.Item [1, 1].ColumnWidth := 50;  // установить ширину столбца
end;

А про макросы я имел в виду что: не надо знать Visual Basic и не надо их писать вручную! Делается все проще! В Excel начинаем запись макроса: Сервис>Макрос>Начать запись... Делаем что надо (например делаем изменение шрифта для ячейки), останавливаем запись макроса и смотрим, что же excel записал в его тело? Видим:
Код
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 08.09.2004
'
   With Selection.Font
       .Size = 20
   End With
End Sub

Вот и в дельфях пишем:
Код
X.Selection.Font.Size := 20;


--------------------
Не работает - исправь, работает - не трогай!!!
PM MAIL ICQ Jabber   Вверх
devmstr
Дата 8.9.2004, 16:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Developer
**


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

Репутация: 2
Всего: 11
Громаднийшее табе спасибо. Щас попробую. А в Excel я вообще в принцыпе не работа, ну как то не приходилось. Отчет в Wordе набрал и ладно. Надо таблицу вставил, но вычисления если че я все провожу либо в MatLabe, а че попроще то в MathCad накройняк... smile.gif


--------------------
Think different ©Steve Jobs 
user posted image
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0473 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.