Dùng SQL Trên Excel

Trang chủ » Cách Sử Dụng Sql Trong Excel » Dùng SQL Trên Excel

Có thể bạn quan tâm

Giải Pháp Excel
  • Trang chủ Có gì mới Hoạt động gần nhất Tác giả
  • Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
  • Video New Video về Excel Video về tin học khác Tin tức về tin học chung
  • Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
  • Tài nguyên Đánh giá mới nhất Tìm tài nguyên
  • Facebook
  • Đóng góp
Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…
  • Tìm bài viết mới
  • Tìm theo chuyên mục
Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

  • Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc
  • Trang chủ
  • Diễn đàn
  • Lập Trình với Excel
You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Dùng SQL trên Excel
  • Thread starter Thread starter hoahuongduong1986
  • Ngày gửi Ngày gửi 12/6/20
Liên hệ QC H

hoahuongduong1986

Thành viên thường trực
Tham gia 14/11/18 Bài viết 346 Được thích 40 Kính gửi Anh chị, Em có File sưu tầm trên mạng dùng SQL - Coi như Table là một Database và sẽ dùng SQL để lọc, tính toán...như trên SQLSERV thì làm thế nào ạ. Em đọc Code mà chưa hiểu cách chạy. Mong anh chị chỉ giúp ạ (Bỏ qua việc cài đặt Add in có sẵn ạ).

File đính kèm

  • SQL - VBA Excel.xlsm SQL - VBA Excel.xlsm 2.8 MB · Đọc: 124
Sắp xếp theo thời gian sắp xếp theo bầu chọn ptm0412

ptm0412

Bad Excel Member
Thành viên BQT Administrator Tham gia 4/11/07 Bài viết 14,471 Được thích 37,137 Donate (Momo) Donate Giới tính Nam Nghề nghiệp Consultant Có 1 cách dùng câu lệnh SQL, đó là dùng ADO liên kết. Cụ thể là topic https://www.giaiphapexcel.com/diendan/threads/ADO-Excel-Ketoan.25759/ Một cách khác tương tự SQL query đó là Power Query Upvote 0 Maika8008

Maika8008

Thành viên gạo cội
Tham gia 12/6/20 Bài viết 4,764 Được thích 5,723 Donate (Momo) Donate Giới tính Nam
hoahuongduong1986 đã viết: Kính gửi Anh chị, Em có File sưu tầm trên mạng dùng SQL - Coi như Table là một Database và sẽ dùng SQL để lọc, tính toán...như trên SQLSERV thì làm thế nào ạ. Em đọc Code mà chưa hiểu cách chạy. Mong anh chị chỉ giúp ạ (Bỏ qua việc cài đặt Add in có sẵn ạ). Nhấp chuột vào đây để mở rộng...
Bạn làm như sau để chạy: 'Khai bao bien Dim cn as Object, sql as String Dim FPath As String, FName As String 'FPath và FName là đường dẫn đầy đủ và tên của file dữ liệu nguồn, dùng cho câu .ConnectionString bên dưới 'Ket noi du lieu nguon Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & FPath & "\" & FName & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES"";" .Open End With 'Cau lenh SQL cua ban: sql = "SELECT MAX(NVL.[hh_ten]) AS TENHH " '.... '.... sql = sql & "FROM (([nhapxuat_vatlieu_chitiet$] NXCT " sql = sql & "INNER JOIN [nhapxuat_vatlieu$] NX ON NXCT.[nxct_nx_id]=NX.[nx_id]) " sql = sql & "INNER JOIN [nguyenvatlieu$] NVL ON NXCT.[nxct_hh_id]=NVL.[hh_id]) " sql = sql & "GROUP BY NXCT.nxct_hh_id" 'Truy van, ghi ket qua ra trang tinh Set rs = cn.Execute(sql) Sheet1.Range("A1").CopyFromRecordset rs 'Thay doi bang vi tri chep ket qua cua ban Lần chỉnh sửa cuối: 13/6/20 Upvote 0 H

hoahuongduong1986

Thành viên thường trực
Tham gia 14/11/18 Bài viết 346 Được thích 40
Maika8008 đã viết: Bạn làm như sau để chạy: 'Khai bao bien Dim cn as Object, sql as String Dim FPath As String, FName As String 'FPath và FName là đường dẫn đầy đủ và tên của file dữ liệu nguồn, dùng cho câu .ConnectionString bên dưới 'Ket noi du lieu nguon Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & FPath & "\" & FName & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES"";" .Open End With 'Cau lenh SQL cua ban: sql = "SELECT MAX(NVL.[hh_ten]) AS TENHH " '.... '.... sql = sql & "FROM (([nhapxuat_vatlieu_chitiet$] NXCT " sql = sql & "INNER JOIN [nhapxuat_vatlieu$] NX ON NXCT.[nxct_nx_id]=NX.[nx_id]) " sql = sql & "INNER JOIN [nguyenvatlieu$] NVL ON NXCT.[nxct_hh_id]=NVL.[hh_id]) " sql = sql & "GROUP BY NXCT.nxct_hh_id" 'Truy van, ghi ket qua ra trang tinh Set rs = cn.Execute(sql) Sheet1.Range("A1").CopyFromRecordset rs 'Thay doi bang vi tri chep ket qua cua ban Nhấp chuột vào đây để mở rộng...
Mình thử mà không được ? Không rõ mình còn thiếu Refer đến thư viện nào không mà không chạy được ? Với mình hỏi là mình không muốn câu lệnh SQL nó cố định trong đoạn VBA mà khi mình gõ đoạn code đó tại A1 của Sheet4 thì nó chạy ?

File đính kèm

  • SQL - VBA Excel (1).xlsm SQL - VBA Excel (1).xlsm 2.8 MB · Đọc: 28
Upvote 0 H

hoahuongduong1986

Thành viên thường trực
Tham gia 14/11/18 Bài viết 346 Được thích 40
hoahuongduong1986 đã viết: Mình thử mà không được ? Không rõ mình còn thiếu Refer đến thư viện nào không mà không chạy được ? Với mình hỏi là mình không muốn câu lệnh SQL nó cố định trong đoạn VBA mà khi mình gõ đoạn code đó tại A1 của Sheet4 thì nó chạy ? Nhấp chuột vào đây để mở rộng...
. Upvote 0 vanaccex

vanaccex

Thành viên tiêu biểu
Tham gia 8/7/18 Bài viết 457 Được thích 306 Giới tính Nữ
hoahuongduong1986 đã viết: Mình thử mà không được ? Không rõ mình còn thiếu Refer đến thư viện nào không mà không chạy được ? Với mình hỏi là mình không muốn câu lệnh SQL nó cố định trong đoạn VBA mà khi mình gõ đoạn code đó tại A1 của Sheet4 thì nó chạy ? Nhấp chuột vào đây để mở rộng...
Đoạn sub này của bạn sửa thành thế này Mã: Sao chép. Sub sql_1() 'Khai bao bien Dim cn As Object, sql As String Dim FPath As String, FName As String 'FPath và FName là du?ng d?n d?y d? và tên c?a file d? li?u ngu?n, dùng cho câu .ConnectionString bên du?i FName = ThisWorkbook.Path & "\" & ThisWorkbook.Name 'Ket noi du lieu nguon Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & FName & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES"";" .Open End With sql = "SELECT * FROM RangeName WHERE Reporter='Albania'" Set rs = cn.Execute(sql) Sheet4.Range("A2").CopyFromRecordset rs 'Thay doi bang vi tri chep ket qua cua ban End Sub Upvote 0 H

hoahuongduong1986

Thành viên thường trực
Tham gia 14/11/18 Bài viết 346 Được thích 40
vanaccex đã viết: Đoạn sub này của bạn sửa thành thế này Mã: Sao chép. Sub sql_1() 'Khai bao bien Dim cn As Object, sql As String Dim FPath As String, FName As String 'FPath và FName là du?ng d?n d?y d? và tên c?a file d? li?u ngu?n, dùng cho câu .ConnectionString bên du?i FName = ThisWorkbook.Path & "\" & ThisWorkbook.Name 'Ket noi du lieu nguon Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & FName & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES"";" .Open End With sql = "SELECT * FROM RangeName WHERE Reporter='Albania'" Set rs = cn.Execute(sql) Sheet4.Range("A2").CopyFromRecordset rs 'Thay doi bang vi tri chep ket qua cua ban End Sub Nhấp chuột vào đây để mở rộng...
Cảm ơn Vân. Vân cho mình hỏi là mình muốn linh hoạt trong câu lệnh SQL nên muốn cho nó đoạn lênh SQL vào ô A1 để tiện. Mình đã sửa như File mà không được. Vân xem giúp mình với nhé !

File đính kèm

  • SQL - VBA Excel (1) (1).xlsm SQL - VBA Excel (1) (1).xlsm 2.8 MB · Đọc: 33
Upvote 0 vanaccex

vanaccex

Thành viên tiêu biểu
Tham gia 8/7/18 Bài viết 457 Được thích 306 Giới tính Nữ
hoahuongduong1986 đã viết: Cảm ơn Vân. Vân cho mình hỏi là mình muốn linh hoạt trong câu lệnh SQL nên muốn cho nó đoạn lênh SQL vào ô A1 để tiện. Mình đã sửa như File mà không được. Vân xem giúp mình với nhé ! Nhấp chuột vào đây để mở rộng...
Bạn thử bằng sub này xem Mã: Sao chép. Sub sql_1() 'Khai bao bien Dim cn As Object, sql As String Dim FPath As String, FName As String 'FPath và FName là du?ng d?n d?y d? và tên c?a file d? li?u ngu?n, dùng cho câu .ConnectionString bên du?i FName = ThisWorkbook.Path & "\" & ThisWorkbook.Name 'Ket noi du lieu nguon Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & FName & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES"";" .Open End With 'sql = "SELECT * FROM RangeName WHERE Reporter='Albania' and Partner='World'" sql = Sheet4.Range("A1").Value Set rs = cn.Execute(sql) Sheet4.Range("A2").CopyFromRecordset rs 'Thay doi bang vi tri chep ket qua cua ban End Sub Upvote 0 H

hoahuongduong1986

Thành viên thường trực
Tham gia 14/11/18 Bài viết 346 Được thích 40
vanaccex đã viết: Bạn thử bằng sub này xem Mã: Sao chép. Sub sql_1() 'Khai bao bien Dim cn As Object, sql As String Dim FPath As String, FName As String 'FPath và FName là du?ng d?n d?y d? và tên c?a file d? li?u ngu?n, dùng cho câu .ConnectionString bên du?i FName = ThisWorkbook.Path & "\" & ThisWorkbook.Name 'Ket noi du lieu nguon Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & FName & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES"";" .Open End With 'sql = "SELECT * FROM RangeName WHERE Reporter='Albania' and Partner='World'" sql = Sheet4.Range("A1").Value Set rs = cn.Execute(sql) Sheet4.Range("A2").CopyFromRecordset rs 'Thay doi bang vi tri chep ket qua cua ban End Sub Nhấp chuột vào đây để mở rộng...
Giỏi quá, đã được rồi ! Cảm ơn sự trợ giúp của Vân ! Upvote 0 H

hoahuongduong1986

Thành viên thường trực
Tham gia 14/11/18 Bài viết 346 Được thích 40
vanaccex đã viết: Bạn thử bằng sub này xem Mã: Sao chép. Sub sql_1() 'Khai bao bien Dim cn As Object, sql As String Dim FPath As String, FName As String 'FPath và FName là du?ng d?n d?y d? và tên c?a file d? li?u ngu?n, dùng cho câu .ConnectionString bên du?i FName = ThisWorkbook.Path & "\" & ThisWorkbook.Name 'Ket noi du lieu nguon Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & FName & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES"";" .Open End With 'sql = "SELECT * FROM RangeName WHERE Reporter='Albania' and Partner='World'" sql = Sheet4.Range("A1").Value Set rs = cn.Execute(sql) Sheet4.Range("A2").CopyFromRecordset rs 'Thay doi bang vi tri chep ket qua cua ban End Sub Nhấp chuột vào đây để mở rộng...
Cho mình hỏi nốt chút với Vân, mình chạy thử SQL các kiểu thì ổn rồi, nhưng làm sao để lấy được tiêu đề của nó nhỉ, tiêu đề cho vào dòng 2 ấy.

File đính kèm

  • SQL - Excel.xlsm SQL - Excel.xlsm 2.8 MB · Đọc: 42
Upvote 0 H

hoahuongduong1986

Thành viên thường trực
Tham gia 14/11/18 Bài viết 346 Được thích 40
ptm0412 đã viết: Có 1 cách dùng câu lệnh SQL, đó là dùng ADO liên kết. Cụ thể là topic https://www.giaiphapexcel.com/diendan/threads/ADO-Excel-Ketoan.25759/ Một cách khác tương tự SQL query đó là Power Query Nhấp chuột vào đây để mở rộng...
Em chào Anh. Nhờ Anh xem giúp em vấn đề Code SQL theo File với ạ. - Tại A1 (Em tạo 2 mã SQL): Mã 1 chạy nhưng không lấy được tiêu đề làm sao để có được tiêu đề ạ; Mã 2 em không chay ra được kết quả là vì sao ạ và làm sao để lấy được tiêu đề ạ ? Mong anh giúp đỡ ạ.

File đính kèm

  • SQL - Excel.xlsm SQL - Excel.xlsm 2.8 MB · Đọc: 48
Upvote 0 Kiều Mạnh

Kiều Mạnh

I don't program, I beat code into submission!!!
Tham gia 9/6/12 Bài viết 5,538 Được thích 4,128 Giới tính Nam
hoahuongduong1986 đã viết: Em chào Anh. Nhờ Anh xem giúp em vấn đề Code SQL theo File với ạ. - Tại A1 (Em tạo 2 mã SQL): Mã 1 chạy nhưng không lấy được tiêu đề làm sao để có được tiêu đề ạ; Mã 2 em không chay ra được kết quả là vì sao ạ và làm sao để lấy được tiêu đề ạ ? Mong anh giúp đỡ ạ. Nhấp chuột vào đây để mở rộng...
Qua thớt kìa tải cái Addin của mình về thứ xem sao Upvote 0 H

hoahuongduong1986

Thành viên thường trực
Tham gia 14/11/18 Bài viết 346 Được thích 40
Kiều Mạnh đã viết: Qua thớt kìa tải cái Addin của mình về thứ xem sao Nhấp chuột vào đây để mở rộng...
A xem giúp em Code em chỗ nào chưa ổn mà không có Tiêu đề hoặc/và không ra kết quả ạ. Upvote 0 ptm0412

ptm0412

Bad Excel Member
Thành viên BQT Administrator Tham gia 4/11/07 Bài viết 14,471 Được thích 37,137 Donate (Momo) Donate Giới tính Nam Nghề nghiệp Consultant
hoahuongduong1986 đã viết: Em chào Anh. Nhờ Anh xem giúp em vấn đề Code SQL theo File với ạ. - Tại A1 (Em tạo 2 mã SQL): Mã 1 chạy nhưng không lấy được tiêu đề làm sao để có được tiêu đề ạ; Mã 2 em không chay ra được kết quả là vì sao ạ và làm sao để lấy được tiêu đề ạ ? Mong anh giúp đỡ ạ. Nhấp chuột vào đây để mở rộng...
- Tiêu đề phải copy từ Data sang hoặc điền tay. Đáng lẽ khai báo ConnectionString có HDR=YES thì phải có Header nhưng hiện tại không thấy chạy - Mã 2 có tính Sum nhưng thiếu Group By những field không tính toán. Sửa như sau: SELECT Distinct [Partner],SUM([Trade Value (US$)]) As [Tongcong] FROM RangeName Group By [Partner] Nếu lấy 3 cột thì phải Group By 2 cột không tính toán: SELECT Distinct [Partner],[Commodity],SUM([Trade Value (US$)]) As [Tongcong] FROM RangeName Group By [Partner],[Commodity] Lần chỉnh sửa cuối: 13/6/20 Upvote 0 ongke0711

ongke0711

Thành viên gắn bó
Tham gia 7/9/06 Bài viết 2,260 Được thích 3,000 Giới tính Nam
hoahuongduong1986 đã viết: Em chào Anh. Nhờ Anh xem giúp em vấn đề Code SQL theo File với ạ. - Tại A1 (Em tạo 2 mã SQL): Mã 1 chạy nhưng không lấy được tiêu đề làm sao để có được tiêu đề ạ; Mã 2 em không chay ra được kết quả là vì sao ạ và làm sao để lấy được tiêu đề ạ ? Mong anh giúp đỡ ạ. Nhấp chuột vào đây để mở rộng...
Để lưu dòng tiêu đề vô Sheet thì bạn phải dùng code gán riêng, còn dùng CopyFromRecordset là chỉ lấy Recordset (tức các record thôi chứ không có Field) Thêm dòng code này vô: Mã: Sao chép. Dim iCol As Integer For iCol = 1 To rs.Fields.Count Sheet4.Cells(2, iCol).Value = rs.Fields(iCol - 1).Name Next Upvote 0 H

hoahuongduong1986

Thành viên thường trực
Tham gia 14/11/18 Bài viết 346 Được thích 40
ongke0711 đã viết: Để lưu dòng tiêu đề vô Sheet thì bạn phải dùng code gán riêng, còn dùng CopyFromRecordset là chỉ lấy Recordset (tức các record thôi chứ không có Field) Thêm dòng code này vô: Mã: Sao chép. Dim iCol As Integer For iCol = 1 To rs.Fields.Count Sheet4.Cells(2, iCol).Value = rs.Fields(iCol - 1).Name Next Nhấp chuột vào đây để mở rộng...
Code chạy đúng rồi ạ. Em cảm ơn các Anh đã trợ giúp em ! Bài đã được tự động gộp: 13/6/20
ptm0412 đã viết: - Tiêu đề phải copy từ Data sang hoặc điền tay. Đáng lẽ khai báo ConnectionString có HDR=YES thì phải có Header nhưng hiện tại không thấy chạy - Mã 2 có tính Sum nhưng thiếu Group By những field không tính toán. Sửa như sau: SELECT Distinct [Partner],SUM([Trade Value (US$)]) As [Tongcong] FROM RangeName Group By [Partner] Nếu lấy 3 cột thì phải Group By 2 cột không tính toán: SELECT Distinct [Partner],[Commodity],SUM([Trade Value (US$)]) As [Tongcong] FROM RangeName Group By [Partner],[Commodity] Nhấp chuột vào đây để mở rộng...
Em cảm ơn ạ ! Bài đã được tự động gộp: 13/6/20
ongke0711 đã viết: Để lưu dòng tiêu đề vô Sheet thì bạn phải dùng code gán riêng, còn dùng CopyFromRecordset là chỉ lấy Recordset (tức các record thôi chứ không có Field) Thêm dòng code này vô: Mã: Sao chép. Dim iCol As Integer For iCol = 1 To rs.Fields.Count Sheet4.Cells(2, iCol).Value = rs.Fields(iCol - 1).Name Next Nhấp chuột vào đây để mở rộng...
Em hỏi nốt anh cái này ạ. Em muốn thêm số thứ tự vào Code SQL em làm thế này mà không chạy được thì làm sao ạ
SELECT ROW_NUMBER() OVER (ORDER BY [Classification]) AS [Số thứ tự],[Classification],[Trade Flow],[Reporter],[Partner],[Reporter ISO],[Trade Value (US$)] FROM RangeName WHERE [Reporter ISO]='ALB' and [Trade Value (US$)] > 20000000
Lần chỉnh sửa cuối: 13/6/20 Upvote 0 ongke0711

ongke0711

Thành viên gắn bó
Tham gia 7/9/06 Bài viết 2,260 Được thích 3,000 Giới tính Nam
hoahuongduong1986 đã viết: Em hỏi nốt anh cái này ạ. Em muốn thêm số thứ tự vào Code SQL em làm thế này mà không chạy được thì làm sao ạ
SELECT ROW_NUMBER() OVER (ORDER BY [Classification]) AS [Số thứ tự],[Classification],[Trade Flow],[Reporter],[Partner],[Reporter ISO],[Trade Value (US$)] FROM RangeName WHERE [Reporter ISO]='ALB' and [Trade Value (US$)] > 20000000
Nhấp chuột vào đây để mở rộng...
- Hàm ROW_NUMBER() chỉ dùng cho CSDL SQL Server thôi nhé. - Nếu như các dòng dữ liệu của em có 1 field làm khoá (Primary Key) để phân biệt dòng này với dòng khác thì có thể dùng Subquery lồng vô để tạo tự động số thứ tự dòng. Đối với trường hợp dữ liệu như hiện tại thì anh bó tay. Em ngâm cứu cách tạo thêm cột Stt sau bằng code riêng trong Excel đi. Upvote 0 ptm0412

ptm0412

Bad Excel Member
Thành viên BQT Administrator Tham gia 4/11/07 Bài viết 14,471 Được thích 37,137 Donate (Momo) Donate Giới tính Nam Nghề nghiệp Consultant
hoahuongduong1986 đã viết: Em hỏi nốt anh cái này ạ. Em muốn thêm số thứ tự vào Code SQL em làm thế này mà không chạy được thì làm sao ạ Nhấp chuột vào đây để mở rộng...
Thêm cột STT đơn giản hơn bằng câu SQL sau: Mã: Sao chép. SELECT 1 AS [Số thứ tự],[Classification],[Trade Flow],[Reporter],[Partner],[Reporter ISO],[Trade Value (US$)] FROM RangeName WHERE [Reporter ISO]='ALB' and [Trade Value (US$)] > 20000000 Sau đó thêm các câu lệnh sau: PHP: Sao chép. Dim LastRw LastRw = Sheet4.[A10000].End(xlUp).Row Sheet4.Range("A3:A" & LastRw).Value = Evaluate("=Row(R:R)") Liên quan đến chủ đề này, nếu biết SQL join table nhưng chưa rành VBA thì sử dụng Power Query (Merge) cho dễ. Trong file đính kèm có 2 sheet query, thay đổi validation và refresh là được

File đính kèm

  • Query-Excel.xlsx Query-Excel.xlsx 3 MB · Đọc: 65
Lần chỉnh sửa cuối: 14/6/20 Upvote 0 H

hoahuongduong1986

Thành viên thường trực
Tham gia 14/11/18 Bài viết 346 Được thích 40
ptm0412 đã viết: Thêm cột STT đơn giản hơn bằng câu SQL sau: Mã: Sao chép. SELECT 1 AS [Số thứ tự],[Classification],[Trade Flow],[Reporter],[Partner],[Reporter ISO],[Trade Value (US$)] FROM RangeName WHERE [Reporter ISO]='ALB' and [Trade Value (US$)] > 20000000 Sau đó thêm các câu lệnh sau: PHP: Sao chép. Dim LastRw LastRw = Sheet4.[A10000].End(xlUp).Row Sheet4.Range("A3:A" & LastRw).Value = Evaluate("=Row(R:R)") Liên quan đến chủ đề này, nếu biết SQL join table nhưng chưa rành VBA thì sử dụng Power Query (Merge) cho dễ. Trong file đính kèm có 2 sheet query, thay đổi validation và refresh là được Nhấp chuột vào đây để mở rộng...
Cảm ơn các Anh ạ ! 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

M
  • Question Question
Code VBA tìm mã kiện gỗ còn tồn kho
  • moihocvba
  • Hôm qua, lúc 10:47
  • Lập Trình với Excel
Trả lời 4 Đọc 143 Hôm nay lúc 11:05 HieuCD H P Xin hỏi cách tăng tốc khi nhập liệu cho sheet NHAPXUAT
  • pqdowntailieu3
  • Thứ năm lúc 16:59
  • Google Sheets
Trả lời 4 Đọc 182 Hôm nay lúc 10:56 yeudoi yeudoi S Tính trung bình của tháng đầu tiên.
  • SteveNguyen1991
  • Chủ nhật lúc 21:36
  • Hàm và công thức Excel
Trả lời 5 Đọc 265 Hôm nay lúc 10:52 SteveNguyen1991 S D Vẽ biểu đồ phân tích doanh thu và lợi nhuận theo mã đơn vị
  • dinhthiloan
  • 18/6/21
  • Excel và Các Biểu Đồ
Trả lời 4 Đọc 852 Hôm nay lúc 10:03 dinhthiloan D X Tự động giãn dòng và ẩn các dòng bị bỏ trống
  • xuanthucle
  • Thứ hai lúc 17:59
  • Giải thích, gỡ rối, xử lý lỗi công thức
Trả lời 2 Đọc 114 Hôm qua, lúc 16:57 xuanthucle X A
  • Đã giải quyết
Xin giúp đỡ code VBA chép cột dữ liệu có điều kiện từ file này sang file khác
  • acrox84
  • 7/4/23
  • Lập Trình với Excel
2 3 Trả lời 59 Đọc 3K Hôm qua, lúc 16:46 Hoàng Nhật Phương Hoàng Nhật Phương T
  • Question Question
Xin code VBA trả về tên tài khoản theo điều kiện
    • Chấp nhận
  • Thanh Binh111
  • Thứ sáu lúc 16:40
  • Lập Trình với Excel
Trả lời 10 Đọc 223 Hôm qua, lúc 15:59 DeTong D H Nhờ các cao nhân chỉ giáo code file Form nhập liệu Google Sheet !!!
    • Thích
  • Hòa Nguyễn 1989
  • Hôm qua, lúc 09:39
  • Google Sheets
Trả lời 4 Đọc 102 Hôm qua, lúc 15:13 befaint befaint hoamattroicoi TỔNG HỢP TỜ KHAI THUẾ THEO THÔNG TƯ 80/2021 TỪ *.XML SANG EXCEL
    • Thích
    • Yêu thích
    • Cảm ơn
  • hoamattroicoi
  • 14/6/22
  • Excel và Kế Toán
Trả lời 7 Đọc 3K Hôm qua, lúc 13:33 Nguyễn Văn Thái 92 N N
  • Question Question
Cần giúp rút gọn code vba
  • nvthanhdienbien
  • Thứ hai lúc 15:12
  • Lập Trình với Excel
Trả lời 7 Đọc 192 Hôm qua, lúc 13:24 DeTong D dungdodac Lỗi khi COPY , viền xung quanh ô được chọn đứng yên, không chạy
    • Cười
  • dungdodac
  • 17/12/24
  • Hỏi đáp những vấn đề khác
Trả lời 4 Đọc 207 Thứ hai lúc 21:17 VetMini V B Xin hàm đếm số lượng khách hàng theo 1 điều kiện và bỏ dữ liệu trùng.
  • bipbo2008
  • 15/12/24
  • Hàm và công thức Excel
Trả lời 10 Đọc 381 Thứ hai lúc 20:22 Phan Thế Hiệp Phan Thế Hiệp Manhhung90
  • Question Question
Xin giúp chuyển dữ liệu từ cột dọc sang hàng ngang theo điều kiện
    • Cười
  • Manhhung90
  • Thứ hai lúc 19:22
  • Lập Trình với Excel
Trả lời 1 Đọc 57 Thứ hai lúc 19:30 Hoàng Tuấn 868 H HeSanbi
  • Đã giải quyết
ExplorerXL - Quản lý thư mục với Excel: tìm, đổi tên, sao chép, di chuyển và xóa
    • Thích
    • Yêu thích
    • Cảm ơn
  • HeSanbi
  • 20/9/19
  • Lập Trình với Excel
2 3 4 Trả lời 79 Đọc 16K Thứ hai lúc 17:11 viethung78 V H Giao diện mới ở "chế độ tối" mờ quá
    • Yêu thích
    • Thích
  • HieuCD
  • Thứ hai lúc 12:27
  • Những góp ý với diễn đàn
Trả lời 4 Đọc 149 Thứ hai lúc 16:48 OverAC OverAC J quản lý dữ liệu theo cách quản lý bãi container
    • Thích
  • jack nt
  • 5/4/13
  • Xây dựng ứng dụng.
Trả lời 2 Đọc 7K Thứ hai lúc 15:29 vunhai V ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
  • ongke0711
  • 6/10/24
  • Lập Trình với Excel
13 14 15 Trả lời 298 Đọc 20K Thứ hai lúc 14:26 ongke0711 ongke0711 M Sắp xếp dữ liệu: Lọc tên theo ABC (alphabet) có lỗi tên Đam đứng trước Diệp
  • mrhh
  • 6/1/22
  • Lọc và sắp xếp dữ liệu
Trả lời 13 Đọc 5K Thứ hai lúc 12:31 maidinhdung5 maidinhdung5 Nguyễn Duy Tuân Hàm BS_FORMATTEXT Tạo công thức định dạng văn bản trong Excel với Add-in A-Tools v10
  • Nguyễn Duy Tuân
  • Thứ hai lúc 09:05
  • BLUESOFTS: A-Excel, A-Tools
Trả lời 0 Đọc 48 Thứ hai lúc 09:05 Nguyễn Duy Tuân Nguyễn Duy Tuân Nguyễn Duy Tuân Hàm BS_TEXT trộn văn bản trong Excel với Add-in A-Tools v10
  • Nguyễn Duy Tuân
  • Thứ hai lúc 08:36
  • BLUESOFTS: A-Excel, A-Tools
Trả lời 0 Đọc 41 Thứ hai lúc 08:36 Nguyễn Duy Tuân Nguyễn Duy Tuân Xem thêm… Chia sẻ: Facebook X (Twitter) LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

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

  • Hoàng Tuấn 868 30
  • HeSanbi 27
  • LINHCM 25
  • ptm0412 24
  • hoangtuaotrang_hp_vn 21
  • HieuCD 21
  • SA_DQ 18
  • ongke0711 18
  • qtm1987 17
  • DeTong 17
  • huuthang_bd 16
  • HUONGHCKT 14
  • hvnhpro 14
  • hoangminhtien 13
  • BuiQuangThuan 13
  • SteveNguyen1991 13
  • Duy Tùng 9x 10
  • GPE-Trợ Lý 9
  • Nguyễn Duy Tuân 9
  • befaint 9

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

  • HieuCD 94
  • huuthang_bd 34
  • Hoàng Tuấn 868 32
  • hoangtuaotrang_hp_vn 28
  • HUONGHCKT 27
  • Phan Thế Hiệp 27
  • befaint 26
  • SA_DQ 25
  • hoangminhtien 24
  • DeTong 24
  • HeSanbi 23
  • GPE-Trợ Lý 21
  • ptm0412 21
  • Phuocam 17
  • ongke0711 15
  • longtay1111 13
  • Hai Lúa Miền Tây 13
  • NT Ngoc Yen 12
  • Nguyễn Duy Tuân 11
  • OverAC 10

Đếm ngược thời gian

000 Ngày 00 Giờ 00 phút 00 giây Chúc mừng năm mới
  • Trang chủ
  • Diễn đàn
  • Lập Trình với Excel
  • Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…
Back Top Bottom

Từ khóa » Cách Sử Dụng Sql Trong Excel