Nhờ chỉ giúp em lọc dữ liệu (1 người xem)

  • Thread starter Thread starter hitlecp
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
H

hitlecp

Thành viên hoạt động
Tham gia
17/5/10
Bài viết
151
Được thích
14
Chào anh/chị,
Nhờ anh/chị giúp em mã code Lọc dữ liệu theo từng chi nhánh, từ ngày đến ngày của dữ liệu như trong file (em có file đính kèm theo).
Em cám ơn.
 

File đính kèm

hitlecp đã viết:
Chào anh/chị,
Nhờ anh/chị giúp em mã code Lọc dữ liệu theo từng chi nhánh, từ ngày đến ngày của dữ liệu như trong file (em có file đính kèm theo).
Em cám ơn.
Nhấp chuột vào đây để mở rộng...
Dùng Advanced Filter.
Bạn muốn "Bấm nút" thì dùng VBA bảo nó AF giùm.
 

File đính kèm

Dạ em cám ơn thầy Ba Tê ạ
 
hitlecp đã viết:
Chào anh/chị,
Nhờ anh/chị giúp em mã code Lọc dữ liệu theo từng chi nhánh, từ ngày đến ngày của dữ liệu như trong file (em có file đính kèm theo).
Em cám ơn.
Nhấp chuột vào đây để mở rộng...

Đây là 1 trong cách giải dở nhất cho bạn tìm hiểu ...
 
Lần chỉnh sửa cuối:
Thầy Ba Tê có thể chỉ giúp em thêm được không ạ, trường hợp em tách ra từng sheet chi nhánh riêng để nhập liệu, nhưng xem kết quả ở sheet Check, thầy có thể giúp em mã code được không ạ (em có kèm theo file).
Em cám ơn
 

File đính kèm

hitlecp đã viết:
Thầy Ba Tê có thể chỉ giúp em thêm được không ạ, trường hợp em tách ra từng sheet chi nhánh riêng để nhập liệu, nhưng xem kết quả ở sheet Check, thầy có thể giúp em mã code được không ạ (em có kèm theo file).
Em cám ơn
Nhấp chuột vào đây để mở rộng...
Không làm được vì cấu trúc các sheet có tiêu đề cột không giống nhau, số cột không giống nhau.
Sheet kết quả cấu trúc chẳng giống sheet nào.
 
Ba Tê đã viết:
Không làm được vì cấu trúc các sheet có tiêu đề cột không giống nhau, số cột không giống nhau.
Sheet kết quả cấu trúc chẳng giống sheet nào.
Nhấp chuột vào đây để mở rộng...
Dạ, em sẽ thiết kế lại các tiêu đề cột lại cho hợp lý theo Sheet kết quả
 
Ba Tê đã viết:
Không làm được vì cấu trúc các sheet có tiêu đề cột không giống nhau, số cột không giống nhau.
Sheet kết quả cấu trúc chẳng giống sheet nào.
Nhấp chuột vào đây để mở rộng...
Dạ, thầy Ba Tê em đã sửa lại cấu trúc tiêu đề đồng nhất hết ở các sheet, nhờ thầy chỉ giúp em code cho kết quả ở 2 sheet: Loc và TongHop (em có đính kèm file mới ạ)
Em cám ơn!
 

File đính kèm

hitlecp đã viết:
Dạ, thầy Ba Tê em đã sửa lại cấu trúc tiêu đề đồng nhất hết ở các sheet, nhờ thầy chỉ giúp em code cho kết quả ở 2 sheet: Loc và TongHop (em có đính kèm file mới ạ)
Em cám ơn!
Nhấp chuột vào đây để mở rộng...
Thầy Ba Tê giúp em với ạ
 

File đính kèm

hitlecp đã viết:
Dạ, thầy Ba Tê em đã sửa lại cấu trúc tiêu đề đồng nhất hết ở các sheet, nhờ thầy chỉ giúp em code cho kết quả ở 2 sheet: Loc và TongHop (em có đính kèm file mới ạ)
Em cám ơn!
Nhấp chuột vào đây để mở rộng...
Sheet "TongHop" bạn phải nhập số cột cần lấy dữ liệu vào dòng 8. (Tôi đã nhập thử từ cột D đến I)
 

File đính kèm

Ba Tê đã viết:
Sheet "TongHop" bạn phải nhập số cột cần lấy dữ liệu vào dòng 8. (Tôi đã nhập thử từ cột D đến I)
Nhấp chuột vào đây để mở rộng...
thưa thầy nếu cũng file đó mà em mún lọc theo người nộp hoặc phiếu thu hay phiếu chi thì em phải làm sao thưa thầy...em mún tạo 2 3 ô lọc phiếu thu chi, ngày , và người nộp thì làm sao thưa thầy mong thầy giúp em với dạ thank thầy
 
nguyenthotnot đã viết:
thưa thầy nếu cũng file đó mà em mún lọc theo người nộp hoặc phiếu thu hay phiếu chi thì em phải làm sao thưa thầy...em mún tạo 2 3 ô lọc phiếu thu chi, ngày , và người nộp thì làm sao thưa thầy mong thầy giúp em với dạ thank thầy
Nhấp chuột vào đây để mở rộng...
Tiếc là tôi đọc không hiểu "mún" là gì, "thank" là gì.
 
dạ đây thưa thầy: ý em là em mún thêm điều kiện lọc nữa ko phải chỉ có ngày ko, mà còn có người nộp, hay phiếu thu hay chi: em chỉ cần lọc trong những điều kiện đó ngoài điều kiện thời gian ra: dạ file đính kèm ở sheet lọc nhe thầy mong thầy chỉ giúp em
 

File đính kèm

nguyenthotnot đã viết:
dạ đây thưa thầy: ý em là em mún thêm điều kiện lọc nữa ko phải chỉ có ngày ko, mà còn có người nộp, hay phiếu thu hay chi: em chỉ cần lọc trong những điều kiện đó ngoài điều kiện thời gian ra: dạ file đính kèm ở sheet lọc nhe thầy mong thầy chỉ giúp em
Nhấp chuột vào đây để mở rộng...
Bạn cứ làm thêm điều kiện nữa vào trong code là được mà.Code của bác Ba Tê là.Đầu tiên xác định điều kiện rồi so sánh điều kiện.Rồi lấy giá trị cho mảng mới.là được bạn xem.
Mã: 
Public Sub Gpe_Loc()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, R As Long, Rws As Long, Col As Long, fDate As Long, eDate As Long, SName As String
SName = Range("C2").Value 'lay ten sheets can kiem tra
fDate = Range("C3").Value ' chon ngay nho nhat can kiem tra
eDate = Range("C4").Value 'chon ngày lon nhat can kiem tra
Col = 57
With Sheets(SName)
    R = .Range("B60000").End(xlUp).Row 'chon dong cuoi cung o cot B
    If R > 8 Then ' kiem tra dieu kien de lay mang
        sArr = .Range("A9:A" & R).Resize(, Col).Value  ' nap gia tri vao mang
        Rws = UBound(sArr)   'xac dinh dong lon nhat trong mang
        ReDim dArr(1 To R, 1 To Col)  ' khai bao mang moi
        For I = 1 To Rws              'vong lap de duyet qua cac gia tri trong mang
            If sArr(I, 2) >= fDate Then   'so sanh gia tri cot thu 2 cua mang voi thoi gian nho nhat
                If sArr(I, 2) <= eDate Then 'so sanh gia tri cot thu 2 cua mang voi thoi gian lon nhat
                    K = K + 1                'neu gia tri mang thoa man 2 dieu kien thi K se duoc tang them 1 gia tri
                    dArr(K, 1) = K            'gan vi tri thu nhat cua mang moi bang K (day la so thu tu cua mang)
                    For J = 2 To Col           'vong lap de lay cac gia tri con lai vao trong mang moi
                        dArr(K, J) = sArr(I, J) 'gan gia tri
                    Next J
                End If
            End If
        Next I
    End If
End With
Range("A9").Resize(1000, Col).ClearContents     'xoa gia tri cua mang can gan
If K Then Range("A9").Resize(K, Col) = dArr      'gan gia tri cua mang
End Sub
 
thank bạn để mình làm thử: code của bạn có chú giải lun quá tuyệt ^^ VBA với mình còn mới quá...heheh đợi đầu năm nay sách của thầy phan tự hướng tái bản mua về ngâm cứu mới được
 
nguyenthotnot đã viết:
thank bạn để mình làm thử: code của bạn có chú giải lun quá tuyệt ^^ VBA với mình còn mới quá...heheh đợi đầu năm nay sách của thầy phan tự hướng tái bản mua về ngâm cứu mới được
Nhấp chuột vào đây để mở rộng...
Viết Hoa những từ "quy định" là quy định từ cấp I.
Tên người ta mà viết thế là không đúng "quy định". Chỉ những người không biết quy định mới viết thế.
-----------------------------------
Cái học ... đã hỏng rồi.
(Xin lỗi đã liên lụy "Trần Tế Xương")
http://gocthoduong.blogspot.com/2016/04/kinh-hoa-cai-hoc-nha-nho-cua-tran-te.html
-----------------------------
snow25 đã viết:
Range("A9").Resize(1000, Col).ClearContents 'xoa gia tri cua mang can gan
Nhấp chuột vào đây để mở rộng...
Bạn ghi chú lại dòng lệnh này, xóa giá trị của mảng thì còn đâu mà xài.
------------------------------------
Vie-Cam: 3-0
 
Lần chỉnh sửa cuối:
Sự hỏng có chi bất ngờ
Từ Xương tới Mỡ, bây giờ đến Da
(Tiên trách kỷ, hậu trách nhân vậy thầy ạ!)
........................
 
hehe em sẽ rút kinh nghiệm thầy ah, không biết thầy có thể hỗ trợ em giúp em phần lọc dữ liệu đó không ah, em ko rành về VBA lắm mong chỉ dùm ah
Bài đã được tự động gộp:

Ba Tê đã viết:
Viết Hoa những từ "quy định" là quy định từ cấp I.
Tên người ta mà viết thế là không đúng "quy định". Chỉ những người không biết quy định mới viết thế.
-----------------------------------
Cái học ... đã hỏng rồi.
(Xin lỗi đã liên lụy "Trần Tế Xương")
http://gocthoduong.blogspot.com/2016/04/kinh-hoa-cai-hoc-nha-nho-cua-tran-te.html
-----------------------------

Bạn ghi chú lại dòng lệnh này, xóa giá trị của mảng thì còn đâu mà xài.
------------------------------------
Vie-Cam: 3-0
Nhấp chuột vào đây để mở rộng...
tại em rõ nhanh quá em quên, em sẽ rút kinh nghiệm
 
Lần chỉnh sửa cuối:
snow25 đã viết:
Bạn cứ làm thêm điều kiện nữa vào trong code là được mà.Code của bác Ba Tê là.Đầu tiên xác định điều kiện rồi so sánh điều kiện.Rồi lấy giá trị cho mảng mới.là được bạn xem.
Mã: 
Public Sub Gpe_Loc()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, R As Long, Rws As Long, Col As Long, fDate As Long, eDate As Long, SName As String
SName = Range("C2").Value 'lay ten sheets can kiem tra
fDate = Range("C3").Value ' chon ngay nho nhat can kiem tra
eDate = Range("C4").Value 'chon ngày lon nhat can kiem tra
Col = 57
With Sheets(SName)
    R = .Range("B60000").End(xlUp).Row 'chon dong cuoi cung o cot B
    If R > 8 Then ' kiem tra dieu kien de lay mang
        sArr = .Range("A9:A" & R).Resize(, Col).Value  ' nap gia tri vao mang
        Rws = UBound(sArr)   'xac dinh dong lon nhat trong mang
        ReDim dArr(1 To R, 1 To Col)  ' khai bao mang moi
        For I = 1 To Rws              'vong lap de duyet qua cac gia tri trong mang
            If sArr(I, 2) >= fDate Then   'so sanh gia tri cot thu 2 cua mang voi thoi gian nho nhat
                If sArr(I, 2) <= eDate Then 'so sanh gia tri cot thu 2 cua mang voi thoi gian lon nhat
                    K = K + 1                'neu gia tri mang thoa man 2 dieu kien thi K se duoc tang them 1 gia tri
                    dArr(K, 1) = K            'gan vi tri thu nhat cua mang moi bang K (day la so thu tu cua mang)
                    For J = 2 To Col           'vong lap de lay cac gia tri con lai vao trong mang moi
                        dArr(K, J) = sArr(I, J) 'gan gia tri
                    Next J
                End If
            End If
        Next I
    End If
End With
Range("A9").Resize(1000, Col).ClearContents     'xoa gia tri cua mang can gan
If K Then Range("A9").Resize(K, Col) = dArr      'gan gia tri cua mang
End Sub
Nhấp chuột vào đây để mở rộng...
cái này mình mò rồi nhưng mình không rành về vba lắm, nếu được bạn giúp dùm mình với cảm ơn bạn
 
nguyenthotnot đã viết:
cái này mình mò rồi nhưng mình không rành về vba lắm, nếu được bạn giúp dùm mình với cảm ơn bạn
Nhấp chuột vào đây để mở rộng...
Mã: 
Public Sub Gpe_Loc()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, R As Long, Rws As Long, Col As Long, fDate As Long, eDate As Long, SName As String
Dim nguoinop As String  'khai bao bien nguoi nop
SName = Range("C2").Value 'lay ten sheets can kiem tra
fDate = Range("C3").Value ' chon ngay nho nhat can kiem tra
eDate = Range("C4").Value 'chon ngày lon nhat can kiem tra
nguoinop = Range("E3").Value  'lay theo nguoi nop
Col = 57
With Sheets(SName)
    R = .Range("B60000").End(xlUp).Row 'chon dong cuoi cung o cot B
    If R > 8 Then ' kiem tra dieu kien de lay mang
        sArr = .Range("A9:A" & R).Resize(, Col).Value  ' nap gia tri vao mang
        Rws = UBound(sArr)   'xac dinh dong lon nhat trong mang
        ReDim dArr(1 To R, 1 To Col)  ' khai bao mang moi
        For I = 1 To Rws              'vong lap de duyet qua cac gia tri trong mang
            If sArr(I, 2) >= fDate Then   'so sanh gia tri cot thu 2 cua mang voi thoi gian nho nhat
                If sArr(I, 2) <= eDate Then 'so sanh gia tri cot thu 2 cua mang voi thoi gian lon nhat
                   If UCase(nguoinop) = UCase(sArr(I, 5)) Then        'so sanh nguoi nop voi data duoc so sanh
                    K = K + 1                'neu gia tri mang thoa man 2 dieu kien thi K se duoc tang them 1 gia tri
                    dArr(K, 1) = K            'gan vi tri thu nhat cua mang moi bang K (day la so thu tu cua mang)
                    For J = 2 To Col           'vong lap de lay cac gia tri con lai vao trong mang moi
                        dArr(K, J) = sArr(I, J) 'gan gia tri
                    Next J
                   End If
                End If
            End If
        Next I
    End If
End With
Range("A9").Resize(1000, Col).ClearContents     'xoa gia tri cua mang can gan
If K Then Range("A9").Resize(K, Col) = dArr      'gan gia tri cua mang
End Sub
Đây bạn xem có thêm trường người nộp.
 
snow25 đã viết:
Mã: 
Public Sub Gpe_Loc()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, R As Long, Rws As Long, Col As Long, fDate As Long, eDate As Long, SName As String
Dim nguoinop As String  'khai bao bien nguoi nop
SName = Range("C2").Value 'lay ten sheets can kiem tra
fDate = Range("C3").Value ' chon ngay nho nhat can kiem tra
eDate = Range("C4").Value 'chon ngày lon nhat can kiem tra
nguoinop = Range("E3").Value  'lay theo nguoi nop
Col = 57
With Sheets(SName)
    R = .Range("B60000").End(xlUp).Row 'chon dong cuoi cung o cot B
    If R > 8 Then ' kiem tra dieu kien de lay mang
        sArr = .Range("A9:A" & R).Resize(, Col).Value  ' nap gia tri vao mang
        Rws = UBound(sArr)   'xac dinh dong lon nhat trong mang
        ReDim dArr(1 To R, 1 To Col)  ' khai bao mang moi
        For I = 1 To Rws              'vong lap de duyet qua cac gia tri trong mang
            If sArr(I, 2) >= fDate Then   'so sanh gia tri cot thu 2 cua mang voi thoi gian nho nhat
                If sArr(I, 2) <= eDate Then 'so sanh gia tri cot thu 2 cua mang voi thoi gian lon nhat
                   If UCase(nguoinop) = UCase(sArr(I, 5)) Then        'so sanh nguoi nop voi data duoc so sanh
                    K = K + 1                'neu gia tri mang thoa man 2 dieu kien thi K se duoc tang them 1 gia tri
                    dArr(K, 1) = K            'gan vi tri thu nhat cua mang moi bang K (day la so thu tu cua mang)
                    For J = 2 To Col           'vong lap de lay cac gia tri con lai vao trong mang moi
                        dArr(K, J) = sArr(I, J) 'gan gia tri
                    Next J
                   End If
                End If
            End If
        Next I
    End If
End With
Range("A9").Resize(1000, Col).ClearContents     'xoa gia tri cua mang can gan
If K Then Range("A9").Resize(K, Col) = dArr      'gan gia tri cua mang
End Sub
Đây bạn xem có thêm trường người nộp.
Nhấp chuột vào đây để mở rộng...
bạn giúp mình với mình đánh theo bạn rồi nhưng khi lọc theo tên người nộp nó lại ko chạy, nó cứ lọc theo thời gian thì đúng, ý mình là mình chỉ cần lọc một trong những điều kiện (nguoinop, phieuthu, noidung) thì nó sẽ lọc ra theo những điều kiện đó chứ không cần đánh hết điều kiện lọc ra ah bạn, tại sao nó chỉ đúng với điều kiện thời gian, còn những thằng khác thì không, bạn xem file giúp mình nhe cảm ơn bạn nhiều, thật sự mình không biết về VBA mong bạn giúp mình với.
 

File đính kèm

Lần chỉnh sửa cuối:
nguyenthotnot đã viết:
bạn giúp mình với mình đánh theo bạn rồi nhưng khi lọc theo tên người nộp nó lại ko chạy, nó cứ lọc theo thời gian thì đúng, ý mình là mình chỉ cần lọc một trong những điều kiện (nguoinop, phieuthu, noidung) thì nó sẽ lọc ra theo những điều kiện đó chứ không cần đánh hết điều kiện lọc ra ah bạn, tại sao nó chỉ đúng với điều kiện thời gian, còn những thằng khác thì không, bạn xem file giúp mình nhe cảm ơn bạn nhiều, thật sự mình không biết về VBA mong bạn giúp mình với.
Nhấp chuột vào đây để mở rộng...
Bạn xem lại file này.
Chú ý không viết tắt, có đầy đủ Chấm, Phẩy, chữ Hoa đầu câu, đầu dòng.
 

File đính kèm

Ba Tê đã viết:
Bạn xem lại file này.
Chú ý không viết tắt, có đầy đủ Chấm, Phẩy, chữ Hoa đầu câu, đầu dòng.
Nhấp chuột vào đây để mở rộng...
Dạ em cảm ơn anh, nhưng em chạy nó báo lỗi màu vàng trong đoạn code VBA này là sao vậy anh, dạ anh nếu mình chọn điều kiện lọc mà mình chỉ viết tắt các chữ đầu nó vẫn lọc ra dạ phải không anh. Mong anh xem lại dùm em.
 

File đính kèm

  • 4.png
    4.png
    216.9 KB · Đọc: 6
nguyenthotnot đã viết:
Dạ em cảm ơn anh, nhưng em chạy nó báo lỗi màu vàng trong đoạn code VBA này là sao vậy anh, dạ anh nếu mình chọn điều kiện lọc mà mình chỉ viết tắt các chữ đầu nó vẫn lọc ra dạ phải không anh. Mong anh xem lại dùm em.
Nhấp chuột vào đây để mở rộng...
Gởi cái hình thì sao biết bạn đã làm gì với sheet?
- Có thể là ô C2 trống (Có ghi rõ trong File: C2 bắt buộc phải chọn) hoặc không có sheet nào có tên = ô C2.
- Code này dò tìm "giống giống", không chính xác. Chỉ cần nhập ô người nộp "Nguyễn" thì nó sẽ lấy tất cả những tên có chữ Nguyễn.
Nếu bạn muốn chính xác thì phải nhập đầy đủ, chính xác tên cần lọc.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

N
Hàm tính chuỗi số trong 1 ô hoặc 1 dãy ô ra tổng kết quả. (5 người xem)
Trả lời
2
Đọc
79
minhminh27
minhminh27
Y
Lấy dữ liệu từ sheet chi tiết sang sheet tổng hợp hàng dọc (3 người xem)
Trả lời
4
Đọc
506
Hoàng Tuấn 868
H
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (5 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
382
Đọc
45K
TomRuoi
TomRuoi
NguyenthiH
Mở file Excel có Pass Open (1 người xem)
Trả lời
39
Đọc
3K
Hoàng Tuấn 868
H
M
Tách dữ liệu trong 1 file thành nhiều sheet theo số lượng dòng (1 người xem)
    • Ngạc nhiên
Trả lời
25
Đọc
3K
Hoàng Tuấn 868
H
T
Tìm số hóa đơn trong chuỗi
Trả lời
11
Đọc
416
thao nguyen01
T
T
  • Question Question
Nhờ ACE cao thủ hỗ trợ mình có một chương trình EXCEL về phân công lớp cho giáo viên
Trả lời
6
Đọc
302
DeTong
D
T
Nhờ các anh chị sửa dùm công thức ạ.
Trả lời
10
Đọc
199
trantrungvinh1989
T
C
Chia sẻ: Kết quả xổ số Keno (1 người xem)
    • Cười
    • Thích
Trả lời
24
Đọc
2K
phuongdaik98
P
Phan Thế Hiệp
Quy đổi từ Thu nhập sau thuế (TNCN) ra Thu nhập tính thuế (1 người xem)
    • Yêu thích
    • Thích
Trả lời
1
Đọc
329
Phan Thế Hiệp
Phan Thế Hiệp
V
Quên mật khẩu file excel
Trả lời
25
Đọc
2K
YêuCN
Y
Nguyen Rem
  • Question Question
Lỗi "User-defined type not defined" khi khai báo biến (1 người xem)
Trả lời
28
Đọc
2K
nguyendang95
N
E
Đánh số cho các cặp số chứng từ và số chứng từ đối ứng
Trả lời
13
Đọc
283
dazkangel
dazkangel
OverAC
  • Dán lên cao
  • Suggestion Suggestion
Chúc mừng sinh nhật GiaiPhapExcel 19 tuổi và tặng ebook "Lập trình VBA phần cơ bản."
    • Thích
    • Yêu thích
Trả lời
5
Đọc
1K
longlacda
L
V
Công thức để phân công chuyên môn cho giáo viên
Trả lời
5
Đọc
289
vietvanyen
V
G
AddIn convert ngày dương lịch sang âm lịch và ngược lại + đọc ngày tháng
Trả lời
20
Đọc
10K
du trung kien
D
8
Hàm trong excel
Trả lời
3
Đọc
114
Hoàng Tuấn 868
H
N
Chuyển giờ công từ bảng công vào bảng tính
Trả lời
16
Đọc
346
ngouyen1505
N
N
Tạo COM Add-In bằng Visual C++ (1 người xem)
    • Thích
Trả lời
7
Đọc
702
nguyendang95
N
Nga1852k
lỗi excel không chèn được dòng và không xóa được dòng
Trả lời
2
Đọc
151
Nga1852k
Nga1852k
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom