Excel ЧаВо

         

Как вставить несколько строк/столбцов?


Delphi:

// заполним ячейки данными для наглядности

ASheet.Range['A1', EmptyParam].Formula := 1; R := ASheet.Range['A1:A25', EmptyParam]; R.DataSeries(xlColumns, xlLinear, xlDay, 1, EmptyParam, EmptyParam); R := ASheet.Range['A1:O1', EmptyParam]; R.DataSeries(xlRows, xlLinear, xlDay, 1, EmptyParam, EmptyParam);

// не забывайте указывать EntireRow и EntireColumn!

// добавим пять пустых строк после 20-й строки

ASheet.Range['21:25', EmptyParam].EntireRow.Insert(xlShiftDown, EmptyParam);

// удвоим ширину второго и третьего столбцов

ASheet.Range['B:C', EmptyParam].EntireColumn.ColumnWidth := ASheet.Range['B:C', EmptyParam].EntireColumn.ColumnWidth * 2; // удвоим высоту второй и третьей строки

ASheet.Range['2:3', EmptyParam].EntireRow.RowHeight := ASheet.Range['2:3', EmptyParam].EntireRow.RowHeight * 2;

// удалим 4, 6 и 8 столбцы (два способа - кому что понравится)

// ASheet.Range['D:D,F:F,H:H', EmptyParam].EntireColumn.Delete(xlShiftToLeft);

ASheet.Range['D1,F1,H1', EmptyParam].EntireColumn.Delete(xlShiftToLeft);

ColumnWidth

RowHeight Property

Insert Method

Delete Method



Содержание раздела