Lấy dữ liệu từ file excel khác theo nhiều điều kiện (Dùng VBA)

Liên hệ QC
C

chidung2009

Thành viên hoạt động
Tham gia
12/9/12
Bài viết
123
Được thích
8
Em có 1 file DATA có hơn 500.000 dòng, dung lượng gần 100mb, rất bất tiện khi thao tác trên file đó.
Giờ em muốn tạo 1 file excel khác dùng để lấy dữ liệu, lọc theo nhiều điều kiện thì phải làm thế nào (Không mở file DATA)
- Do file Data quá lớn nên em đã xóa bớt dòng và 1 số sheel khác để giảm dung lượng (Để lại còn 3000 dòng)
- Tại file lấy dữ liệu: khi nhập điều kiện lấy theo tháng vào ô D1, D2 và số tiền vào ô F1, F2 thì khi lấy dữ liệu nó sẽ lọc dữ liệu theo các điều kiện trên (Nếu D1, D2 hoặc F1, F2 trống thì lấy tất cả mà lọc theo điều kiện còn lại)
Mong mọi người giúp em với
Em chần thành cảm ơn
 

File đính kèm

  • lay du lieu.xlsm
    10.2 KB · Đọc: 71
  • DATA.xlsx
    187.8 KB · Đọc: 69
  • hinh.jpg
    hinh.jpg
    42.8 KB · Đọc: 58
Sắp xếp theo thời gian sắp xếp theo bầu chọn
chidung2009 đã viết:
Em có 1 file DATA có hơn 500.000 dòng, dung lượng gần 100mb, rất bất tiện khi thao tác trên file đó.
Giờ em muốn tạo 1 file excel khác dùng để lấy dữ liệu, lọc theo nhiều điều kiện thì phải làm thế nào (Không mở file DATA)
- Do file Data quá lớn nên em đã xóa bớt dòng và 1 số sheel khác để giảm dung lượng (Để lại còn 3000 dòng)
- Tại file lấy dữ liệu: khi nhập điều kiện lấy theo tháng vào ô D1, D2 và số tiền vào ô F1, F2 thì khi lấy dữ liệu nó sẽ lọc dữ liệu theo các điều kiện trên (Nếu D1, D2 hoặc F1, F2 trống thì lấy tất cả mà lọc theo điều kiện còn lại)
Mong mọi người giúp em với
Em chần thành cảm ơn
Nhấp chuột vào đây để mở rộng...
Cách đơn giản là dùng SQL nhưng tại file gốc, bạn phải chuẩn hóa tiêu đề cột: tiêu đề chỉ trên 1 dòng, tên tiêu đề phải không có dấu

Update: đã xem file DATA của bạn. Dữ liệu vậy là OK rồi, chỉ việc múc ra thôi :yeah:
 
Upvote 0
chidung2009 đã viết:
Em có 1 file DATA có hơn 500.000 dòng, dung lượng gần 100mb, rất bất tiện khi thao tác trên file đó.
Giờ em muốn tạo 1 file excel khác dùng để lấy dữ liệu, lọc theo nhiều điều kiện thì phải làm thế nào (Không mở file DATA)
- Do file Data quá lớn nên em đã xóa bớt dòng và 1 số sheel khác để giảm dung lượng (Để lại còn 3000 dòng)
- Tại file lấy dữ liệu: khi nhập điều kiện lấy theo tháng vào ô D1, D2 và số tiền vào ô F1, F2 thì khi lấy dữ liệu nó sẽ lọc dữ liệu theo các điều kiện trên (Nếu D1, D2 hoặc F1, F2 trống thì lấy tất cả mà lọc theo điều kiện còn lại)
Mong mọi người giúp em với
Em chần thành cảm ơn
Nhấp chuột vào đây để mở rộng...
Thử code này nhé.Bạn chỉnh lại dữ liệu Data.Như ảnh dưới và chỉnh lại đường link nhé.
1593662030267.png
Mã: 
Sub laydulieu()
    Dim duonglink As String, thangbd As Integer, thangkt As Integer, tien1 As Double, tien2 As Double
    Dim cn As Object, rst As Object, pro As String, Ext As String, Sql As String
    Set cn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.recordset")
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     Ext = ";Extended Properties=""Excel 12.0;HDR=No;IMEX= 2"";"
     duonglink = ThisWorkbook.Path & "\DATA (2).xlsx" 'chinh lai cho chuan duong dan
    With Sheets("sheet1")
         thangbd = .Range("D1").Value
         thangkt = .Range("D2").Value
         tien1 = .Range("F1").Value
         tien2 = .Range("f2").Value
         .Range("A5:F5000").ClearContents
    End With
    cn.Open (pro & duonglink & Ext)
    Sql = "SELECT * from [sheet3$A5:F100000]  WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"
    rst.Open Sql, cn
    Sheet1.Range("A5").CopyFromRecordset rst
    rst.Close
    cn.Close
End Sub
 
Upvote 0
snow25 đã viết:
Thử code này nhé.Bạn chỉnh lại dữ liệu Data.Như ảnh dưới và chỉnh lại đường link nhé.
View attachment 240292
Mã: 
Sub laydulieu()
    Dim duonglink As String, thangbd As Integer, thangkt As Integer, tien1 As Double, tien2 As Double
    Dim cn As Object, rst As Object, pro As String, Ext As String, Sql As String
    Set cn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.recordset")
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     Ext = ";Extended Properties=""Excel 12.0;HDR=No;IMEX= 2"";"
     duonglink = ThisWorkbook.Path & "\DATA (2).xlsx" 'chinh lai cho chuan duong dan
    With Sheets("sheet1")
         thangbd = .Range("D1").Value
         thangkt = .Range("D2").Value
         tien1 = .Range("F1").Value
         tien2 = .Range("f2").Value
         .Range("A5:F5000").ClearContents
    End With
    cn.Open (pro & duonglink & Ext)
    Sql = "SELECT * from [sheet3$A5:F100000]  WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"
    rst.Open Sql, cn
    Sheet1.Range("A5").CopyFromRecordset rst
    rst.Close
    cn.Close
End Sub
Nhấp chuột vào đây để mở rộng...
Do giờ mình đang ngoài đường nên chưa test thử code vba của bạn. Mình cảm ơn bạn nhiều nhé
 
Upvote 0
chidung2009 đã viết:
Do giờ mình đang ngoài đường nên chưa test thử code vba của bạn. Mình cảm ơn bạn nhiều nhé
Nhấp chuột vào đây để mở rộng...
Thêm -- (hai dấu trừ) trước hàm MID chỗ trường THANG
Bài đã được tự động gộp:

snow25 đã viết:
Thử code này nhé.Bạn chỉnh lại dữ liệu Data.Như ảnh dưới và chỉnh lại đường link nhé.
View attachment 240292
Mã: 
Sub laydulieu()
    Dim duonglink As String, thangbd As Integer, thangkt As Integer, tien1 As Double, tien2 As Double
    Dim cn As Object, rst As Object, pro As String, Ext As String, Sql As String
    Set cn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.recordset")
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     Ext = ";Extended Properties=""Excel 12.0;HDR=No;IMEX= 2"";"
     duonglink = ThisWorkbook.Path & "\DATA (2).xlsx" 'chinh lai cho chuan duong dan
    With Sheets("sheet1")
         thangbd = .Range("D1").Value
         thangkt = .Range("D2").Value
         tien1 = .Range("F1").Value
         tien2 = .Range("f2").Value
         .Range("A5:F5000").ClearContents
    End With
    cn.Open (pro & duonglink & Ext)
    Sql = "SELECT * from [sheet3$A5:F100000]  WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"
    rst.Open Sql, cn
    Sheet1.Range("A5").CopyFromRecordset rst
    rst.Close
    cn.Close
End Sub
Nhấp chuột vào đây để mở rộng...
Cần thư viện gì nữa hay câu SQL sai mà máy tôi báo lỗi này bạn?
LoiChaySQL.jpg
 
Lần chỉnh sửa cuối:
Upvote 0
Upvote 0
Lấy và lọc dữ liệu khủng thì dùng Power Query chứ.
 
Upvote 0
VetMini đã viết:
Lấy và lọc dữ liệu khủng thì dùng Power Query chứ.
Nhấp chuột vào đây để mở rộng...
Power Query mới lạ quá nên mình ko biết dùng cái này. Muốn dùng thì phải cài Add-in gìvaf viết câu lệnh như thế nào
Bài đã được tự động gộp:

Maika8008 đã viết:
Cách đơn giản là dùng SQL nhưng tại file gốc, bạn phải chuẩn hóa tiêu đề cột: tiêu đề chỉ trên 1 dòng, tên tiêu đề phải không có dấu

Update: đã xem file DATA của bạn. Dữ liệu vậy là OK rồi, chỉ việc múc ra thôi :yeah:
Nhấp chuột vào đây để mở rộng...
Mình muốn múc lắm mà ko biết làm thế nào, muốn lấy dữ liệu theo điều kiện sang file khác thì phải viết câu lệnh thế nào?
mình xin cảm ơn
 
Upvote 0
chidung2009 đã viết:
Power Query mới lạ quá nên mình ko biết dùng cái này. Muốn dùng thì phải cài Add-in gìvaf viết câu lệnh như thế nào
Bài đã được tự động gộp:


Mình muốn múc lắm mà ko biết làm thế nào, muốn lấy dữ liệu theo điều kiện sang file khác thì phải viết câu lệnh thế nào?
mình xin cảm ơn
Nhấp chuột vào đây để mở rộng...
Bạn snow25 đã giúp bạn ở bài #3 rồi mà. Bạn chưa thử code sao?
 
Upvote 0
Upvote 0
chidung2009 đã viết:
Power Query mới lạ quá nên mình ko biết dùng cái này. Muốn dùng thì phải cài Add-in gìvaf viết câu lệnh như thế nào
...
Nhấp chuột vào đây để mở rộng...
Làm việc với dữ liệu khủng mà cứ dựa vào code VBA thì cũng như dựa vào tay cầm xích để răn cọp. Có ngày cọp nó quay lại vồ.

Excel chỉ là bảng tính trải rộng. Chuyện truy cập nguồn thuộc về kỹ thuật khác. Dữ liệu khủng lại là mọt kỹ thuật khác nữa.

Làm việc vói dữ liệu khủng mà giờ này mới nói "Power Query mới lạ quá" là kiểu làm việc chạy trối chết theo công việc. Chưa hề biết cách làm chủ tình hình.
 
Upvote 0
snow25 đã viết:
Thử code này nhé.Bạn chỉnh lại dữ liệu Data.Như ảnh dưới và chỉnh lại đường link nhé.
View attachment 240292
Mã: 
Sub laydulieu()
    Dim duonglink As String, thangbd As Integer, thangkt As Integer, tien1 As Double, tien2 As Double
    Dim cn As Object, rst As Object, pro As String, Ext As String, Sql As String
    Set cn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.recordset")
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     Ext = ";Extended Properties=""Excel 12.0;HDR=No;IMEX= 2"";"
     duonglink = ThisWorkbook.Path & "\DATA (2).xlsx" 'chinh lai cho chuan duong dan
    With Sheets("sheet1")
         thangbd = .Range("D1").Value
         thangkt = .Range("D2").Value
         tien1 = .Range("F1").Value
         tien2 = .Range("f2").Value
         .Range("A5:F5000").ClearContents
    End With
    cn.Open (pro & duonglink & Ext)
    Sql = "SELECT * from [sheet3$A5:F100000]  WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"
    rst.Open Sql, cn
    Sheet1.Range("A5").CopyFromRecordset rst
    rst.Close
    cn.Close
End Sub
Nhấp chuột vào đây để mở rộng...
Mình đã thử code của bạn và đã thành công, mình cảm ơn bạn nhiều
 
Upvote 0
snow25 đã viết:
Thử code này nhé.Bạn chỉnh lại dữ liệu Data.Như ảnh dưới và chỉnh lại đường link nhé.
View attachment 240292
Mã: 
Sub laydulieu()
    Dim duonglink As String, thangbd As Integer, thangkt As Integer, tien1 As Double, tien2 As Double
    Dim cn As Object, rst As Object, pro As String, Ext As String, Sql As String
    Set cn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.recordset")
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     Ext = ";Extended Properties=""Excel 12.0;HDR=No;IMEX= 2"";"
     duonglink = ThisWorkbook.Path & "\DATA (2).xlsx" 'chinh lai cho chuan duong dan
    With Sheets("sheet1")
         thangbd = .Range("D1").Value
         thangkt = .Range("D2").Value
         tien1 = .Range("F1").Value
         tien2 = .Range("f2").Value
         .Range("A5:F5000").ClearContents
    End With
    cn.Open (pro & duonglink & Ext)
    Sql = "SELECT * from [sheet3$A5:F100000]  WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"
    rst.Open Sql, cn
    Sheet1.Range("A5").CopyFromRecordset rst
    rst.Close
    cn.Close
End Sub
Nhấp chuột vào đây để mở rộng...
Cho mình hỏi Đoạn mã:
Sql = "SELECT * from [sheet3$A5:F100000] WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"
Vậy WHERE F5 BETWEEN và AND F6 BETWEEN có nghĩa là gì vậy ?
Sao không phải là E2 và F2
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11/2024
    • Yêu thích
    • Thích
Trả lời
1
Đọc
58
SA_DQ
SA_DQ
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
2
Trả lời
32
Đọc
833
VetMini
V
K
Nhờ mọi người hoàn thiện giúp công thức
Trả lời
4
Đọc
93
kiendt1973
K
dovanha1994
Giúp e tìm nguyên nhân sai và hướng dẫn e đọc file này với ạ
    • Phẫn nộ
Trả lời
3
Đọc
97
dovanha1994
dovanha1994
N
Giúp sửa mã code
Trả lời
19
Đọc
403
ptm0412
ptm0412
P
Nhờ giúp đỡ hàm lọc dữ liệu theo tỉnh
Trả lời
10
Đọc
164
Parabol
P
CodyPham97
tạo biểu tượng thay thế nhấn đúp chuột
Trả lời
1
Đọc
54
BuiQuangThuan
B
H
Chúc mừng 20/11- ngày tôn vinh nhà giáo Việt Nam.
    • Thích
    • Yêu thích
Trả lời
0
Đọc
58
HUONGHCKT
H
F
  • Question
Nhờ tư vấn cách tạo QR trong Excel
Trả lời
4
Đọc
448
hoangtuan.net
hoangtuan.net
N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
7
Đọc
190
Ny Ny 2024
N
20050911
File Excel lỗi ''The file could not be accessed. Try one of the following:.."
Trả lời
9
Đọc
457
bibuzz90
B
Nhật Anh 9x
  • Question
Tính tồn cuối kỳ luỹ kế cho nhiều mã
Trả lời
2
Đọc
97
Nhật Anh 9x
Nhật Anh 9x
H
Hỗ trợ lấy danh sách dữ liệu thỏa mãn điều kiện
Trả lời
1
Đọc
83
bebo021999
B
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
2
Trả lời
20
Đọc
571
ptm0412
ptm0412
nguyen trung cuong
File chứa marco không mở được.
Trả lời
2
Đọc
73
nguyen trung cuong
nguyen trung cuong
huynhnhu1234
Tìm giá vé máy bay một chiều và khứ hồi
Trả lời
1
Đọc
114
hvnhpro
H
nobita994
Trừ số lượng dần theo dòng khi quét Sumif tổng có tên sản phẩm bị trùng.
Trả lời
2
Đọc
78
bebo021999
B
PhanTuHuong
Bàn về môn thể thao bóng bàn nào!
    • Thích
    • Yêu thích
    • Cười
2
Trả lời
37
Đọc
2K
cantl
C
S
  • Question
Xin file excel bảng giá quần áo, trang phục, phụ kiện
Trả lời
2
Đọc
79
VetMini
V
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
19
Đọc
388
VetMini
V
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

Back
Top Bottom