如何在 Excel 中突出顯示週末和假日？

在 Excel 中處理日常記錄表時，通常需要將週末或公共假日與普通工作日進行視覺上的區分，以便於數據審查。這種突出顯示對於考勤表、項目時間表或業務日誌特別有用，因為區分工作日和非工作日有助於視覺管理和後續分析。Excel 提供了多種方法來實現這一點，包括條件格式、自定義輔助公式列或使用 VBA 進行更高級的自動化。選擇合適的解決方案可能取決於表格佈局、新數據添加的頻率以及假日列表是否經常變動。

• 使用條件格式突出顯示週末和假日
• Excel 公式 - 使用輔助列標記週末和假日
• VBA 代碼 - 自動陰影週末和假日

使用條件格式突出顯示週末和假日

Excel 的條件格式功能讓您可以自動突出顯示日期記錄中的週末（通常是星期六和星期日）和假日，而無需在數據中寫入任何計算。此方法適合經常查看或更新工作表的用戶，並希望在數據或假日更改時自動更新非工作日的顏色提示。

要為週末和假日設置條件格式，請按照以下步驟操作：

1. 選擇您要突出顯示的日期範圍。 

2. 轉到「Home」選項卡，點擊「Conditional Formatting」，然後選擇「New Rule」以打開規則編輯器。見截圖：

3. 在「New Formatting Rule」對話框中：

• 從規則類型列表中選擇「Use a formula to determine which cells to format」。
• 在公式輸入框中，輸入以下公式：=NETWORKDAYS($A2,$A2,$F$2:$F$6)=0
• 點擊「Format」按鈕以設置您的突出顯示樣式。

4. 在「Format Cells」窗口中，切換到「Fill」選項卡並選擇週末和假日的背景顏色。該顏色用於快速區分非工作日和普通工作日。

5. 點擊「OK」兩次以關閉對話框。您選擇的突出顯示將自動出現在所選區域內匹配週末或列出假日的任何日期上。假期可以隨時通過編輯假日範圍進行更新，格式也會相應更新。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

Excel 公式 – 使用輔助列標記週末和假日

對於希望對顏色編碼有更多控制權或希望按工作日或非工作日排序/篩選的用戶，添加帶有公式的輔助列是一個可靠的選擇。這種技術清楚地將每一行標記為週末、假日或普通日，可用於篩選、手動格式化或總結您的數據。
此方法特別適用於僅靠顏色編碼不足以滿足需求的情況，或者當您想直接統計週末/假日的總數時。

假設您的日期在 A 列中從第 2 行開始，假日列在 F2:F6 中列出。在日期列旁插入一個新列並輸入標題如“Day Type”。

1. 在 B2 單元格（輔助列）中，輸入以下公式：

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

2. 然後向下拖動填充柄以將公式應用於其他行。一旦填滿，可按「Weekend/Holiday」篩選表格以隔離或手動突出顯示這些行。如果需要著色，也可以基於此列應用條件格式。

VBA 代碼 – 自動陰影週末和假日

當您需要經常更新日期範圍，或者希望自動執行突出顯示週末和假日的過程超出公式和條件格式的能力時，使用簡單的 VBA 宏是非常高效的。這對於管理長列表或重複生成工作表的用戶來說非常理想。

使用宏，Excel 將根據您選擇的日期範圍和假日列表立即陰影週末和假日日期。必要時，您可以在代碼中更改突出顯示顏色，並在數據更改時重新運行宏。

1. 點擊 Developer > Visual Basic。在 Microsoft Visual Basic for Applications 窗口中，選擇 Insert > Module。

2. 將以下代碼複製並粘貼到新建的 Module 中：

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) 以使用您喜歡的顏色。

更多相關文章：