Excel中的条件格式可以非常直观地显示某些特定的数据，功能十分强大。但条件格式也有一些限制，例如无法通过条件格式设置字体和字号。如果要根据条件来改变单元格中字体或字号，可以用VBA来实现。下面的VBA代码将指定区域（H2:H500）中大于5000而小于10000的数值设置为“黑体”、“16”，而将指定区域中其他单元格的字体和字号设置为“宋体”、“11”。
Sub ConditionalFont()Dim rCell As RangeDim Rng As RangeSet Rng = Range("H2:H500")Application.ScreenUpdating = FalseFor Each rCell In RngWith rCellIf .Value > 5000 And .Value < 10000 Then.Font.Name = "黑体".Font.Size = 16Else.Font.Name = "宋体".Font.Size = 11End IfEnd WithNextApplication.ScreenUpdating = TrueEnd Sub
使用方法是：按Alt +F11，打开VBA编辑器，在“工程”窗口中选择需要设置的工作表，在代码窗口中粘贴上述代码。然后返回到Excel工作表界面，按Alt+F8打开“宏”对话框，选择上述代码第一行的宏名称运行即可。
当区域中的内容更改后，上述代码还不能实现自动设置字体字号的功能。要实现这种类似条件格式的效果，可以加上下面的VBA代码：
Private Sub Worksheet_Change(ByVal Target As Range)On Error Resume NextDim rCell As RangeDim Rng As RangeDim dRng As RangeSet Rng = Range("H2:H500")'设置dRng为Target的从属区域，仅对本工作表中的引用有效Set dRng = Range(Target.Dependents.Address)'如果从属区域包含在指定区域中If Not Intersect(dRng, Rng) Is Nothing ThenFor Each rCell In Intersect(dRng, Rng)SetFont rCellNextEnd If'如果直接在指定区域中更改If Union(Target, Rng).Address = Rng.Address ThenFor Each rCell In TargetSetFont rCellNextEnd IfEnd Sub
Function SetFont(rRange As Range)With rRangeIf .Value > 5000 And .Value < 10000 Then.Font.Name = "黑体".Font.Size = 16Else.Font.Name = "宋体".Font.Size = 11End IfEnd WithEnd Function
由WPS之家(wps.qiangguoshuo.com)收集的该篇文章内容来源于网络，希望能为广大朋友提供帮助。
这样当区域中的数值更改或区域中的公式重新计算后，会按照条件自动设置字体和字号。
说明：
1.代码中用到Range.Dependents属性，该属性不能追踪远程引用，因而仅当指定区域中的公式中包含本工作表的引用时有效。
2.添加上述VBA代码后，当指定区域中的内容更改后VBA代码会自动运行，这将导致无法撤消或恢复。
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
