Выберите из активной ячейки выше определенной ячейки

Question

На самом деле я новичок в макросе. Я обрабатывал отчет, для которого готовил макрос, но не смог написать конкретную функцию. Может кто-нибудь, пожалуйста, помогите мне с кодированием. - В Excel есть данные, где столбец A содержит «дату», столбец B имеет числовое значение с заголовком «Sample1» и т. Д. Я ищу код, который находит текущую дату в столбце A и делает выбор с цветом от диапазона activecell (текущая дата) до уровня выше A2 (чуть ниже заголовка) и до столбца D (справа).

Answer 1

Если столбец Дата отсортирован в порядке возрастания, то вы можете использовать следующий код или изменить код в соответствии с вашими требованиями. (В моем случае, когда кнопка нажимает после запуска кода)

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 /