Excel-如果一行中的单元格小于另一个单元格中的日期,则格式化该行中的单元格

Excel-如果一行中的单元格小于另一个单元格中的日期,则格式化该行中的单元格,excel,conditional-formatting,Excel,Conditional Formatting,好的,如果日期小于另一个单元格,我想让excel电子表格格式化一行中的单元格 e、 g 如果小于A40,则电池B40、C40、D40等变为红色 如果小于A41,则电池B41、C41、D41等变为红色 我希望能够将格式拖到下面的单元格中 在“主页”选项卡上,转到“条件格式”。然后点击新规则。然后选择“使用公式”选项 大致键入以下公式(在这种情况下,您的选择是B40): =(B40您可以使用条件格式设置第一行的格式 条件格式->突出显示单元格规则->小于 然后使用小宏可以将其复制到所选行 Sub N

好的,如果日期小于另一个单元格,我想让excel电子表格格式化一行中的单元格

e、 g

如果小于A40,则电池B40、C40、D40等变为红色

如果小于A41,则电池B41、C41、D41等变为红色

我希望能够将格式拖到下面的单元格中

在“主页”选项卡上,转到“条件格式”。然后点击新规则。然后选择“使用公式”选项

大致键入以下公式(在这种情况下,您的选择是B40):


=(B40您可以使用条件格式设置第一行的格式

条件格式->突出显示单元格规则->小于

然后使用小宏可以将其复制到所选行

Sub NewCF()
    Range("B1:D1").Copy
    For Each r In Selection.Rows
        r.PasteSpecial (xlPasteFormats)
    Next r
    Application.CutCopyMode = False
End Sub  

它通过将第一行的格式复制到所选内容中的每一行(一行一行,而不是全部)来实现这一点。将B1:D1替换为对数据表中第一行的引用。

Brilliant!:)我想您不知道有什么方法可以防止用户“拖动”格式并将其全部搞糟?只有在保护工作表的情况下,然后锁上牢房。。。(注意,别忘了将其标记为已回答)。
Sub NewCF()
    Range("B1:D1").Copy
    For Each r In Selection.Rows
        r.PasteSpecial (xlPasteFormats)
    Next r
    Application.CutCopyMode = False
End Sub