高分求真言,用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; 在线等待。很急的 Dbgrideh怎么实现下拉框的智能输入功能? delphi7如何实现在build或run运行之前执行我的exe? 关于对象销毁 free/freeAndNil/nil .... 困惑很久的问题要问了? Access数据库加密之后,怎么用OLEDB连接不上,连接失败。这是怎么回事??如何处理?? 有什么软件可以监视注册表和C:盘的改动啊? 关于输入内容控制 都有谁心情不好,大家进来聊聊!反正心情都很差! delphi的ListView分页显示 我如何做这样的排序? 我怎么可以控制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;