如果您没有编码经验,这有点复杂。解决这个问题的最好方法是自己编写一个 VBA 脚本。所以我将一步一步地用完整的代码来做这件事。
1) 打开您的 Excel 文件,然后转到“开发人员”选项卡。
(如果您没有看到它,请转到 File->Options,单击 Customize Ribbon,然后在主选项卡上添加单击 Developer。
2) 单击开发人员选项卡下的 Visual Basic 按钮。
3a) 粘贴以下代码:
Sub ColorCellsWithIncorrectEndDate()
Dim Rows
Rows = ActiveSheet.UsedRange.Rows.Count
For i = 2 To Rows
If Cells(i, 2).Value > Cells(i, 3).Value Then
Cells(i, 3).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next
End Sub
3b) 如果您的 Excel 工作表与上面列出的格式完全相同,则上述代码有效。
--如果单元格不在同一列中,那么您将调整“Cells(i,#)”中的数字,使数字与列相对应。 (即 A=1,B=2,C=3...)。现在它正在检查 B 列(开始日期)是否大于 C 列(结束日期)。如果为真,则为单元格 C 着色。
--如果单元格不在正确的行中,则调整显示“For i = # To Rows”的行,数字直接对应于行号。
--如果您想要不同的颜色,请访问此网站:http://www.w3schools.com/tags/ref_colorpicker.asp,并将“65535”替换为任何一个有效数字。
4) 保存并退出 Visual Basic
5) 返回您的 Excel 工作表并单击 Developer->Macros。 (会出现一个对话框)
6) 在对话框中选择“ColorCellsWithIncorrectEndDate”,然后单击“运行”。
7) 所有超过开始日期的结束日期都将以黄色(或您选择的任何颜色)突出显示
希望这会有所帮助!
-致盲雾