VBA替换字体格式

• VBA • 7 条评论 • •7,211 次查阅

替换字体格式

当一张数据表里有多种字体格式，比如有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

      又是来看美女的……