Tạo form tìm kiếm dữ liệu từ 1 file excel khác.

Liên hệ QC
M

momo101194

Thành viên mới
Tham gia
1/6/20
Bài viết
38
Được thích
5
Xin chào thầy và các bạn.
Mục đích:tìm kiếm dữ liệu từ file excel data đang đóng hiển thị lên form tìm kiếm của file excel tim kiếm.
-Mình có 2 file excel lad data và tìm kiếm.ở file tìm kiếm mình có tạo một form tìm kiếm,sau khi gõ tên cong ty cần tìm vào textbox và tìm kiếm thì listbox sẽ hiển thị ra thông tin của công ty đó.
-file mình đính kèm phía dưới.
-Làm phiền mọi người chỉ giúp ah,xin cảm ơn!
 

File đính kèm

  • data_quanly.xlsx
    12.9 KB · Đọc: 21
  • tiem kiem.xlsm
    16.7 KB · Đọc: 9
Sắp xếp theo thời gian sắp xếp theo bầu chọn
momo101194 đã viết:
Xin chào thầy và các bạn.
Mục đích:tìm kiếm dữ liệu từ file excel data đang đóng hiển thị lên form tìm kiếm của file excel tim kiếm.
-Mình có 2 file excel lad data và tìm kiếm.ở file tìm kiếm mình có tạo một form tìm kiếm,sau khi gõ tên cong ty cần tìm vào textbox và tìm kiếm thì listbox sẽ hiển thị ra thông tin của công ty đó.
-file mình đính kèm phía dưới.
-Làm phiền mọi người chỉ giúp ah,xin cảm ơn!
Nhấp chuột vào đây để mở rộng...
Tôi thấy có 2 vấn đề:
- File tìm kiếm bạn lưu dạng .xlsx nên mất luôn code và Userform rồi.
- Tại sao bạn không để data ở 1 sheet khác trong file tìm kiếm luôn?
 
Upvote 0
vanthinh3101 đã viết:
Tôi thấy có 2 vấn đề:
- File tìm kiếm bạn lưu dạng .xlsx nên mất luôn code và Userform rồi.
- Tại sao bạn không để data ở 1 sheet khác trong file tìm kiếm luôn?
Nhấp chuột vào đây để mở rộng...

cảm ơn @vanthinh3101 đã góp ý mình đã sửa lại file rồi ah.
『-Tại sao bạn không để data ở 1 sheet khác trong file tìm kiếm luôn?』
Đây là hai file giả dụ mình đưa ra để mọi người hình dung dể hơn.
-Do luợng thông tin trong mỗi file đều lớn nên mình không thể gọp chung lại đuợc.
-Thứ2 do cấp trên yêu cầu mình như thế mong bạn thông cảm ah.
 
Upvote 0
momo101194 đã viết:
cảm ơn @vanthinh3101 đã góp ý mình đã sửa lại file rồi ah.
『-Tại sao bạn không để data ở 1 sheet khác trong file tìm kiếm luôn?』
Đây là hai file giả dụ mình đưa ra để mọi người hình dung dể hơn.
-Do luợng thông tin trong mỗi file đều lớn nên mình không thể gọp chung lại đuợc.
-Thứ2 do cấp trên yêu cầu mình như thế mong bạn thông cảm ah.
Nhấp chuột vào đây để mở rộng...
Bạn tham khảo file đính kèm.
Điều kiện là file Tim kiem và file data nằm trong cùng 1 folder.
 

File đính kèm

  • Tim kiem.xlsm
    26.4 KB · Đọc: 30
Upvote 0
vanthinh3101 đã viết:
Bạn tham khảo file đính kèm.
Điều kiện là file Tim kiem và file data nằm trong cùng 1 folder.
Nhấp chuột vào đây để mở rộng...
Mã: 
Public Function SearchDataFromClosedWorkbook(CloseWb As String, txt1 As String, txt2 As String)
    'CloseWb: file chua data
    'SQL: cu phap truy van du lieu
    'txt1: gia tri Textbox MA SO
    'txt2: gia tri Textbox Ten cong ty
    
    Dim cnn As Object, Rst As Object, SQL As String, SearchRes(), WbPath As String
    
    Set cnn = CreateObject("ADODB.Connection")
    Set Rst = CreateObject("ADODB.Recordset")
    'WbPath = ThisWorkbook.Path & "\" & CloseWb
    
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & CloseWb & _
            ";Extended Properties=""Excel 12.0;HDR=Yes;"""
    
    txt1 = """%" & txt1 & "%"""
    txt2 = """%" & txt2 & "%"""
    
    SQL = "SELECT * FROM [合計シート$] WHERE 企業名 LIKE " & txt1 & " AND 部署名 Like " & txt2
    
    Set Rst = cnn.Execute(SQL)
    
    If Not Rst.EOF And Not Rst.bof Then
        SearchRes = Rst.getrows
        SearchDataFromClosedWorkbook = f_transpose2DArray(SearchRes)
    Else
        SearchDataFromClosedWorkbook = Array("Khong co ket qua thoa man dieu kien")
    End If
    Rst.Close
    cnn.Close
    
End Function
＠vanthinh3101
Làm phiền bạn, mình có sữa lại theo tên file của mình như trên nhưng khi chạy ra thì bị lỗi ở đoạn này.
SQL = "SELECT * FROM [合計シート$] WHERE 企業名 LIKE " & txt1 & " AND 部署名 Like " & txt2

Set Rst = cnn.Execute(SQL) ->No value given for one or more required parameters
 
Upvote 0
momo101194 đã viết:
Mã: 
Public Function SearchDataFromClosedWorkbook(CloseWb As String, txt1 As String, txt2 As String)
    'CloseWb: file chua data
    'SQL: cu phap truy van du lieu
    'txt1: gia tri Textbox MA SO
    'txt2: gia tri Textbox Ten cong ty
   
    Dim cnn As Object, Rst As Object, SQL As String, SearchRes(), WbPath As String
   
    Set cnn = CreateObject("ADODB.Connection")
    Set Rst = CreateObject("ADODB.Recordset")
    'WbPath = ThisWorkbook.Path & "\" & CloseWb
   
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & CloseWb & _
            ";Extended Properties=""Excel 12.0;HDR=Yes;"""
   
    txt1 = """%" & txt1 & "%"""
    txt2 = """%" & txt2 & "%"""
   
    SQL = "SELECT * FROM [合計シート$] WHERE 企業名 LIKE " & txt1 & " AND 部署名 Like " & txt2
   
    Set Rst = cnn.Execute(SQL)
   
    If Not Rst.EOF And Not Rst.bof Then
        SearchRes = Rst.getrows
        SearchDataFromClosedWorkbook = f_transpose2DArray(SearchRes)
    Else
        SearchDataFromClosedWorkbook = Array("Khong co ket qua thoa man dieu kien")
    End If
    Rst.Close
    cnn.Close
   
End Function
＠vanthinh3101
Làm phiền bạn, mình có sữa lại theo tên file của mình như trên nhưng khi chạy ra thì bị lỗi ở đoạn này.
SQL = "SELECT * FROM [合計シート$] WHERE 企業名 LIKE " & txt1 & " AND 部署名 Like " & txt2

Set Rst = cnn.Execute(SQL) ->No value given for one or more required parameters
Nhấp chuột vào đây để mở rộng...
Tôi không rành ngôn ngữ mà bạn thay vào.
Thôi thì bạn sửa thế này cho tôi.
PHP: 
Public Function SearchDataFromClosedWorkbook(CloseWb As String, txt1 As String, txt2 As String)
    'CloseWb: file chua data
    'SQL: cu phap truy van du lieu
    'txt1: gia tri Textbox MA SO
    'txt2: gia tri Textbox Ten cong ty
    
    Dim cnn As Object, Rst As Object, SQL As String, SearchRes(), WbPath As String
    
    Set cnn = CreateObject("ADODB.Connection")
    Set Rst = CreateObject("ADODB.Recordset")
    'WbPath = ThisWorkbook.Path & "\" & CloseWb
    
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & CloseWb & _
            ";Extended Properties=""Excel 12.0;HDR=No;"""
    
    txt1 = """%" & txt1 & "%"""
    txt2 = """%" & txt2 & "%"""
    
    SQL = "SELECT * FROM [合計シート$] WHERE F1 LIKE " & txt1 & " AND F2 Like " & txt2
    
    Set Rst = cnn.Execute(SQL)
    
    If Not Rst.EOF And Not Rst.bof Then
        SearchRes = Rst.getrows
        SearchDataFromClosedWorkbook = f_transpose2DArray(SearchRes)
    Else
        SearchDataFromClosedWorkbook = Array("Khong co ket qua thoa man dieu kien")
    End If
    Rst.Close
    cnn.Close
    
End Function
 
Upvote 0
vanthinh3101 đã viết:
Tôi không rành ngôn ngữ mà bạn thay vào.
Thôi thì bạn sửa thế này cho tôi.
PHP: 
Public Function SearchDataFromClosedWorkbook(CloseWb As String, txt1 As String, txt2 As String)
    'CloseWb: file chua data
    'SQL: cu phap truy van du lieu
    'txt1: gia tri Textbox MA SO
    'txt2: gia tri Textbox Ten cong ty
  
    Dim cnn As Object, Rst As Object, SQL As String, SearchRes(), WbPath As String
  
    Set cnn = CreateObject("ADODB.Connection")
    Set Rst = CreateObject("ADODB.Recordset")
    'WbPath = ThisWorkbook.Path & "\" & CloseWb
  
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & CloseWb & _
            ";Extended Properties=""Excel 12.0;HDR=No;"""
  
    txt1 = """%" & txt1 & "%"""
    txt2 = """%" & txt2 & "%"""
  
    SQL = "SELECT * FROM [合計シート$] WHERE F1 LIKE " & txt1 & " AND F2 Like " & txt2
  
    Set Rst = cnn.Execute(SQL)
  
    If Not Rst.EOF And Not Rst.bof Then
        SearchRes = Rst.getrows
        SearchDataFromClosedWorkbook = f_transpose2DArray(SearchRes)
    Else
        SearchDataFromClosedWorkbook = Array("Khong co ket qua thoa man dieu kien")
    End If
    Rst.Close
    cnn.Close
  
End Function
Nhấp chuột vào đây để mở rộng...
vanthinh3101 đã viết:
Tôi không rành ngôn ngữ mà bạn thay vào.
Thôi thì bạn sửa thế này cho tôi.
PHP: 
Public Function SearchDataFromClosedWorkbook(CloseWb As String, txt1 As String, txt2 As String)
    'CloseWb: file chua data
    'SQL: cu phap truy van du lieu
    'txt1: gia tri Textbox MA SO
    'txt2: gia tri Textbox Ten cong ty
  
    Dim cnn As Object, Rst As Object, SQL As String, SearchRes(), WbPath As String
  
    Set cnn = CreateObject("ADODB.Connection")
    Set Rst = CreateObject("ADODB.Recordset")
    'WbPath = ThisWorkbook.Path & "\" & CloseWb
  
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & CloseWb & _
            ";Extended Properties=""Excel 12.0;HDR=No;"""
  
    txt1 = """%" & txt1 & "%"""
    txt2 = """%" & txt2 & "%"""
  
    SQL = "SELECT * FROM [合計シート$] WHERE F1 LIKE " & txt1 & " AND F2 Like " & txt2
  
    Set Rst = cnn.Execute(SQL)
  
    If Not Rst.EOF And Not Rst.bof Then
        SearchRes = Rst.getrows
        SearchDataFromClosedWorkbook = f_transpose2DArray(SearchRes)
    Else
        SearchDataFromClosedWorkbook = Array("Khong co ket qua thoa man dieu kien")
    End If
    Rst.Close
    cnn.Close
  
End Function
Nhấp chuột vào đây để mở rộng...
vanthinh3101 đã viết:
Tôi không rành ngôn ngữ mà bạn thay vào.
Thôi thì bạn sửa thế này cho tôi.
PHP: 
Public Function SearchDataFromClosedWorkbook(CloseWb As String, txt1 As String, txt2 As String)
    'CloseWb: file chua data
    'SQL: cu phap truy van du lieu
    'txt1: gia tri Textbox MA SO
    'txt2: gia tri Textbox Ten cong ty
  
    Dim cnn As Object, Rst As Object, SQL As String, SearchRes(), WbPath As String
  
    Set cnn = CreateObject("ADODB.Connection")
    Set Rst = CreateObject("ADODB.Recordset")
    'WbPath = ThisWorkbook.Path & "\" & CloseWb
  
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & CloseWb & _
            ";Extended Properties=""Excel 12.0;HDR=No;"""
  
    txt1 = """%" & txt1 & "%"""
    txt2 = """%" & txt2 & "%"""
  
    SQL = "SELECT * FROM [合計シート$] WHERE F1 LIKE " & txt1 & " AND F2 Like " & txt2
  
    Set Rst = cnn.Execute(SQL)
  
    If Not Rst.EOF And Not Rst.bof Then
        SearchRes = Rst.getrows
        SearchDataFromClosedWorkbook = f_transpose2DArray(SearchRes)
    Else
        SearchDataFromClosedWorkbook = Array("Khong co ket qua thoa man dieu kien")
    End If
    Rst.Close
    cnn.Close
  
End Function
Nhấp chuột vào đây để mở rộng...
dạ cảm ơn @vanthinh3101 nhiều ah
-Do file của mình bằng tiếng nhật nên hơi khó hiểu bạn thông cảm.
-Khi kết nối sql thì trong file excel có cần phải thêm hay check gì khong ah, chẳng hạn như Microsoft ActiveX Data...
-Do font chữ của mình không phù hợp không ah
-Dưới đây là file thật của mình, mình đã sửa lại rồi nhưng vẫn không đúng bạn có thể xem giúp mình đuợc không ah.
Bài đã được tự động gộp:

Cảm ơn @vanthinh3101 nhiều ah !
Mình đã sửa lại đuợc rồi,cảm ơn sự nhiệt tình của bạn ah.

Mã: 
Public Function f_transpose2DArray(inputArray As Variant) As Variant

Dim x As Long, yUbound As Long
Dim y As Long, xUbound As Long
Dim tempArray As Variant

    xUbound = UBound(inputArray, 2) + 1
    yUbound = UBound(inputArray, 1) + 1
    
    ReDim tempArray(1 To xUbound, 1 To yUbound)
    
    For x = 1 To xUbound
        For y = 1 To yUbound
            tempArray(x, y) = inputArray(y - 1, x - 1)
        Next y
    Next x
    
    f_transpose2DArray = tempArray
    
End Function
có thể giải thích giúp mình ý nghĩa của đoạn code này được ko ah
 

File đính kèm

  • excel.png
    excel.png
    175.5 KB · Đọc: 14
  • Tim kiem.xlsm
    25.8 KB · Đọc: 11
Lần chỉnh sửa cuối:
Upvote 0
momo101194 đã viết:
dạ cảm ơn @vanthinh3101 nhiều ah
-Do file của mình bằng tiếng nhật nên hơi khó hiểu bạn thông cảm.
-Khi kết nối sql thì trong file excel có cần phải thêm hay check gì khong ah, chẳng hạn như Microsoft ActiveX Data...
-Do font chữ của mình không phù hợp không ah
-Dưới đây là file thật của mình, mình đã sửa lại rồi nhưng vẫn không đúng bạn có thể xem giúp mình đuợc không ah.
Bài đã được tự động gộp:

Cảm ơn @vanthinh3101 nhiều ah !
Mình đã sửa lại đuợc rồi,cảm ơn sự nhiệt tình của bạn ah.

Mã: 
Public Function f_transpose2DArray(inputArray As Variant) As Variant

Dim x As Long, yUbound As Long
Dim y As Long, xUbound As Long
Dim tempArray As Variant

    xUbound = UBound(inputArray, 2) + 1
    yUbound = UBound(inputArray, 1) + 1
   
    ReDim tempArray(1 To xUbound, 1 To yUbound)
   
    For x = 1 To xUbound
        For y = 1 To yUbound
            tempArray(x, y) = inputArray(y - 1, x - 1)
        Next y
    Next x
   
    f_transpose2DArray = tempArray
   
End Function
có thể giải thích giúp mình ý nghĩa của đoạn code này được ko ah
Nhấp chuột vào đây để mở rộng...
Tên Function thể hiện luôn ý nghĩa của code rồi đó bạn :p:p:p
Bạn đã dùng Paste Special/Transpose bao giờ chưa?
 
Upvote 0
vanthinh3101 đã viết:
Tên Function thể hiện luôn ý nghĩa của code rồi đó bạn :p:p:p
Bạn đã dùng Paste Special/Transpose bao giờ chưa?
Nhấp chuột vào đây để mở rộng...
-Mình chưa dùng bao giờ nên không biết .
-Kiểu như là Chuyển đổi mảng và in ra kết quả ah.
-Mình không muốn hiển thị dòng tiêu đề vào listbox thì có đuợc ko ah
 
Lần chỉnh sửa cuối:
Upvote 0
vanthinh3101 đã viết:
Tác dụng của UDF đó là xoay mảng ban đầu 90 độ (dọc --> ngang; ngang --> dọc)
Nhấp chuột vào đây để mở rộng...
vanthinh3101 đã viết:
Tác dụng của UDF đó là xoay mảng ban đầu 90 độ (dọc --> ngang; ngang --> dọc)
Nhấp chuột vào đây để mở rộng...
vậy cho mình hỏi ngu 1 câu đuợc không ah.
-tại sao phải xoay mảng ban đầu de làm gì vaf mục đích của việc xoay mảng đó để làm gì ah!
-Neu Mình không muốn hiển thị dòng tiêu đề vào listbox thì có đuợc ko ah
 
Upvote 0
gợi ý thôi nhé

1/ tại sao không khai báo cái Res thành như sau
Mã: 
Public Res As Variant

2/ dùng ADO hàm đó lấy 1 lần duy nhất cho vào cái mảng Res đó xong cứ thế xài sự kiện mà gõ là nó ra mà nhanh tiết kiệm chút khởi mất công kết nối lại từ đầu sau mỗi lần lọc
.....
Tự mò tiếp nó mới có tinh thần học tập và khám phá he .... Mạnh tới đó là xong :p
 
Lần chỉnh sửa cuối:
Upvote 0
Kiều Mạnh đã viết:
gợi ý thôi nhé

1/ tại sao không khai báo cái Res thành như sau
Mã: 
Public Res As Variant

2/ dùng ADO hàm đó lấy 1 lần duy nhất cho vào cái mảng Res đó xong cứ thế xài sự kiện mà gõ là nó ra mà nhanh tiết kiệm chút khởi mất công kết nối lại từ đầu sau mỗi lần lọc
.....
Tự mò tiếp nó mới có tinh thần học tập và khám phá he .... Mạnh tới đó là xong :p
Nhấp chuột vào đây để mở rộng...
Em hiểu thế này có đúng ý của anh không ạ?
- Khi khởi tạo Userform, sẽ dùng hàm ADO ở trên để đưa toàn bộ dữ liệu data vào Listbox bằng cú pháp "Select * from [data$]"
- Khi textbox1 và textbox2 thay đổi thì sẽ thực hiện lọc.
 
Upvote 0
Kiều Mạnh đã viết:
gợi ý thôi nhé

1/ tại sao không khai báo cái Res thành như sau
Mã: 
Public Res As Variant

2/ dùng ADO hàm đó lấy 1 lần duy nhất cho vào cái mảng Res đó xong cứ thế xài sự kiện mà gõ là nó ra mà nhanh tiết kiệm chút khởi mất công kết nối lại từ đầu sau mỗi lần lọc
.....
Tự mò tiếp nó mới có tinh thần học tập và khám phá he .... Mạnh tới đó là xong :p
Nhấp chuột vào đây để mở rộng...
Em nhờ bác chỉ dạy thêm đoạn này, em đang bị bí rồi.
Em làm đúng như trên:
- Khi khởi tạo Userform, sẽ dùng hàm ADO ở trên để đưa toàn bộ dữ liệu data vào mảng Res --> truyền dữ liệu từ mảng Res vào Listbox
- Tuy nhiên, khi em chạy code tìm kiếm theo Textbox1 và Textbox2 thì Res không còn giá trị nữa
Bác cho em hỏi có cách nào ngoài cách đưa Res ra worksheet không ạ?
 
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

tvcneo
Macro hoạt động ngân hàng
Trả lời
9
Đọc
11
Hoàng Tuấn 868
H
tvcneo
  • Question
Nhờ Anh Chị Em giúp mình cách để tạo macro giống như trong file này
Trả lời
0
Đọc
1
tvcneo
tvcneo
Manhhung90
Liệt kê các ngày cộng dồn mong muốn vào 1 ô. Nhờ mọi người giúp mình ạ.
2
Trả lời
32
Đọc
322
Hoàng Tuấn 868
H
Hai Lúa Miền Tây
  • Question
Hàm chuyển dữ liệu từ cột sang dòng (Hàm melt của Python trong Excel)
    • Cảm ơn
    • Yêu thích
    • Thích
Trả lời
4
Đọc
296
tranhungdao12a3
T
jenny12345
tổng hợp dữ liệu theo tháng
Trả lời
8
Đọc
164
Hoàng Tuấn 868
H
L
Nhờ các bác check và sửa lỗi giúp em file excel ạ.
Trả lời
1
Đọc
48
Duy Tùng 9x
Duy Tùng 9x
H
  • Question
Mong giúp code chuyển file xls sang xlsx hàng loạt và không lỗi số liệu
Trả lời
14
Đọc
302
hieug126
H
N
Giúp em công thức lấy dữ liệu không trùng để in phiếu thu bán hàng
Trả lời
3
Đọc
81
Hoàng Tuấn 868
H
67k8899
Xin được giúp đỡ! Cách đánh số thứ tự tự động theo 2 điều kiện
Trả lời
2
Đọc
86
67k8899
67k8899
vib1191
Nhờ giúp đỡ công thức dò tìm và tính tổng
Trả lời
0
Đọc
45
vib1191
vib1191
H
Có thể mở file Excel mới sẽ Zoom mặc định 150% không?
Trả lời
2
Đọc
95
cantl
C
Maika8008
  • Đã giải quyết
[Chia sẻ] Dùng VBA trộn dữ liệu Excel sang file Word mẫu (tương tự chức năng Mail Merge)
    • Thích
    • Yêu thích
    • Cảm ơn
24 25 26
Trả lời
519
Đọc
45K
Maika8008
Maika8008
T
Nhờ hỗ trợ công thức ghép dữ liệu
Trả lời
5
Đọc
130
HieuCD
H
jenny12345
hàm để tham chiếu từ file này sang file khác
Trả lời
2
Đọc
107
jenny12345
jenny12345
H
  • Question
Lập trình cộng gộp phân cấp tài khoản kế toán
Trả lời
4
Đọc
227
hieuvietmy2020
H
Vân Vân Ngô
xóa các shape ẩn trong sheet excel
Trả lời
14
Đọc
20K
PerSP
PerSP
LinDan
  • Question
Muốn biết các kí tự liên quan đến ChrW() thì phải làm thế nào
Trả lời
12
Đọc
6K
huhumalu
H
huuthang_bd
Quản lý giải thi đấu thể thao
    • Thích
    • Yêu thích
18 19 20
Trả lời
394
Đọc
98K
Thuybylc
Thuybylc
Tungnk
VBA Nhận được thông báo: Run-time error "70" Permission denied
Trả lời
4
Đọc
2K
Nhật Anh 9x
Nhật Anh 9x
H
  • Question
cách tạo phím tắt cho 1 userform?
Trả lời
17
Đọc
8K
quocbinh186
quocbinh186
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