高分求真言,用delphi控制excel中的单元格中的内容居中 exworksheet.rows.horizontalalignment:=3;水平居中exworksheet.rows.verticalalignment:=2;垂直居中exworksheet.columns.autofit;自适应宽度 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果具体某一个单元格,如ExcelApp.Cells[1,1],该如何设置? ExcelApp..ActiveSheet.Range['A1','A1']..HorizontalAlignment := xlCenter—————————————————————————————————MaximStr := '宠辱不惊,看庭前花开花落,去留无意; 毁誉由人,望天上云卷云舒,聚散任风。';if Not Assigned(I) then I := TI.Create(Nil);I.Maxim := MaximStr;I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';I.Desire := '加不加分随你';————————————————————————————————— 打开你的excel录制宏并查看不是可以得到吗?? 1、Excel_Worksheet.range[a :a]. select; //选择该列Excel_app.selection.VerticalAlignment := xlCenter;//居中2、Excel_Worksheet.range[a :a]. select; //选择该列Excel_app.selection.VerticalAlignment := xlCenter;//居中Excel_app.selection.Orientation = -90;//竖排Const xlDiagonalDown = 5; xlDiagonalUp = 6; xlEdgeLeft = 7; xlEdgeRight = 10; xlEdgeTop = 8; xlEdgeBottom = 9; xlInsideHorizontal = 12; xlInsideVertical = 11; xlNone = -4142 ; xlContinuous = 1; XLCENTER=-4108; 请教一个SQL查询“男女比例”语句 win32编程与数据库操作 delphi新手一年感言 请问BCB中"->"的输入有没有快捷方法? 如何把货币转化为汉字大写 用FASTreport打印时出错误了 GetLocaleFormatSettings过程中的LCID怎么用? 怎么捕获存储过程的错误 涨星了, 郁闷,准备潜水去了! 25分(最多了)再次倡议发贴子的时候请把关键问题描述好,便于大家搜索!!!而不是“请教大家”这样的标题[无内容] 我怎么可以控制speedbutton的按钮状态??? Delphi怎樣壓縮和解壓縮?
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
录制宏并查看
不是可以得到吗??
Excel_app.selection.VerticalAlignment := xlCenter;//居中
2、Excel_Worksheet.range[a :a]. select; //选择该列
Excel_app.selection.VerticalAlignment := xlCenter;//居中
Excel_app.selection.Orientation = -90;//竖排Const
xlDiagonalDown = 5;
xlDiagonalUp = 6;
xlEdgeLeft = 7;
xlEdgeRight = 10;
xlEdgeTop = 8;
xlEdgeBottom = 9;
xlInsideHorizontal = 12;
xlInsideVertical = 11;
xlNone = -4142 ;
xlContinuous = 1;
XLCENTER=-4108;