时间戳

首页 > 解决方案 > 从活动单元格选择到上面的特定单元格

excel - 从活动单元格选择到上面的特定单元格

问题描述

实际上我是宏的新手。我正在处理一份报告，我正在为其准备宏，但无法编写特定功能的代码。有人可以帮我编码。- Excel 有一个数据，其中 A 列包含“日期”，B 列具有数字值，标题为“Sample1”等。我正在寻找一个代码，它在 A 列中找到当前日期并使用从范围 activecell（当前日期）到 A2 上方（标题下方）和直到 D 列（右侧）的颜色进行选择。

标签： excelvba

解决方案

如果 A 列日期按升序排序，那么您可以使用以下代码或根据您的要求修改代码。（在我的情况下，当按钮单击以下代码运行时）

Private Sub CommandButton1_Click()
    Cells(1, 1) = Now
    Dim Row As Long, Col As Long
    Row = 2
    Do While Cells(Row, 1).Value <> ""
        If Cells(Row, 1).Value <= Date Then
            For Col = 1 To 4
                'Cells(Row, Col).Font.Color = vbRed   //Change font colour
                Cells(Row, Col).Interior.Color = vbRed  '//Change background color
            Next
            If Cells(Row, 1).Value = Date Then
                Exit Do
            End If
        Else
            For Col = 1 To 5
                Cells(Row, Col).Interior.ColorIndex = 0 '//Reset background color
            Next
        End If
        Row = Row + 1
    Loop
End Sub

对于分配给单元格的不同颜色，请在此处检查：https ://access-excel.tips/excel-vba-color-code-list/

推荐阅读