Các bạn giúp tôi về hàm match
- Nếu mà không có thì báo không tìm ra
- Nếu có thì MsgBox
2/Có thể bỏ bớt
NgayDau = S11.Range("C2")
NgayCuoi = S11.Range("C3")
Vì các biến này lấy từ formBCNV, ie không cần dùng cells trung gian mà gán thẳng vào Sub trên để chạy luôn.
Xin cám ơn.
1/Làm thế nào hiểu DongDau theo hàm match trênSub LayDongDau()
Dim NgayCuoi As Date, NgayBH As Range, MaNVBH As Range
Dim NgayDau As Date
S11.Select
NgayDau = S11.Range("C2")
NgayCuoi = S11.Range("C3")
MaNV = S11.Range("D2")
Set NgayBH = S01.Range("E3", S01.Range("E65536").End(xlUp))
Set MaNVBH = S01.Range("d3", S01.Range("d65536").End(xlUp))
DongCuoi = NgayBH.Rows.Count + 2
DongDau = ActiveSheet.WorksheetFunction.Match(NgayDau, NgayBH, 1)
MsgBox DongDau
End Sub
- Nếu mà không có thì báo không tìm ra
- Nếu có thì MsgBox
2/Có thể bỏ bớt
NgayDau = S11.Range("C2")
NgayCuoi = S11.Range("C3")
Vì các biến này lấy từ formBCNV, ie không cần dùng cells trung gian mà gán thẳng vào Sub trên để chạy luôn.
Các Bạn xem qua file, càng lấn vào VBA càng thấy mình o biết gì cả.Private Sub CBOK1_Click()
With S11
.Range("C2") = DateSerial(Year(Me.NgayDau), Month(Me.NgayDau), Day(Me.NgayDau))
.Range("C3") = DateSerial(Year(Me.NgayCuoi), Month(Me.NgayCuoi), Day(Me.NgayCuoi))
End With
End Sub
Xin cám ơn.