Lọc dữ liệu từ bảng trả về nhiều giá trị hàng (1 người xem)

[Ba Tê]

font chứ thì ổn rồi bạn a. NHƯNG TẠI SHEEET LỌC NẾU LỌC THEO TÊN GIÁO VIÊN THÌ THIẾU CẬP NHẬT TIẾT 9 . mong bạn sửa giùm . cảm ơn bạn

Do ban đầu bạn không có cột thứ, thêm vào 1 cột nhưng trong code "quên" chỉnh lại.
Thay lại bằng Sub này thử xem
[GPECODE=vb]Public Sub LOC_GV()
Dim sArr(), dArr(), TenGV As String, K As Long, I As Long, J As Long
With Sheets("DIEMDANH_GV")
sArr = .Range(.[B5], .[B65536].End(xlUp)).Resize(, 13).Value2
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 12)
With Sheets("LOC")
TenGV = UCase(.[C2])
For I = 1 To UBound(sArr, 1)
If UCase(sArr(I, 1)) = TenGV Then
K = K + 1: dArr(K, 1) = K
For J = 3 To 13
dArr(K, J - 1) = sArr(I, J)
Next J
End If
Next I
.[A4:L100].ClearContents
.[A4:L100].Borders.LineStyle = xlNone
If K Then
.[A4].Resize(K, 12) = dArr
.[A4].Resize(K, 12).Borders.LineStyle = xlContinuous
End If
End With
End Sub[/GPECODE]

 

[huutinh85]

Do ban đầu bạn không có cột thứ, thêm vào 1 cột nhưng trong code "quên" chỉnh lại.
Thay lại bằng Sub này thử xem
[GPECODE=vb]Public Sub LOC_GV()
Dim sArr(), dArr(), TenGV As String, K As Long, I As Long, J As Long
With Sheets("DIEMDANH_GV")
sArr = .Range(.[B5], .[B65536].End(xlUp)).Resize(, 13).Value2
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 12)
With Sheets("LOC")
TenGV = UCase(.[C2])
For I = 1 To UBound(sArr, 1)
If UCase(sArr(I, 1)) = TenGV Then
K = K + 1: dArr(K, 1) = K
For J = 3 To 13
dArr(K, J - 1) = sArr(I, J)
Next J
End If
Next I
.[A4:L100].ClearContents
.[A4:L100].Borders.LineStyle = xlNone
If K Then
.[A4].Resize(K, 12) = dArr
.[A4].Resize(K, 12).Borders.LineStyle = xlContinuous
End If
End With
End Sub[/GPECODE]

CODE này thì sữa lỗi được rồi . cảm ơn ba tê nhiều nhé. thực sự mới đâm đầu vào mò VBA nên nhiều khi nhờ anh e trên diền đàn giúp đỡ ngại quá có người cho mình cái gì cũng hỏi nên đôi khi cũng nản. nhưng thực sự ko biết nên phải nhở mọi người giúp thôi.
mình muốn hỏi ba tê chút chỗ này với nhé. mình đang tiếp tục hoàn thiện 1 file nhưng mình muốn trong sheet TKB mình sẽ tô màu một số cell . khi nhập liệu vào sheet DIEMDANH GV thì sẽ cập tiết màu này vào bảng mà thêm 1 kí tự * được không? cụ thể các bạn có thể xem trong file mình đính kèm dưới đây. cảm ơn ba tê,cảm ơn các bạn