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 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 đề 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
  • 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 hoahuongduong1986
  • 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 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,434 Được thích 37,091 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,763 Được thích 5,722 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 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 2.8 MB · Đọc: 32
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 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 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,125 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,434 Được thích 37,091 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,233 Được thích 2,956 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,233 Được thích 2,956 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,434 Được thích 37,091 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 3 MB · Đọc: 64
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

N Định mức nguyên vật liệu
  • nghiemcongdien
  • 9/11/24
  • Google Spreadsheets
2 Trả lời 23 Đọc 638 Hôm nay lúc 10:32 hongminh_0306 H A Nhờ các bạn GPE giúp mình sửa công thức sao chép file
  • acrox84
  • Hôm nay lúc 07:13
  • Giải thích, gỡ rối, xử lý lỗi công thức
Trả lời 2 Đọc 65 Hôm nay lúc 09:53 hvnhpro H H Lỗi tạo bảng dữ liệu/ mở recordset trong ADO
  • hvnhpro
  • Hôm qua, lúc 10:12
  • Cơ sở dữ liệu
Trả lời 6 Đọc 186 Hôm nay lúc 09:33 hvnhpro H T Sắp xếp chỗ ngồi tự động cho học sinh trong lớp.
  • thaily1983
  • 31/10/21
  • Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu
Trả lời 19 Đọc 5K Hôm nay lúc 09:14 hoahongden142917 H thongtr Sắp xếp theo thứ tự bị lỗi.
  • thongtr
  • Hôm qua, lúc 17:08
  • Lọc và sắp xếp dữ liệu
Trả lời 3 Đọc 108 Hôm nay lúc 09:06 thongtr thongtr thienhung93 Mình không biết tạo cái bẳng chart pivot như hình, anh em nào chỉ mình với,
  • thienhung93
  • Hôm nay lúc 08:06
  • Pivot table
Trả lời 0 Đọc 41 Hôm nay lúc 08:06 thienhung93 thienhung93 B
  • Question
Windows Form Làm thế nào để định vị cột và dòng nhập dữ liệu
  • binhtv69
  • Thứ sáu lúc 09:01
  • Lập Trình với Excel
Trả lời 16 Đọc 356 Hôm qua, lúc 16:19 VetMini V 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 58 Đọc 3K Hôm qua, lúc 16:18 acrox84 A ginchanle Giải bài excel , đếm dữ liệu không trùng có điều kiện
  • ginchanle
  • Chủ nhật lúc 15:46
  • Hàm và công thức Excel
Trả lời 4 Đọc 253 Hôm qua, lúc 15:46 ptm0412 ptm0412 H Nhờ hướng dẫn tạo bảng như hình vẽ
  • hoaiantrinh
  • Thứ tư lúc 16:32
  • Hỏi đáp những vấn đề khác
Trả lời 7 Đọc 272 Hôm qua, lúc 15:31 hoaiantrinh H Toanke063
  • Question
Hỗ trợ khắc phục lỗi Copy cùng 1 bảng tính sang nhiều vị trí trên Word bị lỗi Clipboard
  • Toanke063
  • Thứ sáu lúc 12:11
  • Lập Trình với Excel
Trả lời 7 Đọc 207 Hôm qua, lúc 15:24 truongvu317 truongvu317 V
  • Đã khóa
  • Question
Giúp Code VBA lưu ảnh từ 1 link về Excel sao cho nhanh nhất
  • Văn Toàn 1996
  • Thứ năm lúc 15:49
  • Lập Trình với Excel
Trả lời 8 Đọc 326 Hôm qua, lúc 11:26 ptm0412 ptm0412 dangvandang Addin mở rộng cho xây dựng
    • Thích
  • dangvandang
  • 28/10/23
  • Các Add-ins cho excel
2 Trả lời 27 Đọc 3K Hôm qua, lúc 11:18 dangvandang dangvandang T Cách thiết lập font chữ cố định cho bảng tính (không bị thay đổi khi mở ở máy tính khác)
  • TRANTHEJP
  • Thứ sáu lúc 14:46
  • Định dạng, trình bày, in ấn bảng tính
Trả lời 2 Đọc 178 Hôm qua, lúc 08:25 SA_DQ SA_DQ thanhthang0201 Làm tròn từng ô giá trị trong hàm Sum, Sumif
  • thanhthang0201
  • Thứ bảy lúc 17:56
  • Hàm và công thức Excel
Trả lời 1 Đọc 119 Chủ nhật lúc 10:23 bebo021999 B HeSanbi
  • Đã giải quyết
MsgBox và InputBox v3.30: tiếng Việt, nhập ẩn, đếm ngược, bảng dữ liệu (Excel, Word, Access, PowerPoint)
    • Thích
    • Yêu thích
    • Cảm ơn
  • HeSanbi
  • 2/6/23
  • Lập Trình với Excel
2 3 Trả lời 40 Đọc 6K Chủ nhật lúc 10:01 HeSanbi HeSanbi K Giúp highlight tự động
  • kopite
  • Thứ bảy lúc 17:30
  • Hàm và công thức Excel
Trả lời 1 Đọc 125 Chủ nhật lúc 08:56 bebo021999 B ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
  • ongke0711
  • 6/10/24
  • Lập Trình với Excel
11 12 13 Trả lời 259 Đọc 15K Chủ nhật lúc 08:48 ongke0711 ongke0711 VUONGTNQN Hỏi cách sử dụng công thức bị che mất ô liền kề
    • Cười
  • VUONGTNQN
  • Thứ sáu lúc 22:26
  • Hàm và công thức Excel
Trả lời 2 Đọc 224 Thứ bảy lúc 19:49 ptm0412 ptm0412 T
  • Question
Cho em xin code tự động thay đổi chiều cao của dòng
  • tn001
  • 15/4/13
  • Lập Trình với Excel
2 Trả lời 38 Đọc 12K Thứ bảy lúc 17:46 hongphuong1997 hongphuong1997 Xem thêm… Chia sẻ: Facebook X (Twitter) 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 148
  • ptm0412 70
  • VetMini 45
  • ongke0711 38
  • Tuấn Bụng Bự 31
  • bebo021999 31
  • befaint 29
  • HUONGHCKT 27
  • hoangtuaotrang_hp_vn 26
  • SA_DQ 26
  • HeSanbi 25
  • BuiQuangThuan 24
  • huuthang_bd 19
  • huhumalu 17
  • HieuCD 15
  • Nguyễn Diêu Hiền 15
  • DeTong 14
  • CHAOQUAY 14
  • Manhhung90 13
  • batista911 13

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

  • Hoàng Tuấn 868 119
  • HeSanbi 63
  • VetMini 63
  • ptm0412 63
  • HUONGHCKT 53
  • ongke0711 49
  • HieuCD 40
  • BuiQuangThuan 38
  • befaint 37
  • SA_DQ 34
  • huuthang_bd 33
  • bebo021999 29
  • hoangtuaotrang_hp_vn 25
  • Phuocam 19
  • huhumalu 15
  • phuongnam366377 12
  • PhanTuHuong 12
  • CHAOQUAY 12
  • Nhattanktnn 10
  • DeTong 10
  • Trang chủ
  • Diễn đàn
  • Lập Trình với Excel
  • 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