Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 417|回复: 2

[已解决] 如何用VBA把【】中的字体变颜色?

[复制链接]
发表于 2019-11-28 15:55 | 显示全部楼层 |阅读模式
本帖最后由 李冰峰 于 2019-11-28 16:08 编辑



截屏2019-11-28下午3.46.18.png



我想把文中【】号中的文字加粗并变颜色,用VBA如何实现啊?
谢谢...

刑诉法条汇总vba.xlsm.zip (259.14 KB, 下载次数: 2)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2019-11-28 17:06 | 显示全部楼层
Dim s As Integer, s2 As Integer, rg
  For Each rg In Range("a1").CurrentRegion
    s = 0: s2 = 1
    Do
1       s = VBA.InStr(s2, rg, "【")
        If s = 0 Then Exit Do Else s2 = VBA.InStr(s, rg, "】")  '没有了退出,不然就查找】
        If s2 - s = 1 Then GoTo 1   '括号里面没有字符重新查询
            With rg.Characters(Start:=s + 1, Length:=s2 - s - 1).Font
                .FontStyle = "加粗"
                .Color = -16776961  '红色
            End With
     Loop
  Next rg
回复

使用道具 举报

 楼主| 发表于 2019-11-29 06:04 | 显示全部楼层
0126 发表于 2019-11-28 17:06
Dim s As Integer, s2 As Integer, rg
  For Each rg In Range("a1").CurrentRegion
    s = 0: s2 = 1

太感谢了...
回复

使用道具 举报

*滑块验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2020-9-19 13:32 , Processed in 0.040000 second(s), 5 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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