1.現在數據是可以發送到Excel單元格裡了，但我想用代碼控制某一單元格字體大一些？(如：fontsize=12   or   fontsize=16)  
   
  2.如何控制單元格的內容靠左或居中或靠右？  
   
  3.如何控制單元下邊框有下劃線，也就是下邊框在打印時能夠打印出來？  
   
   
  請各位大夾指教，謝謝!  
 
问题点数：100、回复次数：8
1楼  3tzjq   (永不言弃)  回复于 2005-06-24 10:00:29  得分 95

你要的功能都在里面，慢慢看...  
   
  Public   Sub   SetSheetStyles(ByVal   xlSheet   As   Excel.Worksheet,   _  
                                                                                ByVal   rowCount   As   Int32,   _  
                                                                                ByVal   colCount   As   Int32)  
                  Dim   i,   intStart   As   Int32  
   
                  With   xlSheet  
   
   
                          If   AllowHeaderColor   Then   .Range(.Cells(1,   1),   .Cells(1,   MasterColumnCount)).Interior.Color   =   GetHeaderBackColorRGB  
   
                          If   IsExistMasterD   Then   '主从表  
                                  intStart   =   5  
   
                                  .Range(.Cells(1,   1),   .Cells(1,   MasterColumnCount)).Font.Size   =   10   '标头字体大小  
                                  .Range(.Cells(2,   1),   .Cells(2,   MasterColumnCount)).Font.Size   =   10   '主数据字体大小  
   
                                  .Range(.Cells(1,   1),   .Cells(1,   MasterColumnCount)).Font.Bold   =   True       '标题字体加粗  
                                  .Range(.Cells(2,   1),   .Cells(2,   MasterColumnCount)).Font.Italic   =   True       '主数据字体斜体  
   
                                  .Range(.Cells(1,   1),   .Cells(1,   MasterColumnCount)).Borders.LineStyle   =   1     '粗边框(已取消)  
                                  .Range(.Cells(2,   1),   .Cells(2,   MasterColumnCount)).Borders.LineStyle   =   1   '粗边框(已取消)  
   
                                  If   AllowHeaderColor   Then   .Range(.Cells(4,   1),   .Cells(4,   colCount)).Interior.Color   =   GetHeaderBackColorRGB  
                                  .Range(.Cells(4,   1),   .Cells(rowCount   +   4,   colCount)).Borders.LineStyle   =   1   '主数据边框样式  
   
                                  .Range(.Cells(4,   1),   .Cells(4,   colCount)).Font.Bold   =   True       '标题字体加粗  
                                  .Range(.Cells(4,   1),   .Cells(4,   colCount)).Font.Size   =   10   '数据项字体大小  
   
                                  .Range(.Cells(5,   1),   .Cells(rowCount   +   4,   colCount)).Font.Size   =   9   '数据项字体大小  
   
                          Else  
                                  intStart   =   2  
   
                                  .Range(.Cells(1,   1),   .Cells(1,   colCount)).Font.Size   =   10   '标头字体大小  
                                  .Range(.Cells(1,   1),   .Cells(1,   colCount)).Font.Bold   =   True       '标题字体加粗  
   
                                  .Range(.Cells(1,   1),   .Cells(rowCount   +   1,   colCount)).Borders.LineStyle   =   1   '设表格边框样式  
                                  .Range(.Cells(2,   1),   .Cells(rowCount   +   1,   colCount)).Font.Size   =   9   '数据项字体大小  
   
                          End   If  
   
                          If   exportSet.IsApply_PCR_ToExcelWord   AndAlso   exportSet.IsApplyExcel   Then   '允许使用颜色区分  
                                  If   rowCount   >   2   AndAlso   exportSet.IsAlwaysQuestion_ApplyPCRToEW   Then   '先询问是否执行颜色区分  
                                          If   MessageBox.Show("数据转换到Excel文档已完成！是否现在就执行奇偶行颜色区分？这可能需要较长的时间。"   &   vbLf   &   "如果不再希望出现此提示，请转到   打印设置的高级选项卡。",   "总是询问",   MessageBoxButtons.YesNo,   MessageBoxIcon.Question,   MessageBoxDefaultButton.Button2)   =   DialogResult.No   Then   Return  
                                  End   If  
                                  If   rowCount   >   2   Then   Common.Common.OnInfo("开始用颜色来区分奇偶数据行，这可能需要较长的一段时间。请稍候...",   Common.InfoBase.InfoTypeEnum.Working)  
   
                                  Dim   bolP   As   Boolean   =   (((rowCount   -   1)   Mod   2)   =   0)   '减去标头行Count   -   1   True=偶行   Even,False=奇行   Odd  
   
                                  Dim   startD   As   Double   =   Microsoft.VisualBasic.Timer  
                                  Dim   intEBC,   intOBC   As   Int32  
                                  intEBC   =   GetEvenBackColorRGB  
                                  intOBC   =   GetOddBackColorRGB  
   
                                  Dim   intS   As   Int32   =   intStart  
                                  rowCount   +=   intS   -   1  
                                  For   i   =   intStart   To   rowCount  
                                          If   bolP   Then   '偶行  
                                                  .Range(.Cells(i,   1),   .Cells(i,   colCount)).Interior.Color   =   intEBC  
                                          Else   '奇行  
                                                  .Range(.Cells(i,   1),   .Cells(i,   colCount)).Interior.Color   =   intOBC  
                                          End   If  
   
                                          bolP   =   Not   bolP  
                                  Next   i  
   
                                  If   rowCount   >   2   Then   Common.Common.OnInfo("颜色区分奇偶数据行已完成！用时："   &   (Microsoft.VisualBasic.Timer   -   startD).ToString   &   "   秒",   Common.InfoBase.InfoTypeEnum.Message)  
                          End   If  
   
                  End   With  
   
                  With   xlSheet.PageSetup  
                          If   MasterColumnCount   >   6   Then  
                                  If   MasterColumnCount   >   12   Then   .PaperSize   =   Excel.XlPaperSize.xlPaperA3   '超过12列就用A3纸  
   
                                  .Orientation   =   Excel.XlPageOrientation.xlLandscape   '横幅  
   
                          Else  
                                  .Orientation   =   Excel.XlPageOrientation.xlPortrait   '竖幅A4纸  
                          End   If  
   
                          '   .TopMargin   =   1'不改变，因为有Header  
                          '.BottomMargin   =   1  
                          .LeftMargin   =   1  
                          .RightMargin   =   1  
   
                          .CenterHorizontally   =   True   '水平居中对齐  
                          '   .LeftHeaderPicture.Filename   =   Application.StartupPath   &   "\Resources\TRI-T   Icon.gif"  
                          .LeftHeader   =   "&""宋体,Bold""&13"   &   "TRI-T   Company   Limited"   '公司  
                          .CenterHeader   =   "&""宋体,Bold""&13"   &   TitleText     '标题"  
                          .LeftFooter   =   "&""宋体""&10制表人："   &   PreparedBy   '制表人  
                          .CenterFooter   =   "&""宋体""&10制表日期："   &   GetDatasheetDate  
                          .RightFooter   =   "&""宋体""&10第&P页   共&N页"  
                  End   With  
   
          End   Sub  
 

2楼  hdhai9451   (新新人类)  回复于 2005-06-24 10:21:47  得分 0

先謝謝   3tzjq(永不言弃)  
   
  現在我正在做，字體大小已經調整出來

3楼  hdhai9451   (新新人类)  回复于 2005-06-24 10:41:43  得分 0

to:3tzjq(永不言弃)  
   
  .Range(.Cells(1,   1),   .Cells(rowCount   +   1,   colCount)).Borders.LineStyle   =   1   '设表格边框样式  
   
  這個語句得到的是單元格的上下左右邊框都得到，現在我想要的是只得到這個單元格的下邊框，可以嗎？  
 

4楼  3tzjq   (永不言弃)  回复于 2005-06-24 10:56:10  得分 0

to     hdhai9451(New   New   People---新新人类):  
  已发送短消息！

5楼  wangchong   (网虫)  回复于 2005-06-24 11:25:09  得分 5

3tzjq(永不言弃)  
  大哥讲的很详细了，我没什么要说了！！！

6楼  hdhai9451   (新新人类)  回复于 2005-06-24 11:30:33  得分 0

不好意思，我還是調不出來？  
   
  1.這個語句得到的是單元格的上下左右邊框都得到，現在我想要的是只得到這個單元格的下邊框，可以嗎？  
  2.還有單元格內容靠左或居中或靠右  
 

7楼  3tzjq   (永不言弃)  回复于 2005-06-24 13:58:10  得分 0

1，像这样________________对吗？  
        这样就行了。你也可以改成其它样式或颜色。里面有相应参数设置。  
        .Range(.Cells(1,   1),   .Cells(rowCount   +   1,   colCount)).Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle   =   Excel.XlLineStyle.xlContinuous  
   
  2,   .Range(.Cells(1,   1),   .Cells(rowCount   +   1,   colCount)).HorizontalAlignment=excel.XlHAlign.xlHAlignRight'右对齐，可以设成其它对齐方式

转载于:https://www.cnblogs.com/365haha/archive/2006/11/09/555783.html

如何用VB.NET控制Excel單元格裡的內容？相关推荐

  1. VB全面控制Excel方法大汇总

    转自:http://blog.csdn.net/chenjl1031/article/details/8983631 VB全面控制Excel方法大汇总,共300个: 首先创建 Excel 对象,使用C ...

  2. [vb]全面控制 Excel

    引用 http://hi.baidu.com/%D1%A9%C0%C72002/blog/item/cafa80dbf5d5cc61d0164e05.html 下面是EXCEL的: 全面控制 Exce ...

  3. html td线怎么显示,html基礎 table標記 設置邊框線粗細 td標簽 相鄰列/行的單元格合並...

    鎮場詩: 清心感悟智慧語,不着世間名與利.學水處下納百川,舍盡貢高我慢意. 學有小成返哺根,願鑄一良心博客.誠心於此寫經驗,願見文者得啟發. ----------------------------- ...

  4. java读取excel文件单元格英文出现乱码问题的解决方法

    小编今天测试读取excel文件,并且取其中的几个单元格作为文件名称的时候,发现文件名出现了乱码,毫无疑问,肯定就是读取excel的时候,取出来就出现了乱码,如图所示 excel原单元格数据,如图所示 ...

  5. 如何用VB实现Excel文件的自动合并

    闲来无事,编写了一个简单而实用的合并Excel文件的函数,能够将多个XLS文件中指定数量的工作表自动合并到一个XLS文件里.当然,如果只是数据合并,则使用ADO就可以实现,但如果要保留表格格式,则恐怕 ...

  6. VB中对EXCEL的各种操作

    全面控制 Excel 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Applica ...

  7. 如何用VB制作DLL文件

    1.新建一个ActiveX Dll,工程名字为vbmytestdll,类模块名字为mytestdll  2.类模块内容只有一个函数,主要返回DLL的HELLO WORLD  Public Functi ...

  8. python办公自动化excel_简直出神入化，教你用Python控制Excel实现自动化办公

    1.安装 简直出神入化,教你用Python控制Excel实现自动化办公 2.操作一个简单的Excel文档 操作注释及代码: 简直出神入化,教你用Python控制Excel实现自动化办公 操作完成后,数 ...

  9. python做excel自动化可视化-简直出神入化，教你用Python控制Excel实现自动化办公...

    1.安装 简直出神入化,教你用Python控制Excel实现自动化办公 2.操作一个简单的Excel文档 操作注释及代码: 简直出神入化,教你用Python控制Excel实现自动化办公 操作完成后,数 ...

最新文章

  1. Nginx-09：Nginx原理
  2. php万年历月份处理_php实现万年历的完整代码
  3. iOS Hacker obfuscator-llvm Xcode集成配置
  4. Redis有序集合详解
  5. 数据库审计产品购买者指南
  6. 深入理解web.xml中配置/和/*的区别
  7. android 4.0 屏蔽home键实现
  8. 给notepad++添加右键菜单
  9. 第二单元答案计算机基础,《计算机基础》资源包-第二单元课后题答案.docx
  10. 【bzoj5166】[HAOI2014]遥感监测 贪心
  11. git覆盖覆盖推送_强制“git Push”覆盖远程文件
  12. c语言编程多分支,C语言编程（练习4：分支和跳转 ）
  13. 清华大学：模拟电子技术基础
  14. 数学科普书籍介绍(一)
  15. git 查看远程分支、本地分支、创建分支、把分支推到远程repository、删除本地分支
  16. RTC(run time clock)实时时钟
  17. SSM+mysql+微信小程序网易云音乐设计与实现 毕业设计-附源码261620
  18. （四）比较好用的几个翻译软件
  19. 根据经纬度信息画实际地图中的轨迹之百度地图与谷歌地球
  20. 北京高校大学期末试题试卷题库

热门文章

  1. Linux常用命令备忘（启动管理、文件或目录管理、系统管理）
  2. AutoCAD 2010建筑土木制图高清实例视频教程
  3. Java虚拟机内存的代的划分
  4. android mapping.txt,Android根据mapping.txt还原混淆的代码
  5. linux安装 gcc 7.2.0,centos7 安装 gcc-6.2.0
  6. mysql连接池设计_数据库连接池（基于MySQL数据库）
  7. （37）System Verilog线程并行执行(fork-join_any)
  8. FPGA时钟资源PLL与DLL区别
  9. 1.FreeRTOS学习笔记-入门概述
  10. mysql 字段操作_Mysql：数据库操作、数据表操作、字段操作整理