Gửi bởi
numberone_bn
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
Mình đang tìm hiểu về VBA nhưng mà chưa hiểu được nhiều.Bạn có thể giải thích giúp mình cú pháp của đoạn code trên được không.Chi tiêt 1 chút vì mình đang ở lớp vỡ lòng thôi.Thanks Khuongvietphong nhé.