以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] excel 单元格格式 如何用代码设置?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116393)

--  作者:cbt
--  发布时间:2018/3/23 18:27:00
--  [求助] excel 单元格格式 如何用代码设置?
 客户突然要求 EXCEL 单元格格式 指定用 文本 的格式!没找到设置的方法!
手动设置是:
选中你要设置的单元格,点右键---设置单元格格式----数字选项卡里默认选中的是常规,你把它选成文本,点确定

狐表如何用代码设置?

sheet.Cols(i).。。

--  作者:ybmjy
--  发布时间:2018/3/23 18:38:00
--  
  • 单元格格式是通过NumberFormat或NumberFormatLocal属性来完成的。例如:

    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Ws.Range("A1").NumberFormat = "G/通用格式" \'通用格式
    Ws.Range("B1").NumberFormat = "0_ "   \'数值
    Ws.Range("C1").NumberFormat = "#,##0.00_);[红色](#,##0.00)" \'货币
    Ws.Range("D1").NumberFormat = "_ * #,##0.00_;_ * -#,##0.00_ ;_ * ""-""??_ ;_ @_ " \'会计专用
    Ws.Range("E1").NumberFormat = "yyyy-m-d" \'日期
    Ws.Range("F1").NumberFormat = "h:mm:ss"  \'时间
    Ws.Range("G1").NumberFormat = "0.00%"    \'百分比
    Ws.Range("H1").NumberFormat = "# ?/?"    \'分数
    Ws.Range("I1").NumberFormat = "0.00E+00" \'科学记数
    Ws.Range("J1").NumberFormat = "@"   \'文本
    App.Visible = True

    可在上述代码执行完毕后,在相应的单元格中输入数据以查看格式效果。

--  作者:cbt
--  发布时间:2018/3/23 19:30:00
--  
 谢谢,已解决