VBA替换字体格式

替换字体格式

当一张数据表里有多种字体格式,比如有10号字体,11号,15号,那如何将10号字体转换成12号字体,并标记为红色。

也许有童鞋会说,那还不简单,一个个改就是了。

是的!这是一个方案。数据量少是很方便,倘若10号字体的数据有上千个,你会认为手动修改是最简便的吗?

分享个宏代码:

  1. Sub 替换字体格式()   
  2.   Application.FindFormat.Clear     
  3.   Application.ReplaceFormat.Clear     
  4.   Application.FindFormat.Font.Size = 10  ‘查找10号字体   
  5.   Application.ReplaceFormat.Font.ColorIndex = 3  ‘替换为红色字体色   
  6.   Application.ReplaceFormat.Font.Size = 12  ‘替换为12号字体   
  7.   [B:B].Replace What:="", Replacement:="", LookAt:=xlPart, SearchFormat:=True, ReplaceFormat:=True   
  8. End Sub  

B:B代表在B列的数据中查找并替换,上面的参数完全可以自定义,如表格均为同一字体时,那就代表全部替换。

当然执行这个代码,也可挂到控件按钮来执行!

发挥想象吧!

分享到:

7 条评论

点击这里取消回复。
注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 郑州白癜风

    感谢博主的分享,我去使用一下。

  2. 卸妆油

    这个工具不错,很给力

  3. 加盟

    哇!博主写得不错呀!其实我就什么都看不懂!嘿嘿!

  4. 沈阳白癜风医院

    来支持下

  5. 宁波心理咨询师

    偷偷的来了,静悄悄的走了,给你顶下,有空回访。

  6. 阿瑶

    哈哈哈,看到美女了

    1. Kael.Z

      又是来看美女的……