Excel VBA自动筛选昨天日期(不包括周末)

Excel VBA自动筛选昨天日期(不包括周末)

在Excel VBA中，可以使用以下代码来自动筛选昨天的日期，同时排除周末：

Sub FilterYesterday()
    Dim yesterday As Date
    Dim lastRow As Long
    Dim i As Long
    
    yesterday = Date - 1 ' 获取昨天的日期
    
    ' 确定数据范围的最后一行
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历日期列，筛选出昨天的日期（不包括周末）
    For i = 2 To lastRow ' 假设日期列从第2行开始
        If Cells(i, 1).Value = yesterday And Weekday(Cells(i, 1).Value) <> 1 And Weekday(Cells(i, 1).Value) <> 7 Then
            Rows(i).EntireRow.Hidden = False ' 显示符合条件的行
        Else
            Rows(i).EntireRow.Hidden = True ' 隐藏不符合条件的行
        End If
    Next i
End Sub

这段代码首先获取昨天的日期，然后遍历日期列，判断每个单元格的日期是否等于昨天，并且不是周末（周六和周日）。如果符合条件，则显示该行，否则隐藏该行。

这个功能可以应用于需要筛选昨天日期的数据，同时排除周末的场景，例如日报、销售数据等。

腾讯云相关产品和产品介绍链接地址：

• 腾讯云服务器（CVM）：提供可扩展的云服务器实例，满足不同规模和业务需求。产品介绍链接
• 腾讯云数据库（TencentDB）：提供高性能、可扩展的数据库服务，包括云数据库 MySQL、云数据库 PostgreSQL 等。产品介绍链接
• 腾讯云对象存储（COS）：提供安全、稳定、低成本的云端存储服务，适用于图片、音视频、文档等各种类型的数据存储。产品介绍链接
• 腾讯云人工智能（AI）：提供丰富的人工智能服务，包括图像识别、语音识别、自然语言处理等，帮助开发者构建智能化应用。产品介绍链接
• 腾讯云物联网（IoT）：提供全面的物联网解决方案，包括设备接入、数据管理、应用开发等，帮助实现设备互联互通。产品介绍链接
• 腾讯云区块链（BCS）：提供安全、高效的区块链服务，支持快速搭建和部署区块链网络，适用于金融、供应链等领域。产品介绍链接
• 腾讯云视频处理（VOD）：提供视频上传、转码、截图、水印等功能，帮助用户实现视频的存储和处理。产品介绍链接
• 腾讯云音视频通信（TRTC）：提供实时音视频通信服务，支持多人音视频通话、互动直播等场景。产品介绍链接
• 腾讯云云原生应用平台（TKE）：提供容器化应用的部署、管理和扩展能力，支持快速构建云原生应用。产品介绍链接

以上是腾讯云提供的一些相关产品，可以根据具体需求选择适合的产品来支持云计算和开发工作。