VBA案例精选 批量设置单元格格式

2021年4月11日10:43:43VBA案例精选 批量设置单元格格式已关闭评论 53 views
微信公众号 【EXCEL880】 QQ群【165159540】 Excel课程咨询 请加郑广学老师微信EXCEL880B

代码运行结果:

VBA案例精选 批量设置单元格格式

代码截图:

VBA案例精选 批量设置单元格格式

代码文本:

Public Sub 技巧()
    Dim myRange As Range
    Set myRange = Range("A1:F3")        '指定任意单元格区域
    MsgBox "下面将单元格区域 " & myRange.Address(False, False) _
        & " 的格式删除。"
    myRange.ClearFormats    '删除格式
    MsgBox "下面将单元格区域 " & myRange.Address(False, False) _
        & " 自动套用<会计1>的格式。"
    myRange.AutoFormat xlRangeAutoFormatAccounting1
    Set myRange = Nothing
End Sub

注释:

设置单元格格式不只可以设置为会计,日期等均可以设置,根据既定的格式更改代码,变成自己所需要的格式内容。

VBA编辑神器放送

VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度,降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐  VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接:http://excel880.com/blog/archives/11297

VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录