用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - vb代码库

单元格格式设置汇总

2020-08-16 作者:麒麟举报

[vb]代码库

sub 格式操作()

    Range("A:A").NumberFormatLocal = "@" '文本格式
    Range("B:B").NumberFormatLocal = "yyyy-mm-dd" '日期格式
    Range("C:C").NumberFormatLocal = "[DBNum2][$-804]G/通用格式元整" '人民币大写
    Range("D:D").NumberFormatLocal = "0.00%" '设置单元格为百分比格式
    Range("E:E").NumberFormatLocal ="0.00E+00" '设置单元格为科学记数法格式
   Range("a1:i1").Merge'设置a1:i1合并
   Range("a1").HorizontalAlignment = xlCenter'设置居中对齐’
Range("a1").HorizontalAlignment = xlRight'设置右对齐’
Range("a1").HorizontalAlignment =xlLeft'设置左对齐’


    Range("a1:k100").Clear'清除a1:k100的格式和内容
   Range("a1").ClearContents '清除内容而不清除格式
   Range("a1").ClearFormats '清除格式而不清除内容
With [a2:a6].Font
 .Name = "微软雅黑" '字体
 .Size = 8 '字号
 .Bold = True '加粗
.Italic = True'斜体
 .Color = RGB(255, 0, 255) '字体颜色(255*255*255种色)
.ColorIndex = 3'字体颜色(1 到56)
 End With

With [a2:a6]
.Borders.LineStyle = xlContinuous'设置单元格边框
.Borders.ColorIndex = 48   "设置边框颜色
.Interior.Color = RGB(0, 0, 255)  '背景的颜色蓝色
end with

Columns(1).ColumnWidth =StandardWidth'A列宽为标准列宽
Rows(1).RowHeight =StandardHeight'首行行高为标准行高
end sub


分享到:
更多

网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。