Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Вниз

Оформление ячеек в Excel   Найти похожие ветки 

 
konda   (2006-05-16 14:52) [0]

Сделать жирный шрифт получилось.
А вот сделать границу у области и сделать закрепление области не получается.
Поскажите, пожалуйста!

Макрос Excel:
------------------------------------
   Rows("4:4").Select
   ActiveWindow.FreezePanes = True
   Range("C5:K5").Select
   Selection.Borders(xlDiagonalDown).LineStyle = xlNone
   Selection.Borders(xlDiagonalUp).LineStyle = xlNone
   With Selection.Borders(xlEdgeLeft)
       .LineStyle = xlContinuous
       .Weight = xlMedium
       .ColorIndex = xlAutomatic
   End With
   With Selection.Borders(xlEdgeTop)
       .LineStyle = xlContinuous
       .Weight = xlMedium
       .ColorIndex = xlAutomatic
   End With
   With Selection.Borders(xlEdgeBottom)
       .LineStyle = xlContinuous
       .Weight = xlMedium
       .ColorIndex = xlAutomatic
   End With
   With Selection.Borders(xlEdgeRight)
       .LineStyle = xlContinuous
       .Weight = xlMedium
       .ColorIndex = xlAutomatic
   End With
------------------------------------
var
   ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData  : Variant;
   TemplateFile : String;
   BeginCol, BeginRow, i, j : integer;
   RowCount, ColCount : integer;
begin
 // Координаты левого верхнего угла области,
 //в которую будем выводить данные
 BeginCol := 1;
 BeginRow := 5;

 // Размеры выводимого массива данных
 RowCount := 100;
 ColCount := 50;

 // Создание Excel
 ExcelApp := CreateOleObject("Excel.Application");

 // Отключаем реакцию Excel на события,
 //чтобы ускорить вывод информации
 ExcelApp.Application.EnableEvents := false;

 //  Создаем Книгу (Workbook)
 // Если заполняем шаблон, то
 // Workbook := ExcelApp.WorkBooks.Add("C:\MyTemplate.xls");
 Workbook := ExcelApp.WorkBooks.Add;

 // Создаем Вариантный Массив,
 //который заполним выходными данными
 ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

 // Заполняем массив
 for I := 1 to RowCount do
   for J := 1 to ColCount do
     ArrayData[I, J] := J * 10 + I;

 // Левая верхняя ячейка области,
 //в которую будем выводить данные
 Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
 // Правая нижняя ячейка области,
 //в которую будем выводить данные
 Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow  + RowCount - 1,
          BeginCol + ColCount - 1];

 // Область, в которую будем выводить данные
 Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];

 // Шрифт делаем жирным
 WorkBook.WorkSheets[1].Range["C5", "K5"].Font.Bold := True;


 // А вот и сам вывод данных
 // Намного быстрее поячеечного присвоения
 Range.Value := ArrayData;

 // Делаем Excel видимым
 ExcelApp.Visible := true;
end;


 
Savek   (2006-05-16 16:23) [1]

А в чем собственно проблема?

ExcelApp.Range["A1:E10"].select;
ExcelApp.Selection.Borders.LineStyle:=xlContinuous;


 
AbrosimovA ©   (2006-05-16 16:27) [2]

Range.Borders.LineStyle:=xlContinuous;//Бордюр- непрерывная линия


 
konda   (2006-05-17 08:32) [3]

xlContinuous - как ее объявить (Undeclared identifier)?


 
EvS ©   (2006-05-17 08:58) [4]

Объяви свою константу с числовым значением равным xlContinuous или передавай число.


 
Savek   (2006-05-17 09:16) [5]

Все константы уже давно объявлены в модуле ExcelXP, Excel97 или Excel2000
(C:\Program Files\Borland\Delphi7\Ocx\Servers) надо просто добавить оное в список uses


 
konda   (2006-05-17 11:27) [6]

И еще.
Что-то не работает выравнивание колонки по ширине.

ExcelApp.Columns["I"].select;
ExcelApp.Columns["I"].EntireColumn.AutoFit;


Ошибки не выдает, но и ничего не делает.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.011 c
2-1149661709
XTD
2006-06-07 10:28
2006.06.25
Как найти путь к моей программе?


15-1148914084
lobach
2006-05-29 18:48
2006.06.25
Папка windows


2-1149443813
13
2006-06-04 21:56
2006.06.25
MDI приложение


2-1149447737
Ray
2006-06-04 23:02
2006.06.25
свернуть модальную форму


15-1149207948
dancer
2006-06-02 04:25
2006.06.25
У кого какие модемы?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский