Em muốn chọn nhiều trường hợp của cùng điều kiện lọc. File của em viết code có nhiều điều kiện đồng thời nhưng không thể chọn nhiều trường hợp của cùng một điều kiện. Em có mô tả trong file ạ. Em có đọc code trong bài "Lọc dữ liệu-chứa nhiều điều kiện lọc?" nhưng em chưa thể vận dụng lại theo bài và code của em được. Anh/chị xem giúp em ạ.
Em muốn chọn nhiều trường hợp của cùng điều kiện lọc. File của em viết code có nhiều điều kiện đồng thời nhưng không thể chọn nhiều trường hợp của cùng một điều kiện. Em có mô tả trong file ạ. Em có đọc code trong bài "Lọc dữ liệu-chứa nhiều điều kiện lọc?" nhưng em chưa thể vận dụng lại theo bài và code của em được. Anh/chị xem giúp em ạ.
Tạo vùng đệm lưu các điều kiện nơi phát hành, code lọc sẽ dựa vào vùng đệm nầy
Code lọc tự lo
Mã:
Sub Add_VungDem_NoiPhatHanh()
Dim eRow&, i&,NoiPhatHanh$
eRow = Range("K" & Rows.Count).End(xlUp).Row
NoiPhatHanh = Range("C4").Value
If NoiPhatHanh <> Empty Then
For i = 2 To eRow
If NoiPhatHanh = Cells(i, "K") Then Exit For
Next i
If i = eRow + 1 Then Range("K" & eRow + 1).Value = NoiPhatHanh
End If
End Sub
Sub Clear_VungDem()
Dim eRow&
eRow = Range("K" & Rows.Count).End(xlUp).Row
If eRow > 1 Then Range("K2:K" & eRow).ClearContents
End Sub
Tạo vùng đệm lưu các điều kiện nơi phát hành, code lọc sẽ dựa vào vùng đệm nầy
Code lọc tự lo
Mã:
Sub Add_VungDem_NoiPhatHanh()
Dim eRow&, i&,NoiPhatHanh$
eRow = Range("K" & Rows.Count).End(xlUp).Row
NoiPhatHanh = Range("C4").Value
If NoiPhatHanh <> Empty Then
For i = 2 To eRow
If NoiPhatHanh = Cells(i, "K") Then Exit For
Next i
If i = eRow + 1 Then Range("K" & eRow + 1).Value = NoiPhatHanh
End If
End Sub
Sub Clear_VungDem()
Dim eRow&
eRow = Range("K" & Rows.Count).End(xlUp).Row
If eRow > 1 Then Range("K2:K" & eRow).ClearContents
End Sub
Dạ, em cảm ơn Thầy ạ. Nhưng khi em dùng vùng đệm để lọc thì code của em ở module 1 em không biết chỉnh như thế nào ạ. Em có cho Dic vào để nhớ cột ở vùng đệm. Nhưng kết quả không đúng ạ. Thầy có thể xem giúp em với ạ. . Em cảm ơn Thầy
Sub baocao()
Dim i As Long
Dim k As Long
Dim arr_N()
Dim arr_DS()
Dim arr_D()
Dim dic01 As Object
Dim dcuoi As Long
Dim loai As String
Dim NoiPhatHanh As String
Dim So As String
Dim Flag01 As Boolean
Dim Flag02 As Boolean
Dim Flag03 As Boolean
Dạ, em cảm ơn Thầy ạ. Nhưng khi em dùng vùng đệm để lọc thì code của em ở module 1 em không biết chỉnh như thế nào ạ. Em có cho Dic vào để nhớ cột ở vùng đệm. Nhưng kết quả không đúng ạ. Thầy có thể xem giúp em với ạ. . Em cảm ơn Thầy
Sub baocao()
Dim i As Long
Dim k As Long
Dim arr_N()
Dim arr_DS()
Dim arr_D()
Dim dic01 As Object
Dim dcuoi As Long
Dim loai As String
Dim NoiPhatHanh As String
Dim So As String
Dim Flag01 As Boolean
Dim Flag02 As Boolean
Dim Flag03 As Boolean
Sub baocao()
Dim dcuoi As Long, i As Long, k As Long, j As Long
Dim arr_N(), arr_DS, arr_D(), dic01 As Object
Dim loai As String, NoiPhatHanh As String, So As String
dcuoi = Sheet1.Range("a1000").End(xlUp).Row
arr_N = Sheet1.Range("A3:I" & dcuoi).Value
ReDim arr_D(1 To UBound(arr_N, 1), 1 To 9)
Set dic01 = CreateObject("scripting.dictionary")
dcuoi = Sheet2.Range("K1000").End(xlUp).Row
If dcuoi > 1 Then
arr_DS = Sheet2.Range("K2:L" & dcuoi).Value
For j = 1 To UBound(arr_DS, 1)
dic01.Item(arr_DS(j, 1)) = ""
Next
End If
Tungay = Sheet2.Range("C1").Value
Denngay = Sheet2.Range("C2").Value
loai = Sheet2.Range("C3").Value
So = Sheet2.Range("C5").Value
NoiPhatHanh = Sheet2.Range("C4")
If NoiPhatHanh <> Empty Then dic01.Item(NoiPhatHanh) = ""
k = 0
For i = 1 To UBound(arr_N, 1)
If loai = Empty Or loai = arr_N(i, 4) Then
If dic01.Count = 0 Or dic01.exists(arr_N(i, 8)) Then
If So = Empty Or So = arr_N(i, 5) Then
If Tungay = Empty Or arr_N(i, 3) >= Tungay Then
If Denngay = Empty Or arr_N(i, 3) <= Denngay Then
k = k + 1
arr_D(k, 1) = k
For j = 2 To 9
arr_D(k, j) = arr_N(i, j)
Next j
End If
End If
End If
End If
End If
Next
Sheet2.Range("A9:I1000").Clear
If k > 0 Then Sheet2.Range("a9").Resize(k, 9) = arr_D
End Sub
Em muốn chọn nhiều trường hợp của cùng điều kiện lọc. File của em viết code có nhiều điều kiện đồng thời nhưng không thể chọn nhiều trường hợp của cùng một điều kiện. Em có mô tả trong file ạ. Em có đọc code trong bài "Lọc dữ liệu-chứa nhiều điều kiện lọc?" nhưng em chưa thể vận dụng lại theo bài và code của em được. Anh/chị xem giúp em ạ.
Sub baocao()
Dim dcuoi As Long, i As Long, k As Long, j As Long
Dim arr_N(), arr_DS, arr_D(), dic01 As Object
Dim loai As String, NoiPhatHanh As String, So As String
dcuoi = Sheet1.Range("a1000").End(xlUp).Row
arr_N = Sheet1.Range("A3:I" & dcuoi).Value
ReDim arr_D(1 To UBound(arr_N, 1), 1 To 9)
Set dic01 = CreateObject("scripting.dictionary")
dcuoi = Sheet2.Range("K1000").End(xlUp).Row
If dcuoi > 1 Then
arr_DS = Sheet2.Range("K2:L" & dcuoi).Value
For j = 1 To UBound(arr_DS, 1)
dic01.Item(arr_DS(j, 1)) = ""
Next
End If
Tungay = Sheet2.Range("C1").Value
Denngay = Sheet2.Range("C2").Value
loai = Sheet2.Range("C3").Value
So = Sheet2.Range("C5").Value
NoiPhatHanh = Sheet2.Range("C4")
If NoiPhatHanh <> Empty Then dic01.Item(NoiPhatHanh) = ""
k = 0
For i = 1 To UBound(arr_N, 1)
If loai = Empty Or loai = arr_N(i, 4) Then
If dic01.Count = 0 Or dic01.exists(arr_N(i, 8)) Then
If So = Empty Or So = arr_N(i, 5) Then
If Tungay = Empty Or arr_N(i, 3) >= Tungay Then
If Denngay = Empty Or arr_N(i, 3) <= Denngay Then
k = k + 1
arr_D(k, 1) = k
For j = 2 To 9
arr_D(k, j) = arr_N(i, j)
Next j
End If
End If
End If
End If
End If
Next
Sheet2.Range("A9:I1000").Clear
If k > 0 Then Sheet2.Range("a9").Resize(k, 9) = arr_D
End Sub
Dạ, em cảm ơn Thầy ạ. Kết quả ra đúng ạ. Nhưng em không hiểu hai dòng code bên dưới.
1) If NoiPhatHanh <> Empty Then dic01.Item(NoiPhatHanh) = ""
Em không hiểu là nếu noiphathanh<> Empty thì sẽ lấy dic01.Item(NoiPhatHanh) = ""? Em hiểu là lấy những giá trị tồn tại trong dic01 đúng không ạ? Nếu em viết là If NoiPhatHanh <> Empty Then NoiPhatHanh = dic01.Item(NoiPhatHanh), có đúng không ạ?
2) If i = eRow + 1 Then Range("K" & eRow + 1).Value = NoiPhatHanh
Em không hiểu tại sao tạo vùng đệm lại có dòng này ạ
Dạ, con cảm ơn Bác đã xem và giúp con ạ. Nhưng vì khác mục tiêu của con chút là: con muốn chọn đồng thời nhiều tiêu chí như văn phòng, công ty ABC của cùng một điều kiện ạ. Con cảm ơn Bác nhiều.
Dạ, em cảm ơn Thầy ạ. Kết quả ra đúng ạ. Nhưng em không hiểu hai dòng code bên dưới.
1) If NoiPhatHanh <> Empty Then dic01.Item(NoiPhatHanh) = ""
Em không hiểu là nếu noiphathanh<> Empty thì sẽ lấy dic01.Item(NoiPhatHanh) = ""? Em hiểu là lấy những giá trị tồn tại trong dic01 đúng không ạ? Nếu em viết là If NoiPhatHanh <> Empty Then NoiPhatHanh = dic01.Item(NoiPhatHanh), có đúng không ạ?
2) If i = eRow + 1 Then Range("K" & eRow + 1).Value = NoiPhatHanh
Em không hiểu tại sao tạo vùng đệm lại có dòng này ạ
Thầy giải thích giúp em. Em cảm ơn Thầy.
Bài đã được tự động gộp:
Dạ, con cảm ơn Bác đã xem và giúp con ạ. Nhưng vì khác mục tiêu của con chút là: con muốn chọn đồng thời nhiều tiêu chí như văn phòng, công ty ABC của cùng một điều kiện ạ. Con cảm ơn Bác nhiều.
Dạ, em cảm ơn Thầy ạ. Kết quả ra đúng ạ. Nhưng em không hiểu hai dòng code bên dưới.
1) If NoiPhatHanh <> Empty Then dic01.Item(NoiPhatHanh) = ""
Em không hiểu là nếu noiphathanh<> Empty thì sẽ lấy dic01.Item(NoiPhatHanh) = ""? Em hiểu là lấy những giá trị tồn tại trong dic01 đúng không ạ? Nếu em viết là If NoiPhatHanh <> Empty Then NoiPhatHanh = dic01.Item(NoiPhatHanh), có đúng không ạ?
2) If i = eRow + 1 Then Range("K" & eRow + 1).Value = NoiPhatHanh
Em không hiểu tại sao tạo vùng đệm lại có dòng này ạ
Thầy giải thích giúp em. Em cảm ơn Thầy.
Bài đã được tự động gộp:
Dạ, con cảm ơn Bác đã xem và giúp con ạ. Nhưng vì khác mục tiêu của con chút là: con muốn chọn đồng thời nhiều tiêu chí như văn phòng, công ty ABC của cùng một điều kiện ạ. Con cảm ơn Bác nhiều.
1) If NoiPhatHanh <> Empty Then dic01.Item(NoiPhatHanh) = "" là thêm key NoiPhatHanh vào Dic01 tương dương với lệnh Add nhưng không cần kiểm tra chưa tồn tại (.Exists)
If NoiPhatHanh <> Empty Then NoiPhatHanh = dic01.Item(NoiPhatHanh), Không thay thế được lệnh trên
2)
For i = 2 To eRow
If NoiPhatHanh = Cells(i, "K") Then Exit For
Next i
If i = eRow + 1 Then Range("K" & eRow + 1).Value = NoiPhatHanh
If NoiPhatHanh = Cells(i, "K") Then Exit For' Nếu cột k đã có NoiPhatHanh thì không ghi tiếp, lệnh Exit for thoát khỏi vòng lập nên i <= erow
Nếu cột K chưa có NoiPhatHanh vòng For sẽ chạy đến cuối cùng và ra khỏi vòng for lúc đó i=eRow+1 và ghi NoiPhatHanh vào dòng cuối +1 cột K
If i = eRow + 1 Then Range("K" & eRow + 1).Value = NoiPhatHanh
Bạn bấm hím chức năng F8 để xem vận hành của từng dòng lệnh
1) If NoiPhatHanh <> Empty Then dic01.Item(NoiPhatHanh) = "" là thêm key NoiPhatHanh vào Dic01 tương dương với lệnh Add nhưng không cần kiểm tra chưa tồn tại (.Exists)
If NoiPhatHanh <> Empty Then NoiPhatHanh = dic01.Item(NoiPhatHanh), Không thay thế được lệnh trên
2)
For i = 2 To eRow
If NoiPhatHanh = Cells(i, "K") Then Exit For
Next i
If i = eRow + 1 Then Range("K" & eRow + 1).Value = NoiPhatHanh
If NoiPhatHanh = Cells(i, "K") Then Exit For' Nếu cột k đã có NoiPhatHanh thì không ghi tiếp, lệnh Exit for thoát khỏi vòng lập nên i <= erow
Nếu cột K chưa có NoiPhatHanh vòng For sẽ chạy đến cuối cùng và ra khỏi vòng for lúc đó i=eRow+1 và ghi NoiPhatHanh vào dòng cuối +1 cột K
If i = eRow + 1 Then Range("K" & eRow + 1).Value = NoiPhatHanh
Bạn bấm hím chức năng F8 để xem vận hành của từng dòng lệnh
Dạ, Thầy cho em hỏi dòng này ạ:
If NoiPhatHanh <> Empty Then dic01.Item(NoiPhatHanh) = "" là thêm key NoiPhatHanh vào Dic01 tương dương với lệnh Add nhưng không cần kiểm tra chưa tồn tại (.Exists)
Em viết lại như sau thì báo lỗi ạ. Vì em quen viết dic.add ạ
If NoiPhatHanh <> Empty Then dic01.Add ((NoiPhatHanh)), ""
Dạ, Thầy cho em hỏi dòng này ạ:
If NoiPhatHanh <> Empty Then dic01.Item(NoiPhatHanh) = "" là thêm key NoiPhatHanh vào Dic01 tương dương với lệnh Add nhưng không cần kiểm tra chưa tồn tại (.Exists)
Em viết lại như sau thì báo lỗi ạ. Vì em quen viết dic.add ạ
If NoiPhatHanh <> Empty Then dic01.Add ((NoiPhatHanh)), ""
Thầy sửa giúp em ạ. Em cảm ơn Thầy.
Bài đã được tự động gộp:
Dạ, con chọn từ C1:C4 nhưng con chỉ chọn được 1 tiêu chí cho một lần chọn ạ.
