Question

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

Answer 1

如果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/

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

1 个答案: