Trong bài viết này, chúng tôi sẽ tạo macro để đánh dấu dữ liệu cho phạm vi ngày đã xác định.

Dữ liệu thô bao gồm các chi tiết hàng ngày của các mặt hàng được bán bởi các đại lý.

ArrowMain

Chỉ định ngày bắt đầu và ngày kết thúc, trước khi chạy macro. Macro lấy giá trị trong ô H8 làm ngày bắt đầu và giá trị trong H9 làm ngày kết thúc. Nhấp vào nút ‘Gửi’ để chạy macro.

ArrowOutput

Dữ liệu giữa các ngày được đề cập đã được đánh dấu bằng màu vàng.

Giải thích logic

Chúng tôi đã tạo macro “Đánh dấu” để làm nổi bật dữ liệu, dựa trên phạm vi ngày được chỉ định. Macro này được liên kết với nút “Gửi”.

Giải thích mã

StartDate = Cells (8, 8) .Value EndDate = Cells (9, 8) .Value Đoạn mã trên được sử dụng để chỉ định ngày bắt đầu và ngày kết thúc.

Đặt Nguồn = Phạm vi (“A1: A” & LastRow)

Đoạn mã trên được sử dụng để khởi tạo dải dữ liệu nguồn.

Đặt Start = Source.Find (CDate (StartDate), LookAt: = xlWhole)

Đoạn mã trên được sử dụng để tìm lần xuất hiện đầu tiên của ngày được chỉ định.

Phạm vi (Ô (Start.Row, 1), Cells (Off.Row, 3)). Chọn Đoạn mã trên được sử dụng để chọn phạm vi đã xác định.

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

Đoạn mã trên được sử dụng để đánh dấu dải ô đã chọn bằng màu vàng.

Vui lòng theo dõi bên dưới để biết mã

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

Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.

Chúng tôi rất muốn nghe ý kiến ​​từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]