Пример объединения ячеек и выравнивания текста в Excel

Delphi , Технологии , OLE Automation MSOffice

Вызывать так:

MerCen('A4:J4');

Исходный код:

var
  xls: Variant;
const
  xlCenter = -4108;

procedure MerCen(ran: string);
begin
  xls.Range[ran].Select;
  xls.Selection.HorizontalAlignment := xlCenter;
  xls.Selection.VerticalAlignment := xlCenter;
  xls.Selection.WrapText:= false;
  xls.Selection.Orientation := 0;
  xls.Selection.ShrinkToFit := False;
  xls.Selection.MergeCells := False;
  xls.Selection.Merge;
end;

Пример комбинации ячеек и выравнивания текста в Excel с использованием языка программирования Delphi.

Вот разбивка кода:

1. Первая секция объявляет переменную xls типа Variant, которая используется для взаимодействия с объектом Excel.
2. Вторая секция определяет константу xlCenter со значением -4108, которое представляет горизонтальное выравнивание центра в Excel.

Процедура MerCen принимает один параметр ran типа string, который specifies диапазон ячеек для слияния и выравнивания.

Процедура выполняет следующие действия:

1. Выбирает указанный диапазон ячеек с помощью xls.Range[ran].Select.
2. Устанавливает горизонтальное выравнивание выбранных ячеек в центр с помощью xls.Selection.HorizontalAlignment := xlCenter.
3. Устанавливает вертикальное выравнивание выбранных ячеек в центр с помощью xls.Selection.VerticalAlignment := xlCenter.
4. Отключает обрезку текста с помощью xls.Selection.WrapText := false.
5. Устанавливает ориентацию текста в 0 (горизонтальный) с помощью xls.Selection.Orientation := 0.
6. Отключает уменьшение ячеек до размера содержимого с помощью xls.Selection.ShrinkToFit := False.
7. Отключает слияние ячеек перед слиянием с помощью xls.Selection.MergeCells := False.
8. Сливает выбранные ячейки с помощью xls.Selection.Merge.

Чтобы вызвать эту процедуру, вам нужно передать диапазон ячеек в виде строки в формате "A4:J4", например:

MerCen('A4:J4');

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

Альтернативное решение - использовать объект Excel.Application для взаимодействия с Excel, который предоставляет болееadvanced функции и гибкость. Например:

var
  excelApp: Excel.Application;
begin
  excelApp := CreateOleObject('Excel.Application');
  excelApp.Workbooks.Open('путь_к_вашему_файлу_excel.xlsx');
  excelApp.ActiveWorkbook.Sheets(1).Range['A4:J4'].HorizontalAlignment := xlCenter;
  excelApp.Quit;
end.

Этот код создает экземпляр приложения Excel, открывает книгу, устанавливает горизонтальное выравнивание диапазона ячеек в центр и затем закрывает приложение Excel.

В статье описывается пример объединения ячеек и выравнивания текста в Microsoft Excel с помощью процедуры MerCen, которая позволяет централизовать текст в выделенной области.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: OLE Automation MSOffice ::