基于下一个单元格值的Excel VBA条件格式

Question

我正在尝试在Excel中针对字体大小进行一些条件格式设置，但由于无法从格式菜单中完成，因此需要使用VBA完成。

我有一个范围为B6的行，但是行数很多，我想查看它旁边的单元格，看看它是否为空白（C列）。 如果是，则将单元格格式化为粗体和11pt。 如果不是空白，则必须为9pt。

目前，我的代码仅使最后一行的粗体和11pt以及该列的其余部分，即使C列为空也将是正常的9pt。

怎么了？ 顺便说一句我正在使用Excel 2003

Dim c As Range, rng
Dim LASTROW As Long

LASTROW = Cells(Rows.Count, 1).End(xlUp).Row

Set rng = Range("B6:B" & LASTROW)
For Each c In rng
    If Len(c.Offset(1, 0)) = 0 Then
        c.Font.Bold = True
        c.Font.Size = 11
    Else
        c.Font.Bold = False
        c.Font.Size = 9
    End If
Next c

Answer 1

您的偏移参数是向后的。 您正在检查当前单元格下面的单元格。

Answer 2

请注意，诀窍是使用单一规则，为左上角的单元格编码

Answer 3

这不需要宏-您可以使用条件格式中的公式来实现。

假设您要在C列的单元格值为“红色”时以红色突出显示B列中的相邻单元格：

=IF(C6="Red",TRUE,FALSE)

然后像往常一样用填充手柄填充

规则编辑器（2007）：