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,804 Được thích 37,516 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,839 Được thích 5,824 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,804 Được thích 37,516 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,423 Được thích 3,313 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,423 Được thích 3,313 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,804 Được thích 37,516 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

D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện (1 người xem)
  • dieppk.nb92
  • Chủ nhật lúc 01:22
  • Hàm và công thức Excel
Trả lời 11 Đọc 318 Hôm nay lúc 03:33 dieppk.nb92 D PhanTuHuong Nếu diễn đàn GPE đóng cửa?
    • Thích
    • Yêu thích
  • PhanTuHuong
  • Chủ nhật lúc 23:46
  • Thư giãn
Trả lời 16 Đọc 410 Hôm qua, lúc 23:28 PhanTuHuong PhanTuHuong HeSanbi
  • Đã giải quyết
WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (1 người xem)
    • Thích
    • Yêu thích
  • HeSanbi
  • 30/5/20
  • Lập Trình với Excel
Trả lời 92 Đọc 27K Hôm qua, lúc 19:57 Maika8008 Maika8008 P Lỗi hàm VBA phải add-in sau mỗi lần mở file
  • phamdinh.huy.aladin@gmail
  • Thứ hai lúc 10:18
  • Hàm và công thức Excel
Trả lời 5 Đọc 139 Hôm qua, lúc 13:59 phamdinh.huy.aladin@gmail P K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ...
  • kaoehtkid
  • Thứ hai lúc 19:04
  • Những vấn đề chung
Trả lời 4 Đọc 94 Hôm qua, lúc 13:49 ptm0412 ptm0412 D
  • Question Question
Tách dòng tự động theo điều kiện bằng VBA
    • Cười
  • duongnhuxuyen
  • Thứ sáu lúc 15:39
  • Lập Trình với Excel
Trả lời 14 Đọc 285 Hôm qua, lúc 09:00 ptm0412 ptm0412 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
4 5 6 Trả lời 580 Đọc 82K Hôm qua, lúc 08:39 pycckuu410 pycckuu410 E
  • Đã giải quyết
VBA code thay thế cho pivot-table lấy top 10, bottom 10
    • Thích
  • eagle12
  • 8/12/25
  • Lập Trình với Excel
Trả lời 24 Đọc 513 Thứ hai lúc 16:19 eagle12 E HeSanbi Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự
  • HeSanbi
  • Thứ bảy lúc 15:41
  • Xử lý chuỗi ký tự
Trả lời 1 Đọc 145 Thứ hai lúc 10:34 jonythanht J H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel (1 người xem)
  • H_P
  • Thứ bảy lúc 14:23
  • Tìm kiếm, dò tìm và tham chiếu
Trả lời 2 Đọc 117 Thứ hai lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên
  • Ngựa con 2002
  • Thứ bảy lúc 23:07
  • Xử lý chuỗi ký tự
Trả lời 7 Đọc 142 Chủ nhật lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện
  • QUANSUNG
  • Thứ bảy lúc 10:55
  • Hàm và công thức Excel
Trả lời 2 Đọc 138 Chủ nhật lúc 00:02 dungpham01 D huuthang_bd Cùng xây dựng file Gia Phả
    • Thích
  • huuthang_bd
  • 30/12/13
  • Xây dựng ứng dụng.
Trả lời 36 Đọc 21K Thứ bảy lúc 16:15 le_vis L D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc
  • Dinh Hong Nhung
  • Thứ năm lúc 10:36
  • Hàm và công thức Excel
Trả lời 14 Đọc 761 Thứ bảy lúc 10:43 Cúc Hr C PhanTuHuong CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Cảm ơn
    • Thích
  • PhanTuHuong
  • 4/10/22
  • Thư giãn
Trả lời 8 Đọc 2K Thứ bảy lúc 00:09 PhanTuHuong PhanTuHuong D
  • Question Question
IN TỰ ĐỘNG TỪ DỮ LIỆU CÓ SẴN
  • duongnhuxuyen
  • 12/11/25
  • Lập Trình với Excel
Trả lời 14 Đọc 481 Thứ sáu lúc 19:42 duongnhuxuyen D V Biểu diễn số đếm theo hình vẽ từ Shape (1 người xem)
  • Vũ Hải Sơn
  • 2/12/25
  • Hàm và công thức Excel
Trả lời 34 Đọc 742 Thứ sáu lúc 15:31 Vũ Hải Sơn V T Xử lý lỗi xuất hiện màu cam khi chọn 1 ô trong excel.
  • Thúy Sa
  • Thứ năm lúc 17:17
  • Những vấn đề chung
Trả lời 1 Đọc 119 Thứ năm lúc 20:29 Maika8008 Maika8008 L
  • Question Question
Tạo ComboBox để tìm kiếm tên
  • lyvanthang
  • Thứ năm lúc 10:36
  • Lập Trình với Excel
Trả lời 4 Đọc 218 Thứ năm lúc 20:26 HUONGHCKT H T Điên đầu vì Countif
  • TVT230279
  • 5/12/25
  • Hàm và công thức Excel
Trả lời 5 Đọc 292 Thứ năm lúc 11:30 87kilua 87kilua 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

  • Maika8008 33
  • thanthanhan 19
  • dungpham01 18
  • eagle12 16
  • ongke0711 16
  • nguyenanhtruong2409 14
  • Phan Thế Hiệp 12
  • HUONGHCKT 12
  • vic_it 11
  • ptm0412 11
  • nhhnam 10
  • pycckuu410 10
  • Vũ Hải Sơn 9
  • HeSanbi 8
  • bsbnhh 7
  • Gà Con yêu VBA 7
  • dieppk.nb92 7
  • Hana2610 6
  • duongnhuxuyen 6
  • Mr.hieudoanxd 5

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

  • Phan Thế Hiệp 63
  • Maika8008 26
  • ongke0711 17
  • thanthanhan 16
  • ptm0412 15
  • HeSanbi 12
  • HUONGHCKT 9
  • dungpham01 9
  • Cúc Hr 8
  • eagle12 8
  • dieppk.nb92 6
  • befaint 5
  • Mr.hieudoanxd 5
  • pycckuu410 5
  • SA_DQ 4
  • nguyenanhtruong2409 4
  • Phuocam 4
  • nhhnam 2
  • Gà Con yêu VBA 2
  • huuthang_bd 2

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