VBA獲取A列當天日期和明天日期將整行顯示高亮

您！针对您的问题，可以使用VBA的Date函数来获取当前日期和明天的日期，然后使用条件格式将符合条件的行高亮显示。以下是实现该功能的示例代码：

Sub HighlightTodayAndTomorrow()
    Dim todayDate As Date
    Dim tomorrowDate As Date
    Dim lastRow As Long
    Dim i As Long
    
    todayDate = Date
    tomorrowDate = Date + 1
    
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 1 To lastRow
        If Cells(i, 1).Value = todayDate Or Cells(i, 1).Value = tomorrowDate Then
            Rows(i).Interior.ColorIndex = 6 '将符合条件的行背景色设为黄色
        Else
            Rows(i).Interior.ColorIndex = xlNone '取消背景色
        End If
    Next i
End Sub

这段代码会将当前工作表中第一列中日期等于今天或明天的行高亮显示为黄色。您可以根据需要修改代码中的条件和颜色设置。

相关问题

VBA判斷A列中日期如果距離現在的日期有5天的，就刪除整行

以下是根据A列中的日期与当前日期相差5天进行判断，并删除整行的示例VBA代码：

Sub DeleteRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rng As Range
    Dim cell As Range
    Dim currentDate As Date
    
    ' 设置要操作的工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改为实际的工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set rng = ws.Range("A1:A" & lastRow)
    
    ' 获取当前日期
    currentDate = Date
    
    ' 循环遍历范围内的每个单元格
    For Each cell In rng
        ' 检查A列单元格中的日期是否与当前日期相差5天
        If cell.Value - currentDate >= 5 Then
            ' 如果是，则删除整行
            cell.EntireRow.Delete
        End If
    Next cell
End Sub

请将`"Sheet1"`替换为实际的工作表名称。上述代码会循环遍历A列中的每个单元格，判断其日期与当前日期相差是否大于等于5天。如果是，则删除对应行。请注意，删除行会导致数据上下移动，请确保在运行代码之前备份数据。

VBA判斷A列中日期如果距離現在的日期網前面5天以上的，就刪除整行

您可以使用VBA编写以下代码来实现您的要求：

Sub DeleteRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentDate As Date
    Dim checkDate As Date
    Dim rng As Range
    Dim i As Long
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为您要操作的工作表名称
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 获取当前日期
    currentDate = Date
    
    ' 循环检查每一行的日期
    For i = lastRow To 1 Step -1
        checkDate = ws.Cells(i, "A").Value
        
        ' 判断日期是否超过5天
        If currentDate - checkDate >= 5 Then
            ' 删除整行数据
            If rng Is Nothing Then
                Set rng = ws.Rows(i)
            Else
                Set rng = Union(rng, ws.Rows(i))
            End If
        End If
    Next i
    
    ' 删除选定的行
    If Not rng Is Nothing Then rng.Delete
End Sub

请注意，您需要将代码中的"Sheet1"替换为您要操作的工作表名称。在运行代码之前，请确保保存工作簿。此代码将会删除符合条件的整行数据。