Lọc dữ liệu từ File đang đóng

hoahuongduong1986 · 7/10/21

Kính gửi Anh Chị,

Em có bài toán lọc dữ liệu từ một File khác dùng Excel VBA GetOpenFileName to Browse and Select File. Bình thường thì hay lấy toàn bộ số liệu từ sheet Data từ file Data vào sheet Ket_qua của file “ Lay du lieu co dieu kien tu file khac”. Rồi sau đó mới làm code phân tích này nọ ở file “ Lay du lieu co dieu kien tu file khac.

Code thế nào để lọc trực tiếp số liệu có điều kiện từ sheet Data từ File Data vào sheet Ket_qua của file “ Lay du lieu co dieu kien tu file khac” với điều kiện lọc như sau: Chỉ lấy 4 trường như sheet Ket_qua và trường Trade Flow loại bỏ mã Export
Em cảm ơn ạ !

Maika8008 · 8/10/21

Thấy 80 người đọc, 3 người tải file mà hôm qua đến giờ không thấy ai giải dùm nhỉ? Chắc bận xem bóng đá --=0

hoahuongduong1986 · 8/10/21

Maika8008 đã viết:
Thấy 80 người đọc, 3 người tải file mà hôm qua đến giờ không thấy ai giải dùm nhỉ? Chắc bận xem bóng đá

Chắc vậy anh ạ !

BuiQuangThuan · 8/10/21

hoahuongduong1986 đã viết:
Kính gửi Anh Chị,

Em có bài toán lọc dữ liệu từ một File khác dùng Excel VBA GetOpenFileName to Browse and Select File. Bình thường thì hay lấy toàn bộ số liệu từ sheet Data từ file Data vào sheet Ket_qua của file “ Lay du lieu co dieu kien tu file khac”. Rồi sau đó mới làm code phân tích này nọ ở file “ Lay du lieu co dieu kien tu file khac.

Code thế nào để lọc trực tiếp số liệu có điều kiện từ sheet Data từ File Data vào sheet Ket_qua của file “ Lay du lieu co dieu kien tu file khac” với điều kiện lọc như sau: Chỉ lấy 4 trường như sheet Ket_qua và trường Trade Flow loại bỏ mã Export
Em cảm ơn ạ !

Mã:

Sub Get_Data_From_File()
    Dim FileToOpen As Variant
    Dim Arr(), Res(), i&, K&
    Dim OpenBook As Workbook
    Application.ScreenUpdating = False
    FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*")
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
        Arr = OpenBook.Sheets("Data").Range("RangeName").Value
        OpenBook.Close False
        ReDim Res(1 To UBound(Arr, 1), 1 To 4)
        For i = 2 To UBound(Arr, 1)
            If Arr(i, 4) <> "Export" Then
                K = K + 1
                Res(K, 1) = Arr(i, 4)
                Res(K, 2) = Arr(i, 7)
                 Res(K, 3) = Arr(i, 8)
                  Res(K, 4) = Arr(i, 10)
            End If
        Next
        If K Then
        ThisWorkbook.Sheets("Ket_qua").Range("A6:D10000").ClearContents
        ThisWorkbook.Sheets("Ket_qua").Range("A6").Resize(K, 4).Value = Res
        End If
    End If
    Application.ScreenUpdating = True
End Sub

Thử code này coi có đúng ý bạn không?

Maika8008 · 8/10/21

hoahuongduong1986 đã viết:
Chắc vậy anh ạ !

Cách với ADODB_____

ongke0711 · 8/10/21

hoahuongduong1986 đã viết:
Code thế nào để lọc trực tiếp số liệu có điều kiện từ sheet Data từ File Data vào sheet Ket_qua của file “ Lay du lieu co dieu kien tu file khac” với điều kiện lọc như sau: Chỉ lấy 4 trường như sheet Ket_qua và trường Trade Flow loại bỏ mã Export
Em cảm ơn ạ !

Bảng Data của bạn đã chuẩn thì có thể dùng ADO, Power Query để truy vấn. Tôi dùng ADO cho file này. Chỉ dùng cho một số trường hợp đơn giản thôi.
- Nếu chỉ lấy dữ liệu không Sum, Count thì để trống cột: [GroupByFLD], [SumFLD], [CountFLD].
- Nếu muốn Sum/Count cột nào thì thêm vào các trường cần Sum vào các cột trên.

hoahuongduong1986 · 8/10/21

buiquangthuan đã viết:

Mã:

Sub Get_Data_From_File()
    Dim FileToOpen As Variant
    Dim Arr(), Res(), i&, K&
    Dim OpenBook As Workbook
    Application.ScreenUpdating = False
    FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*")
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
        Arr = OpenBook.Sheets("Data").Range("RangeName").Value
        OpenBook.Close False
        ReDim Res(1 To UBound(Arr, 1), 1 To 4)
        For i = 2 To UBound(Arr, 1)
            If Arr(i, 4) <> "Export" Then
                K = K + 1
                Res(K, 1) = Arr(i, 4)
                Res(K, 2) = Arr(i, 7)
                 Res(K, 3) = Arr(i, 8)
                  Res(K, 4) = Arr(i, 10)
            End If
        Next
        If K Then
        ThisWorkbook.Sheets("Ket_qua").Range("A6:D10000").ClearContents
        ThisWorkbook.Sheets("Ket_qua").Range("A6").Resize(K, 4).Value = Res
        End If
    End If
    Application.ScreenUpdating = True
End Sub

Thử code này coi có đúng ý bạn không?

Cảm ơn anh nhiều ạ ! Đúng cái em đang cần ạ !

Bài đã được tự động gộp: 8/10/21

Maika8008 đã viết:
Cách với ADODB_____

Cảm ơn anh nhiều ạ ! Đã có thêm một cách mới ngoài dùng mảng ở trên ạ !

Bài đã được tự động gộp: 8/10/21

ongke0711 đã viết:
Bảng Data của bạn đã chuẩn thì có thể dùng ADO, Power Query để truy vấn. Tôi dùng ADO cho file này. Chỉ dùng cho một số trường hợp đơn giản thôi.
- Nếu chỉ lấy dữ liệu không Sum, Count thì để trống cột: [GroupByFLD], [SumFLD], [CountFLD].
- Nếu muốn Sum/Count cột nào thì thêm vào các trường cần Sum vào các cột trên.

View attachment 267374

Em xin cảm ơn anh ạ ! NHiều cái hay để học rồi ạ !

HUONGHCKT · 9/10/21

hoahuongduong1986 đã viết:
Kính gửi Anh Chị,

Em có bài toán lọc dữ liệu từ một File khác dùng Excel VBA GetOpenFileName to Browse and Select File. Bình thường thì hay lấy toàn bộ số liệu từ sheet Data từ file Data vào sheet Ket_qua của file “ Lay du lieu co dieu kien tu file khac”. Rồi sau đó mới làm code phân tích này nọ ở file “ Lay du lieu co dieu kien tu file khac.

Code thế nào để lọc trực tiếp số liệu có điều kiện từ sheet Data từ File Data vào sheet Ket_qua của file “ Lay du lieu co dieu kien tu file khac” với điều kiện lọc như sau: Chỉ lấy 4 trường như sheet Ket_qua và trường Trade Flow loại bỏ mã Export
Em cảm ơn ạ !

Góp vui.
Hoàn toàn không biết các trường cần lọc nằm ở cột nào trong Sh Data
nếu còn quan tâm thì thử xem file đính kèm.
bạn thay đổi ô D2 và xem kết quả ở Dòng 10.
Bài này được hoàn thành dựa trên ý tưởng của Anh NDU
Chạy code NapDic một lần (lần đầu có thể hơi chậm chút), những lần sau chỉ việc lấy trong dic ra dùng.
Nếu phát triển thêm có thể lọc theo các tiêu chí. Impots, Expots, re-Im, Re-Ex (mỗi tiêu chí một dòng), hoặc kết hợp với lọc theo thời gian
P/S tại ShData thêm đoạn code này để cập nhật lại Dic khi có sự thay đổi.

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
  Chk = True
End Sub
Private Sub Worksheet_Deactivate()
  If Chk Then
    NapDic
    Chk = False
  End If
End Sub

ongke0711 · 9/10/21

HUONGHCKT đã viết:
Chạy code NapDic một lần (lần đầu có thể hơi chậm chút), những lần sau chỉ việc lấy trong dic ra dùng.
Nếu phát triển thêm có thể lọc theo các tiêu chí. Impots, Expots, re-Im, Re-Ex (mỗi tiêu chí một dòng), hoặc kết hợp với lọc theo thời gian
P/S tại ShData thêm đoạn code này để cập nhật lại Dic khi có sự thay đổi.

Bạn phát triển thêm chút là tuỳ chọn Field cần lấy luôn thì nó linh hoạt hơn nữa.

HUONGHCKT · 9/10/21

ongke0711 đã viết:
Bạn phát triển thêm chút là tuỳ chọn Field cần lấy luôn thì nó linh hoạt hơn nữa.

Kiến thức về Ex nói chung và VBA nói riêng nông cạn, chủ yếu là chắp vá, học mót thôi. Nhưng tôi đã thấy ở một số bài nào đó trên diễn đàn này đã làm được điều đó. Và nếu làm được thì nó có thật sự cần thiết cho chủ thớt không?

ongke0711 · 9/10/21

HUONGHCKT đã viết:
Kiến thức về Ex nói chung và VBA nói riêng nông cạn, chủ yếu là chắp vá, học mót thôi. Nhưng tôi đã thấy ở một số bài nào đó trên diễn đàn này đã làm được điều đó. Và nếu làm được thì nó có thật sự cần thiết cho chủ thớt không?

Tôi thì lại có suy nghĩ khác khi nhìn vào đề bài đó là: với CSDL như vậy, bây giờ chủ thớt chỉ cần trích dữ liệu 5 cột như vây nhưng sau này khi cần lấy thêm cột khác thì lại phải vô code chỉnh sửa (phần lớn các bài giải trên đây là như vậy, code chết các tham số tuỳ chọn trong code luôn), nếu không biết chỉnh sửa thì lại lên hỏi tiếp, mất thời gian cả đôi bên. Do đó cách tôi viết code là làm sao giảm thiểu việc can thiệp vào code khi có thay đổi, khi thay đổi chỉ cần khai báo các tham chiếu trên Sheet và code làm phần còn lại. Nó chỉ là giải thuật vậy thôi.

Cá ngừ F1 · 9/10/21

Nếu dùng Power Query thì bài này nhàn tênh đó bạn,
link đến dữ liệu gốc đưa vào cell, cần thay đổi thì đổi trên cell, làm cái Query, sau chỉ cần refresh là xong.
Bạn thử thay đường dẫn đến file Data ở sheet Setting, rồi sang Sheet Ket_Qua refresh nhé.

hoahuongduong1986 · 9/10/21

Cá ngừ F1 đã viết:
Nếu dùng Power Query thì bài này nhàn tênh đó bạn,
link đến dữ liệu gốc đưa vào cell, cần thay đổi thì đổi trên cell, làm cái Query, sau chỉ cần refresh là xong.
Bạn thử thay đường dẫn đến file Data ở sheet Setting, rồi sang Sheet Ket_Qua refresh nhé.

Em cảm ơn anh rất nhiều ạ!

Lọc dữ liệu từ File đang đóng

hoahuongduong1986

Thành viên thường trực

File đính kèm

Maika8008

Thành viên gạo cội

hoahuongduong1986

Thành viên thường trực

BuiQuangThuan

❆❆❆❆❆❆❆❆❆❆❆❆

Maika8008

Thành viên gạo cội

File đính kèm

ongke0711

Thành viên gắn bó

File đính kèm

hoahuongduong1986

Thành viên thường trực

HUONGHCKT

Zalo 0986997214

File đính kèm

ongke0711

Thành viên gắn bó

HUONGHCKT

Zalo 0986997214

ongke0711

Thành viên gắn bó

Cá ngừ F1

( ͡° ͜ʖ ͡°)

File đính kèm

hoahuongduong1986

Thành viên thường trực

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

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