您的位置: 首页 > EXCEL技巧 > ExcelVBA >

用VBA实现类似条件格式改变字体字号的效果

时间:2013-12-10 整理:docExcel.net

Excel中的条件格式可以非常直观地显示某些特定的数据,功能十分强大。但条件格式也有一些限制,例如无法通过条件格式设置字体和字号。如果要根据条件来改变单元格中字体或字号,可以用VBA来实现。下面的VBA代码将指定区域(H2:H500)中大于5000而小于10000的数值设置为“黑体”、“16”,而将指定区域中其他单元格的字体和字号设置为“宋体”、“11”。

Sub ConditionalFont()
Dim rCell As Range
Dim Rng As Range
Set Rng = Range("H2:H500")
Application.ScreenUpdating = False
For Each rCell In Rng
  With rCell
If .Value > 5000 And .Value < 10000 Then
.Font.Name = "黑体"
.Font.Size = 16
Else
.Font.Name = "宋体"
.Font.Size = 11
End If
  End With
Next
Application.ScreenUpdating = True
End Sub

使用方法是:按Alt +F11,打开VBA编辑器,在“工程”窗口中选择需要设置的工作表,在代码窗口中粘贴上述代码。然后返回到Excel工作表界面,按Alt+F8打开“宏”对话框,选择上述代码第一行的宏名称运行即可。

当区域中的内容更改后,上述代码还不能实现自动设置字体字号的功能。要实现这种类似条件格式的效果,可以加上下面的VBA代码:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim rCell As Range
Dim Rng As Range
Dim dRng As Range
Set Rng = Range("H2:H500")
'设置dRng为Target的从属区域,仅对本工作表中的引用有效
Set dRng = Range(Target.Dependents.Address)
'如果从属区域包含在指定区域中
If Not Intersect(dRng, Rng) Is Nothing Then
For Each rCell In Intersect(dRng, Rng)
 SetFont rCell
Next
End If
'如果直接在指定区域中更改
If Union(Target, Rng).Address = Rng.Address Then
For Each rCell In Target
  SetFont rCell
Next
End If
End Sub

Function SetFont(rRange As Range)
With rRange
If .Value > 5000 And .Value < 10000 Then
   .Font.Name = "黑体"
   .Font.Size = 16
Else
   .Font.Name = "宋体"
   .Font.Size = 11
End If
End With
End Function

这样当区域中的数值更改或区域中的公式重新计算后,会按照条件自动设置字体和字号。

说明:

1.代码中用到Range.Dependents属性,该属性不能追踪远程引用,因而仅当指定区域中的公式中包含本工作表的引用时有效。

2.添加上述VBA代码后,当指定区域中的内容更改后VBA代码会自动运行,这将导致无法撤消或恢复。

如何更改Excel2007里面的字号或字体 问题:如何更改Excel2007里面的字号或字体
回答: 可以更改Excel2007工作表中选定单元格或区域的字体字号。还可以更改在新工作簿中使用的默认 (默认:预定义设置。可接受默认选项设置,或者可对其进行更改以适合自己的爱好。)字体字号。 更改工作表中的字体字号 1...
怎么样修改Word2003输入的默认字号和字体 问题:怎么样修改Word2003输入的默认字号和字体
回答: 大家都知道,在Word2003中输入字符的字号默认一般是五号。但在许多情况下,我们会将字号设置更大或更小来满足个人需要。比如眼睛不好的朋友,习惯将字号设置大些。对此,Excel办公网提供一种设置默认字号的方法,设置好...
Word2007技巧:修改页码的字体和字号 问题:Word2007技巧:修改页码的字体和字号
回答:1、双击Word文档中某页的页眉、页脚或页边距。 2、选择页码。 3、在所选页码上方显示的微型工具栏上,请执行下列操作之一: -要更改字体,请单击框中的字体名。 -要使字体更大或更小,请执行下列操作之一: -要使字体...
方正飞腾4.1表格中的字体字号怎样调整 问题:方正飞腾4.1表格中的字体字号怎样调整
回答:这种排版与普通的所见即所得不同,它是用命令方式排版的,根据命令来确定字体的大小,这就要凭经验来确定,如果调整就是改排版命令的数字就可以改大小了。
Word2003文档怎么放大字体 让他无限放大 问题:Word2003文档怎么放大字体 让他无限放大
回答:...中需要放大的字,然后在“格式”工具栏中的“字号”里面输入72以上的数字,比如这里我输入“150”,然后按“回车键”,这时字体立马变成150字号的超大字体。(如下图,在红色线内输入想要的字号...
Word2003字体大小的设置技巧 问题:Word2003字体大小的设置技巧
回答:...要调整的文字,然后点击“常规”工具栏中的“字号”三角下拉菜单,来调整字体的大小。(记住,字体字号越小,字符就越大。) 方法二、选种需设置大小的字体,右键-->字段,在“字体”中,我们可...
相关推荐: