- 1、本文档共10页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
【Delphi】汇出Excel时,Excel单元格格式设置(附Delphi操作Excel方法)一个例子:excelworksheet1.Cells.Item[row,3]. numberformatlocal:=$#,##0.00;[红色]-$#,##0.00;excelworksheet1.Cells.Item[row,3].Formula:==SUM(R[-+inttostr(row-rowflag+1)+]C:R[-1]C);excelworksheet1.Cells.Item[row,3].Borders[3].LineStyle :=xlContinuous;excelworksheet1.Cells.Item[row,3].Borders[4].LineStyle :=xlDouble;excelworksheet1.Cells.Item[row,4].Borders[3].LineStyle :=xlContinuous;excelworksheet1.Cells.Item[row,4].Borders[4].LineStyle :=xlDouble;excelworksheet1.Cells.Item[row,4].Formula:==R[-1]C;注:不知道公式及格式,均可通过录制宏找出对应公式及格式。效果如下图:?资料来自网络单元格设置1.设置单元格线框Excel.ActiveSheet.Range[B10:C13].Borders[N].LineStyle := xlNoneExcel.ActiveSheet.Range[B10:C13].Borders[N].Weight := xlThin边框的类型 Borders[N]xlEdgeLeft左=1xlEdgeRight右=2xlEdgeTop顶=3xlEdgeBottom底=4xlDiagonalUp左上右下=5?xlDiagonalDown左下右上=6xlEdgeLeft外部左边框=7xlEdgeTop外部上边框=8xlEdgeBottom外部下边框=9xlEdgeRight外部右边框=10xlInsideVertical内部竖线=11xlInsideHorizontal内部横线=12(其中1:为左 2:右 3:顶 4:底 5:斜\ 6:斜/)线条类型LineStyle,宽度Weight单条线的LineStyle := xlContinuous双条线的LineStyle := xlDouble虚线xlHairline 1实线xlThin?中实线xlMedium?粗实线xlThick2.给单元格赋值:Excel.Cells[1,4].Value := 第一行第四列;3.设置第一行字体属性(隶书,蓝色,加粗,下划线):Excel.ActiveSheet.Rows[1].Font.Name := 隶书;Excel.ActiveSheet.Rows[1].Font.Color := clBlue;Excel.ActiveSheet.Rows[1].Font.Bold := True;Excel.ActiveSheet.Rows[1].Font.UnderLine := True;4.设置整个表字体为9Excel.Cells.Font.Size:=9;5.在第8行之前插入/删除分页符:Excel.WorkSheets[1].Rows[8].PageBreak := 1; (0为删除)6.清除第一行第四列单元格公式:Excel.ActiveSheet.Cells[1,4].ClearContents;?7.从数字类型转换成文本类型(不知道格式化字符串,请录制宏,抽出宏中格式化字符串。)excelworksheet1.Cells.Item[row,10].numberformatlocal:=@;excelworksheet1.Cells.Item[row,10].NumberFormat :=hh:mm:ssexcelworksheet1.Cells.Item[row,9].numberformatlocal:=$#,##0.00;[红色]-$#,##0.00;?8.加公式(不知道公式格式,请录制宏,抽出宏中公式格式。)excelworksheet1.Cells.Item[row,10].Formula:==R[-1]C+RC[-1];ExApp.cells[9+iLoop,6].value:==SUM(G+ inttostr(9+iLoop)+:H+ inttostr(9+iLoop)+);附:Delphi操作Excel方法(一) 使用动态创建的方法(二) 使用Delphi 控件方法一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:varE
您可能关注的文档
最近下载
- 2024年陕西省中考生物试题(含解析).pdf VIP
- 2023年天津化学会考试卷.pdf VIP
- 广西宝坛地区铜镍硫化物矿石982_省略_Re_Os同位素年龄及其地质意义_毛景文.pdf VIP
- 专业调研报告(工业机器人技术专业).pdf
- 管理学(北师大)中国大学MOOC慕课 章节测验 客观题答案.docx
- 小暑24节气ppt模板.pptx
- 安利股份:2023年度业绩预告.pdf VIP
- 常见疾病康复:挛缩的康复.pptx VIP
- 浅谈数学如何提高学生计算能力的方法研究-来源:文理导航(教育研究与实践)(第2020009期)-内蒙古自治区北方文化研究院.pdf VIP
- 某上市公司珠海旧改项目前期服务协议.docx VIP
文档评论(0)