Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] excel 单元格格式 如何用代码设置？


  共有2165人关注过本帖树形打印复制链接

主题：[求助] excel 单元格格式 如何用代码设置？
帅哥哟，离线，有人找我吗？
ybmjy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：444 积分：4859 威望：0 精华：3 注册：2009/7/4 13:40:00 		  发帖心情 Post By：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

    可在上述代码执行完毕后，在相应的单元格中输入数据以查看格式效果。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询