Dùng SQL Trên Excel

Trang chủ » Câu Lệnh Sql Trong Vba 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 (1 người xem)
  • Thread starter Thread starter hoahuongduong1986
  • Ngày gửi Ngày gửi 12/6/20
Liên hệ QC

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

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) 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: 127
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,866 Được thích 37,604 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,871 Được thích 5,860 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: 43
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: 49
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,135 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,866 Được thích 37,604 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,445 Được thích 3,338 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,445 Được thích 3,338 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,866 Được thích 37,604 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: 67
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.

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

Maika8008 Sản phẩm từ Python với sự giúp đỡ của Copilot (1 người xem)
    • Thích
    • Yêu thích
  • Maika8008
  • Thứ tư lúc 20:50
  • Excel và các ngôn ngữ lập trình khác
Trả lời 20 Đọc 450 Hôm qua, lúc 21:42 nguyendang95 N phuongnam366377 Xây dựng RPC Server cho Excel / Access bằng Delphi – Tận dụng lại DLL và bảo mật mã nguồn (1 người xem)
  • phuongnam366377
  • Hôm qua, lúc 15:27
  • Excel và các ngôn ngữ lập trình khác
Trả lời 0 Đọc 41 Hôm qua, lúc 15:27 phuongnam366377 phuongnam366377 SA_DQ Copilot bình luận các ván cờ vua từng ngày. (1 người xem)
    • Thích
  • SA_DQ
  • 3/11/25
  • Chia sẻ
Trả lời 83 Đọc 3K Hôm qua, lúc 12:40 SA_DQ SA_DQ HeSanbi
  • Đã giải quyết
FitRowXL v1.3 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới)
    • Thích
    • Yêu thích
  • HeSanbi
  • 18/4/21
  • Lập Trình với Excel
Trả lời 79 Đọc 31K Hôm qua, lúc 12:17 HeSanbi HeSanbi V Một Excel add-in vibe coding
    • Thích
  • vietdang170
  • 28/1/26
  • Các Add-ins cho excel
Trả lời 22 Đọc 1K Hôm qua, lúc 09:19 Ttipit76 T ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
  • ongke0711
  • 6/10/24
  • Lập Trình với Excel
5 6 7 Trả lời 637 Đọc 94K Thứ sáu lúc 23:12 Diemnguyenqn Diemnguyenqn vuanhdungtb phân lớp đắp trong san nền và đường giao thông (3 người xem)
  • vuanhdungtb
  • 20/1/10
  • Excel và Kỹ Thuật
Trả lời 19 Đọc 55K Thứ sáu lúc 23:03 hoangdung09x2 H TranThanhPhong Hàm EXACT
    • Thích
  • TranThanhPhong
  • 30/4/14
  • Dự án: Công thức & Hàm 97-2019
Trả lời 5 Đọc 9K Thứ năm lúc 20:46 ptm0412 ptm0412 vn81206 TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL
    • Buồn
  • vn81206
  • 2/2/23
  • Cơ sở dữ liệu
Trả lời 70 Đọc 27K Thứ năm lúc 10:29 minhhueyb21 M HeSanbi
  • Question Question
Trình điều khiển Web tải hóa đơn điện tử từ trang Misa (actapp.misa.vn/app) (1 người xem)
    • Thích
    • Yêu thích
  • HeSanbi
  • Thứ năm lúc 09:56
  • Lập Trình với Excel
Trả lời 0 Đọc 129 Thứ năm lúc 09:56 HeSanbi HeSanbi xumipham1 Cách lấy dữ liệu từ nhiều cột theo nhiều điều kiện
  • xumipham1
  • Thứ năm lúc 08:49
  • Hàm và công thức Excel
Trả lời 2 Đọc 130 Thứ năm lúc 09:48 xumipham1 xumipham1 E
  • Đã giải quyết
VBA code tô màu ô excel theo điều kiện so sánh
  • eagle12
  • Thứ ba lúc 09:42
  • Lập Trình với Excel
Trả lời 4 Đọc 144 Thứ tư lúc 16:11 eagle12 E ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
  • ongke0711
  • 24/7/25
  • Lập Trình với Excel
Trả lời 24 Đọc 2K Thứ tư lúc 14:14 kahainguyen K D Xin file excel về dự án đầu tư bao gồm các sheet liên kết từ danh mục đầu tư đến bảng kết quả kinh doanh
  • DoanTrongHuong
  • Thứ tư lúc 09:44
  • Excel và Các Biểu Đồ
Trả lời 0 Đọc 74 Thứ tư lúc 09:44 DoanTrongHuong D A File Excel kiểm phiếu bầu cử Quốc hội và HĐND các cấp (2 người xem)
    • Thích
  • adua29
  • 9/4/21
  • Excel Ứng Dụng
Trả lời 19 Đọc 5K Thứ ba lúc 21:35 bac0986101092 bac0986101092 B Phần mềm quản lý bán hàng trên excel offline
  • buihoanganhminh
  • Thứ ba lúc 14:09
  • Hàm và công thức Excel
Trả lời 0 Đọc 143 Thứ ba lúc 14:09 buihoanganhminh B Nguyễn Duy Tuân [New] BSAC v3.0 bộ công cụ lập trình phần mềm chuyên nghiệp trong VBA (1 người xem)
    • Thích
  • Nguyễn Duy Tuân
  • 24/9/20
  • BLUESOFTS: A-Excel, A-Tools
Trả lời 14 Đọc 4K Thứ ba lúc 10:14 Nguyễn Duy Tuân Nguyễn Duy Tuân T Sử dụng Google Sheets để tạo webapp nhận báo giá online
    • Cảm ơn
    • Yêu thích
  • thuctien
  • 15/2/26
  • Google Sheets
Trả lời 1 Đọc 303 Thứ ba lúc 10:13 hotboykute H Nguyễn Duy Tuân
  • Dán lên cao
Phiên bản mới Add-in A-Tools AI v10 (2024)
    • Thích
  • Nguyễn Duy Tuân
  • 13/9/24
  • BLUESOFTS: A-Excel, A-Tools
Trả lời 66 Đọc 13K Thứ ba lúc 09:40 Nguyễn Duy Tuân Nguyễn Duy Tuân H Chào cả nha! Xin tư vấn về câu chuyện quản lý nhân sự
    • Cười
  • hotboykute
  • 22/2/26
  • Những vấn đề chung
Trả lời 11 Đọc 274 Thứ hai lúc 17:42 HUONGHCKT H Xem thêm… Chia sẻ: Facebook X Bluesky 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

  • Không tìm thấy.

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

  • Không tìm thấy.

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
  • 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âu Lệnh Sql Trong Vba Excel