如何让Excel的列自动长度?或列内容自动换行且居中?急 我把数据导出后,有人列头太长被挡住了,怎么样让列头自动长度?还有,如何让列在居中的基础上再两端对齐?举例说明:我有一个列内容是“测试二”,结果这列的长度只能一行放“测试”,“二”字自动换行,且居中样式如下:测 试 二谢谢大家! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 with ExcelWorkSheet1 do begin Columns.AutoFit; Cells.Item[1,1] := Title; Range[Cells.Item[1,1],Cells.Item[1,k]].HorizontalAlignment:=xlCenter; Range[Cells.Item[1,1],Cells.Item[1,k]].VerticalAlignment:=xlCenter; Range[Cells.Item[1,1],Cells.Item[1,k]].Select; Range[Cells.Item[1,1],Cells.Item[1,k]].Merge(Cells.Item[1,k]); Cells.Item[1, k].Font.Size :='16'; end;不知道是不是你想要的结果? 求一个复制文件的函数,可以覆盖已存在文件的. 怎样实现输出为TXT文件?格式如何控制? 怎样清空Image的画面 用reshacker修改软件标题后,任务栏显示的标题却无法改变! 在使用selectdirectory函数的时候,怎样把根目录设置为‘网上邻居’ 啊?又怎样把根目录设置为‘我的电脑’啊? 选中EDIT1.TEXT的全部内容? 又是一个关于数据库统计的问题? 图片分割问题 请问如何判断treeview的node是否有子节点? 高手请进~~~~(关于勾子) 如何对ADODataSet记录集中的数据按照某一个字段值进行排序? Delphi中pfx扩展证书的导入,急!!!!
Columns.AutoFit;
Cells.Item[1,1] := Title;
Range[Cells.Item[1,1],Cells.Item[1,k]].HorizontalAlignment:=xlCenter;
Range[Cells.Item[1,1],Cells.Item[1,k]].VerticalAlignment:=xlCenter;
Range[Cells.Item[1,1],Cells.Item[1,k]].Select;
Range[Cells.Item[1,1],Cells.Item[1,k]].Merge(Cells.Item[1,k]);
Cells.Item[1, k].Font.Size :='16';
end;
不知道是不是你想要的结果?