Lọc hs từng Bản (tiểu khu) theo độ tuổi (1 người xem)

[cuonghoa176]

Các Bác có thể giúp dc e cái dụ nầy với: E cần lọc hs của e từng Bản theo độ tuổi.
Đồng nghiệp của e thì nhiều nhưng chẳng mấy ai rành về Xcel cẢ, e đành lại nhờ các bác vậy, E cám ơn nhiều!

 

[chibi]

Mình không phải là Bác Nghĩa hay Bác Phúc nhưng cũng viết vào đây. Bạn nghiên cứu thử cài này nhé

 

[Ba Tê]

Bác Nghĩa Bác Phúc yêu quý! E biét các Bác có thể giúp dc e cái dụ nầy: E cần lọc hs của e từng Bản theo độ tuổi.
Đồng nghiệp của e thì nhiều nhưng chẳng mấy ai rành về Xcel cẢ, e đành lại nhờ các bác vậy, E cám ơn nhiều!

Tui cũng hổng phải Nghĩa hay Phúc hổng biết chen vào có được hông?
Nếu hổng được chắc "mắc cỡ" lắm!
Híc!
(Quê độ với mấy bài gởi lên diễn đàn mà giống như gởi email, tại thất nghiệp nên làm cho vui, với lại nội dung nó cũng trong ngành của mình)

 

[cuonghoa176]

E xin hoi bac bate, có cách nào để khi chọn Bản thì ds lọc tự xuất hiện ko? cái bác vùa làm dễ nhầm lắm, cứ phải dí vào cái GPE nó mới cho ra?

 

[Ba Tê]

E xin hoi bac bate, có cách nào để khi chọn Bản thì ds lọc tự xuất hiện ko? cái bác vùa làm dễ nhầm lắm, cứ phải dí vào cái GPE nó mới cho ra?

Hóa ra là xài được. Có cái nút thì cứ bấm hoài sao nhầm được?
Làm lại, chọn bản cũng lọc mà chọn năm sinh cũng lọc hổng biết có nhầm không?

 

[cuonghoa176]

Thank Bác nhìu lắm! nhưng e nói thiệt là các bác cứ làm cho em thì e ngại quá, giá kể bác hd em chút đỉnh để e nghiin cứu, có thể mỗi lần e bít thêm tí chút, sau này đỡ phiền cho các Bác...e ở miền sơn cước cái món VBA, hàm động đậy gì đó e chẳng bít hỏi ai..

 

[cuonghoa176]

Bác Ba Te yêu quý! Nhờ Bác sửa lại giúp em cái code Lọc HS theo độ tuổi mà trước đây Bác đã làm, giở em muốn lấy cả DSHS từ Mầm Non, Tiểu học vào để lọc các đối tượng từ 0-18 tuổi nên trang DSHS phải tham chiếu từ A7;K4000 thay vì 1000 như trước. Bác giúp e với nhé...

Public Sub GPE()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, Ban As String, NamSinh As Long
With Sheets("SO PC")
Ban = .[C2].Value
NamSinh = .[C3].Value
End With
With Sheets("DSHS")
Rng = .Range(.[D6], .[M65000].End(xlUp)).Value
End With
ReDim Arr(1 To UBound(Rng, 1), 1 To 11)
For I = 1 To UBound(Rng, 1)
If Rng(I, 6) = Ban Then
If Rng(I, 7) = NamSinh Then
K = K + 1
Arr(K, 1) = K: Arr(K, 11) = Rng(I, 10)
For J = 1 To 6
Arr(K, J + 1) = Rng(I, J)
Next J
Arr(K, 11) = Rng(I, 10)
End If
End If
Next I
With Sheets("SO PC")
.[A7:K1000].ClearContents
If K Then .[A7].Resize(K, 11).Value = Arr
End With
End Sub

 

[Quang_Hải]

Bác Ba Te yêu quý! Nhờ Bác sửa lại giúp em cái code Lọc HS theo độ tuổi mà trước đây Bác đã làm, giở em muốn lấy cả DSHS từ Mầm Non, Tiểu học vào để lọc các đối tượng từ 0-18 tuổi nên trang DSHS phải tham chiếu từ A7;K4000 thay vì 1000 như trước. Bác giúp e với nhé...

Mình không phải Bác Ba Tê nhưng cũng bon chen tí
Nhấp chuột và C2 rồi chọn Bản. Sau đó muốn chọn năm nào thì nhập năm vào C3 sẽ có dữ liệu lọc

 

[cuonghoa176]

Bác quanghai có cách làm cái list chọn Bản (thôn) hay quá. Thực sự là em rất muốn học cho biết. Xin Bác chỉ dạy để em làm tương tự khi chọn năm sinh. Em xin cảm ơn bác!..

 

[Quang_Hải]

Bác quanghai có cách làm cái list chọn Bản (thôn) hay quá. Thực sự là em rất muốn học cho biết. Xin Bác chỉ dạy để em làm tương tự khi chọn năm sinh. Em xin cảm ơn bác!..

Có sẵn hết trong file rồi, tự mày mò khi hiểu ra mới thấy sướng. Mình cũng toàn tự mày mò thôi
Nếu mò không ra thì thay code này vào. Lẽ ra phải sort lại cái list nữa nhưng lười quá

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C3]) Is Nothing Then
    Sheet2.[D5:M65536].AdvancedFilter 2, [IU1:IV2], [B7:G7]
    Sheet2.[D5:M65536].AdvancedFilter 2, [IU1:IV2], [K7]
    [A8:A10000].ClearContents
    If [B8] <> "" Then Range([B8], [B65536].End(3)).Offset(, -1) = [row(a:a)]
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [C2:C3]) Is Nothing Then
    Dim data(), i, dk
    data = Sheet2.Range(Sheet2.[I6], Sheet2.[J65536].End(3)).Value
    dk = IIf(Target.Row = 2, 1, 2)
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(data)
           If data(i, dk) <> "" Then .Item(Application.Proper(data(i, dk))) = ""
        Next
        With Sheet1.ListBox1
            .Visible = True
            .Height = 450
            .Width = 250
        End With
        Sheet1.ListBox1.List = (.keys)
    End With
Else
    Sheet1.ListBox1.Visible = False
End If
End Sub

 

[cuonghoa176]

E lại phải nhờ các bác; việc lọc từng bản thì "ngon" quá rồi, giờ làm sổ của toàn xã theo từng độ tuổi (làm sao để chỉ cần chọn tuổi thì hiện tất cả số người ở các bản ra?)
E cứ gọi là cảm ơn các bác trước...!

 

[be_09]

Các Bác có thể giúp dc e cái dụ nầy với: E cần lọc hs của e từng Bản theo độ tuổi.
Đồng nghiệp của e thì nhiều nhưng chẳng mấy ai rành về Xcel cẢ, e đành lại nhờ các bác vậy, E cám ơn nhiều!

THỬ FILE NÀY XEM SAO.

Muốn lọc cái gì đó thì vào sheet Loc_PC, click vào bất kỳ Cell màu xanh ở dòng 5 chọn 1 cái gì đó và nhấn nút Lọc dữ liệu để xem kết quả.

Lưu ý:

Bạn có thể chọn 1 hoặc nhiều Cell màu xanh cùng lúc, nếu chọn 1 Cell màu xanh thì xóa các Cell khác đi rồi nhấn nút.

 

[cuonghoa176]

Code của bác đơn giản nhưng hiệu quả thật...nhưng bác sủa cho e tí tẹo:
- Bác chừa cho e vài dòng trống tại sheet Loc để e chế thành mẫu luôn
- Cột A không dính vào việc Lọc (để e đánh STT và tính tổng số)
E cảm ơn bác!

 

[Ba Tê]

Code của bác đơn giản nhưng hiệu quả thật...nhưng bác sủa cho e tí tẹo:
- Bác chừa cho e vài dòng trống tại sheet Loc để e chế thành mẫu luôn
- Cột A không dính vào việc Lọc (để e đánh STT và tính tổng số)
E cảm ơn bác!

Chừa 9 dòng được chưa?

 

[be_09]

Code của bác đơn giản nhưng hiệu quả thật...nhưng bác sủa cho e tí tẹo:
- Bác chừa cho e vài dòng trống tại sheet Loc để e chế thành mẫu luôn
- Cột A không dính vào việc Lọc (để e đánh STT và tính tổng số)
E cảm ơn bác!

Tôi đã lường trước nên chừa 3 dòng trống làm tiêu đề, chừa bao nhiêu dòng trống thì bạn nêu cụ thể luôn.

Cột A không dính vào việc Lọc (để e đánh STT và tính tổng số)

Cũng lọc như vậy (nghĩa là cột số TT của từng lớp vẫn để) nhưng bắt đầu từ cột B phải không? (chừa cột A để bạn làm cột thứ tự tổng đúng không?).

 

[cuonghoa176]

Xin cảm ơn các bác! Ở các bản thì tôi lọc được rồi, nhưng giờ muốn in từng độ tuổi của toàn xã (tất cả các bản) nhưng mò mãi mà không ra...nó vướng cái list book nên chỉ thấy của từng bản thôi...các bác xem hộ, (cái này trước bác Bate làm cho tui mà...)

Các bác vui lòng tải qua Driver: https://drive.google.com/file/d/0ByrRyDPlHTh9MS1CS1cwVlVmWkk/view?usp=sharing

 

[be_09]

Xin cảm ơn các bác! Ở các bản thì tôi lọc được rồi, nhưng giờ muốn in từng độ tuổi của toàn xã (tất cả các bản) nhưng mò mãi mà không ra...nó vướng cái list book nên chỉ thấy của từng bản thôi...các bác xem hộ, (cái này trước bác Bate làm cho tui mà...)

Các bác vui lòng tải qua Driver: https://drive.google.com/file/d/0ByrRyDPlHTh9MS1CS1cwVlVmWkk/view?usp=sharing

Xóa hết các Cell có màu xanh, tại G5 (chỗ ở) sau đó chọn 1 bản và nhấn nút Lọc dữ liệu thì có danh sách của bản đó.