如何在Excel中突出显示周末和节假日？

在Excel中处理日常记录表时，通常需要直观地区分周末或公共假日与普通工作日，以便于数据审查。这种高亮显示对于考勤表、项目时间表或业务日志尤其有用，因为区分工作日和非工作日有助于视觉管理和后续分析。Excel提供了多种实现方法，包括条件格式、自定义辅助公式列，或者使用VBA进行更高级的自动化。选择合适的解决方案可能取决于表格布局、新数据添加的频率以及节假日列表是否经常变化。

• 使用条件格式突出显示周末和节假日
• Excel公式 - 使用辅助列标记周末和节假日
• VBA代码 - 自动为周末和节假日着色

使用条件格式突出显示周末和节假日

Excel的条件格式功能可以自动突出显示日期记录中的周末（通常是周六和周日）和节假日，而无需在数据中写入任何计算公式。此方法适用于频繁查看或更新工作表的用户，并且当数据或节假日发生变化时，非工作日的颜色提示会即时更新。

要设置周末和节假日的条件格式，请按照以下说明操作：

1. 选择要突出显示的日期范围。 

2. 转到“开始”选项卡，点击“条件格式”，然后选择“新建规则”以打开规则编辑器。见截图：

3. 在“新建格式规则”对话框中：

• 从规则类型列表中选择“使用公式确定要设置格式的单元格”。
• 在公式输入框中，输入以下公式：=NETWORKDAYS($A2,$A2,$F$2:$F$6)=0
• 点击“格式”按钮以设置高亮样式。

4. 在“设置单元格格式”窗口中，切换到“填充”选项卡并为周末和节假日选择背景颜色。此颜色可快速区分非工作日和普通工作日。

5. 单击两次“确定”关闭对话框。所选区域内符合周末或列出的节假日的日期将自动显示您选择的高亮显示。您可以随时通过编辑节假日范围来更新节假日，格式也会相应更新。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

Excel公式 - 使用辅助列标记周末和节假日

对于希望对颜色编码有更多控制权或希望按工作日或非工作日排序/筛选的用户，添加带有公式的辅助列是一个可靠的选择。该技术清楚地标记每一行为周末、节假日或普通日，可用于筛选、手动格式化或汇总数据。
此方法在仅靠颜色编码不足以满足需求的情况下特别有用，或者当您想直接统计周末/节假日总数时。

假设您的日期在A列中从第2行开始，节假日列在F2:F6。在日期列旁边插入一个新列，并输入标题如“日类型”。

1. 在B2单元格（辅助列）中，输入以下公式：

=IF(OR(WEEKDAY(A2,2)>=6,COUNTIF($F$2:$F$6,A2)>0),"Weekend/Holiday","Workday")

2. 然后拖动填充柄向下应用公式到其他行。一旦填充完毕，可以通过“周末/节假日”筛选表格以隔离或手动高亮显示这些行。如果需要颜色显示，还可以基于此列应用条件格式。

VBA代码 - 自动为周末和节假日着色

当您需要频繁更新日期范围，或者希望超越公式和条件格式所能做的自动化突出显示周末和节假日时，使用简单的VBA宏非常高效。这对于管理较长列表或重复生成工作表的用户来说是理想的。

借助宏，Excel将根据您选择的日期范围和节假日列表自动为您着色周末和节假日日期。您可以在代码中根据需要更改高亮颜色，并在数据发生变化时重新运行宏。

1. 点击“开发工具”>“Visual Basic”。在Microsoft Visual Basic for Applications窗口中，选择“插入”>“模块”。

2. 将以下代码复制并粘贴到新创建的模块中：

Sub ShadeWeekendsAndHolidays()
    Dim rngDates As Range
    Dim rngHolidays As Range
    Dim cell As Range
    Dim xTitleId As String
    
    xTitleId = "KutoolsforExcel"
    On Error Resume Next
    Set rngDates = Application.InputBox("Select the range with dates:", xTitleId, Selection.Address, Type:=8)
    Set rngHolidays = Application.InputBox("Select the range with holiday dates:", xTitleId, , Type:=8)
    On Error GoTo 0
    
    If rngDates Is Nothing Then Exit Sub
    If rngHolidays Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    
    For Each cell In rngDates
        If IsDate(cell.Value) Then
            If Weekday(cell.Value, vbMonday) >= 6 Or Not IsError(Application.Match(CDbl(cell.Value), rngHolidays, 0)) Then
                cell.Interior.Color = RGB(255, 199, 206) ' Light red fill; adjust as needed
            Else
                cell.Interior.ColorIndex = xlNone ' Remove fill from regular days
            End If
        End If
    Next cell
    
    Application.ScreenUpdating = True
End Sub

3. 按F5键运行此代码，系统将提示您选择日期单元格，然后选择节假日单元格。请按照屏幕指示操作。

该宏使用填充颜色突出显示周末（周六/周日）和节假日（根据您的列表）。如果需要，可以在代码中调整RGB(255,199,206)以使用您喜欢的颜色。

更多相关文章：