В этой статье мы создадим макрос для выделения данных за указанный диапазон дат.

Необработанные данные представляют собой данные о товарах, проданных агентами за день.

ArrowMain

Перед запуском макроса укажите дату начала и окончания. Макрос принимает значение в ячейке H8 как дату начала и значение в H9 как дату окончания. Нажмите кнопку «Отправить», чтобы запустить макрос.

ArrowOutput

Данные между указанными датами выделены желтым цветом.

Логическое объяснение

Мы создали макрос «Маркировка» для выделения данных на основе указанного диапазона дат. Этот макрос связан с кнопкой «Отправить».

Объяснение кода

StartDate = Cells (8, 8) .Value EndDate = Cells (9, 8) .Value Приведенный выше код используется для указания даты начала и даты окончания.

Установить Source = Range («A1: A» & LastRow)

Приведенный выше код используется для инициализации диапазона исходных данных.

Установите Start = Source.Find (CDate (StartDate), LookAt: = xlWhole)

Приведенный выше код используется для поиска первого появления указанной даты.

Диапазон (Cells (Start.Row, 1), Cells (Off.Row, 3)). Выбрать Приведенный выше код используется для выбора определенного диапазона.

Selection.Interior.Color = RGB (255, 255, 0)

Приведенный выше код используется для выделения выбранного диапазона желтым цветом.

Пожалуйста, следуйте за кодом ниже

Option Explicit

Sub Marking()

'Declaring Variables

Dim Source As Range

Dim Start As Range, Off As Range

Dim StartDate As Date

Dim EndDate As Date

Dim LastRow As Long

'Initializing start and end date

StartDate = Cells(8, 8).Value

EndDate = Cells(9, 8).Value

'Getting the row number of the last cell

LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row

'Initializing the source range

Set Source = Range("A1:A" & LastRow)

'Finding the cell containing first reference of the value

Set Start = Source.Find(CDate(StartDate), LookAt:=xlWhole)

Set Off = Source.Find(CDate(EndDate), LookAt:=xlWhole)

'Selecting the range

Range(Cells(Start.Row, 1), Cells(Off.Row, 3)).Select

'Assigning Yellow color to selection

Selection.Interior.Color = RGB(255, 255, 0)

End Sub

Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]