找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 3169|回复: 0
打印 上一主题 下一主题
收起左侧

excel自动将后两位数加粗并设为黑体

[复制链接]
跳转到指定楼层
楼主
ID:81203 发表于 2015-5-27 01:11 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
自动将后两位数加粗并设为黑体(QZ原创,记录用)


代码如下:
Sub Qz1()   
    With ActiveCell.Characters(Start:=1, Length:=11).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 20
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=12, Length:=2).Font
        .Name = "黑体"
        .FontStyle = "加粗"
        .Size = 20
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End Sub

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶 踩
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表