Hiển thị kết quả tìm kiếm từ 1 đến 5 trên tổng số: 5
  1. #1
    Tham gia ngày
    12 2010
    Bài gởi
    4
    Cảm ơn
    2
    Được cảm ơn 0 lần trong 0 bài viết

    Smile trích lọc danh sách theo năm sinh mà không dùng autoFilter

    Mình là giáo viên tiểu học ở miền núi, đang chập chững tự học VBA. Hằng năm, việc tổng hợp phổ cập giáo dục tiểu học rất vất vả, chủ yếu là làm thủ công. Mình vừa đăng kí thành viên của giaiphapexcell và tải được bài trích lọc dữ liệu rất hay (File trichdulieu.xsl đính kèm); xin nhờ mọi người giúp dùm lọc dữ liệu từ sheet "Mẫu 3" (có nhiều trang, mỗi trang là 1 hộ gia đình) sang sheet "Dsach" mà không dùng autoFilter, khi trích lọc thì mọi đối tượng có cùng năm sinh sẽ được đưa về 1 sheet với các thông tin khác đi cùng (tương tự File trichdulieu.xsl đính kèm). Xin được hướng dẫn chi tiết, mình xin cảm ơn nhiều. Email của mình: amathinong@gmail.com. Mong được sự giúp đỡ của diễn đàn. Xin chân thành cảm ơn.
    Tập tin đính kèm Tập tin đính kèm

  2. #2
    Tham gia ngày
    05 2007
    Bài gởi
    2,813
    Cảm ơn
    3,071
    Được cảm ơn 4,507 lần trong 2,234 bài viết

    Để giả lập dữ liệu cho bạn, mình tốn hơn 2/3 thời gian!

    Bạn coi trong file, nhứt là [I2] ở trang danh sách;

    (Một số cột như 'E', 'F',. . . không biết lấy dữ liệu từ đâu?!)
    Tập tin đính kèm Tập tin đính kèm
    0909 127 085

  3. Thành viên sau cảm ơn HYen17 về bài viết này:


  4. #3
    Tham gia ngày
    12 2010
    Bài gởi
    4
    Cảm ơn
    2
    Được cảm ơn 0 lần trong 0 bài viết

    Wink

    Hết sức cảm ơn HYen17 đã giúp mình. Sau khi kiểm tra lại quả là các dữ liệu ở 3 cột E, F và L không có cơ sở để lấy. Nhưng do mẫu quy định chung là vậy. Song mình đã thêm 3 cột X, Y, Z để quy định (sau này khi thực hiện sẽ cho anh em điền vào), từ đó lấy dữ liệu điền vào 3 cột E, F và L. Mình cũng đã mày mò thêm code để lấy dữ liệu vào cột V (sheets3 trong file đính kèm); nhưng chưa biết cách lấy dữ liệu từ 3 cột X, Y, Z sang 3 cột E, F và L. Mong bạn giúp mình. Một lần nữa hết sức cảm ơn bạn.
    Tập tin đính kèm Tập tin đính kèm

  5. #4
    Tham gia ngày
    05 2007
    Bài gởi
    2,813
    Cảm ơn
    3,071
    Được cảm ơn 4,507 lần trong 2,234 bài viết

    Rất cảm kích là bạn đã mày mò & bước đầu quen với VBA, Chúc ~ thành công sắp tới!

    & sau đây là những dòng thêm vô & sửa lại 1 dòng lệnh

    PHP Code:
    Option Explicit

    Private Sub Worksheet_Change(ByVal Target As Range)
     If 
    Not Intersect(Target, [I2]) Is Nothing Then
       Dim Sh 
    As WorksheetRng As RangesRng As Range
       Dim MyAdd 
    As StringRws As Long
       
       Set Rng 
    = [B7].Resize(20020):              Rng.EntireRow.Hidden False
       Rng
    .ClearContents:                           Set Sh Sheets("Mau3")
       
    Set Rng Sh.Range(Sh.[c7], Sh.[C65500].End(xlUp))
       
    Set sRng Rng.Find([I2].Value, , xlFormulasxlWhole)
       If 
    Not sRng Is Nothing Then
          MyAdd 
    sRng.Address
          
    Do
             
    With [B206].End(xlUp).Offset(1)
                .
    Value sRng.Offset(, -1).Value
                
    .Offset(, 1).Resize(, 2).Value sRng.Offset(, 1).Resize(, 2).Value
                
    .Offset(, 5).Resize(, 5).Value sRng.Offset(, 3).Resize(, 5).Value
                
    .Offset(, 11).Value sRng.Offset(, 16).Value   ' Khuyét Tat'
                
    .Offset(, 12).Value sRng.Offset(, 13).Value   ' Bo Hoc'
                'Dy Chuyen:'
                
    .Offset(, 13).Resize(, 2).Value sRng.Offset(, 17).Resize(, 2).Value
    1           
    .Offset(, 15).Value sRng.Offset(, 19).Value  '<=| Só Ho'
                
    .Offset(, 3).Resize(, 2).Value sRng.Offset(, 20).Resize(, 2).Value
    3           
    .Offset(, 10).Resize(, 2).Value sRng.Offset(, 22).Resize(, 2).Value '<=|'
             
    End With
             Set sRng 
    Rng.FindNext(sRng)
          
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
       End 
    If
       
    Rws = [B200].End(xlUp).Row 5
       Range
    (Cells(Rws2), Cells(1992)).EntireRow.Hidden True
     End 
    If
    End Sub 
    0909 127 085

  6. Thành viên sau cảm ơn HYen17 về bài viết này:


  7. #5
    Tham gia ngày
    12 2010
    Bài gởi
    4
    Cảm ơn
    2
    Được cảm ơn 0 lần trong 0 bài viết

    Cần tổng hợp bằng VB.

    Cảm ơn HYen17. Nhưng nếu như trên thì cột khuyết tật không lấy được dữ liệu (theo sheet3 kèm theo); mình đã viết thêm code như ở sheet "danh sách" và thấy kết quả khá tốt. Mong bạn kiểm tra giúp. Mình dự kiến tổng hợp bằng các hàm trong excel (ví dụ ở sheet3) nhưng sợ dùng nhiều hàm, File nặng, khó chạy. Liệu có thể dùng VB để tổng hợp được không? Nếu được bạn viết giúp code để mình nghiên cứu nha. Chân thành cảm ơn.
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: amathi, 13-12-10 lúc 10:43 PM

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Giúp em làm bảng danh sách học sinh đóng học phí và theo dõi số buồi học với
    Viết bởi meoden86 trong chuyên mục Excel và Giáo Dục
    Trả lời: 2
    Bài mới gởi: 10-07-10, 10:22 AM
  2. Lọc danh sách CBCNV dựa vào năm sinh!
    Viết bởi vietduck trong chuyên mục Ứng dụng Quản trị cơ sở dữ liệu
    Trả lời: 11
    Bài mới gởi: 27-10-09, 08:28 AM
  3. Giúp mình thực hiện công thức tính tổng số nữ theo năm sinh với
    Viết bởi aiquocxp trong chuyên mục Hàm và công thức Excel
    Trả lời: 2
    Bài mới gởi: 02-07-09, 11:01 PM
  4. Lọc danh sách tự động theo năm
    Viết bởi kevin_mn trong chuyên mục Làm việc với ngày tháng và thời gian
    Trả lời: 3
    Bài mới gởi: 09-06-09, 09:16 PM
  5. Lọc danh sách học sinh theo môn học
    Viết bởi hsilver trong chuyên mục Hàm và công thức Excel
    Trả lời: 9
    Bài mới gởi: 08-06-09, 10:00 AM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]