Gửi bởi
numberone_bn
Cảm ơn bác be09 đã góp ý.E còn gà excel chưa biết nhiều.Mong ae chỉ bảo.E làm XD, đang cần viết nhật ký từng ngày mà đây là viết lại nhé.Mỗi công việc lại diễn ra trong 1 khoảng thời gian nhất định.Nếu ngồi dò từng ngày thủ công thì nhầm là cái chắc nên e muốn sắp xếp công việc diễn ra theo trong từng ngày 1.Nếu bác có góp ý thêm thì chỉ cụ thể thêm chút cho e nhé.Thanks ạ!
Bạn dùng đoạn Code này:
Mã:
Public Function kq(vung As Date) As String
Dim i As Long
For i = 4 To Sheet1.[B1000].End(3).Row
If Sheets("Tong hop").Cells(i, 3).Value <= vung And Sheets("Tong hop").Cells(i, 4).Value >= vung Then
kq = kq & "; " & Sheets("Tong hop").Cells(i, 2).Value
End If
Next i
kq = Right(kq, Len(kq) - 1)
End Function
Tuy nhiên, trong File của bạn cần sửa lại chỗ D47 và D48 trong Sheet Tong hop thì mới ra kết quả được. Hiện tại nó vẫn bị lỗi ở chỗ đó ( bạn để ý nó đang có mũi tên 2 chiều màu xanh chỉ vào 2 ô đó, bạn tử sửa lại cái này nha)