028-实现字体格式替换-疑难千寻千解丛书（VBA）

小妖

ET疑难千寻千解丛书之EXCEL2010编程与实践

罗刚君 章兰新 黄朝阳 编著

疑难28
如何实现字体格式替换

成绩表中有多种字体，如何将其中的10号字替换为红色12号字？

è解决方案

Excel对数据可以替换，对格式也可以替换。只要设置好对应的FindFormat属性和ReplaceFormat属性，利用Range.Replace的“SearchFormat”和“ReplaceFormat”两个参数即可实现替换格式。

í操作方法

步骤1
按【Alt+F11】组合键打开VBE窗口。

步骤2
选择菜单“插入”→“模块”，并输入以下代码：

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

复制代码

步骤3
光标置于代码中任意位置，并按【F5】键执行，C列中10号字的单元格立即替换为12号红色字体，如图所示。

=============================

以上摘自《EXCEL2010编程与实践》

桑树果

{:351:}{:361:}

放浪形骸

谢谢小妖老师的分享啊。。。

老糊涂

《EXCEL2010编程与实践》我已经购买，确实不错，能学到很多

kewin2008

回复 老糊涂 的帖子

多少钱买的？！

UNA123

{:011:}{:011:}{:011:}{:011:}