Xin chào quanluu1989
Ví dụ dữ liệu chỉ tới tháng 2 năm 2020, ngày cuối sẽ là ngày nào?
Hic,con cũng không biết Bác ạ, nó còn tùy thuộc vào ngày mọi người thực hiện kiểm kê Bác ạ, thông thường là ngày cuối tháng cũng có thể là trước đó. Nếu chỉ có đến tháng 2 - loại bỏ ngày xx99 lấy ngày lớn nhất trong tháng 2 nếu không có thì mới lấy ngày 99 trong tháng 2 Bác ạ.
Rắc rối rồi, SQL bài trước phải viết lại
Hic,dạ vâng có thể trong trường hợp dữ liệu con đưa lên là đúng nhưng trường hợp như Bác đang đề cập là gặp vấn đề ạ.
SELECT *
FROM DATA
WHERE date= (SELECT IIF(RIGHT(a,2)="00",a+99,a)
FROM (SELECT MAX(IIF(RIGHT(date,2)="99",date-99,date)) AS a
FROM DATA));Thử code
Sub ABC()
Dim cn As Object, rs As Object, SQL As String
Set cn = CreateObject("ADODB.Connection")
cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No""")
SQL = "Select * From [DATA$] Where f1 = (Select Max(IIf(Mid(f1,7,2)=99,Mid(f1,1,6)&""00"",f1)) From [DATA$])"
Set rs = cn.Execute(SQL)
If Not rs.EOF() Then
Sheets("sheet1").Range("A2").CopyFromRecordset rs
End If
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End SubSub B()
'Hau151978
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim s As String
s = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & " ;Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
cnn.Open s
s = "SELECT * FROM [DATA$] " & _
"WHERE DATE = (SELECT IIF(RIGHT(a,2)=""00"",a+99,a) " & _
"FROM (SELECT MAX(IIF(RIGHT(DATE,2)=""99"",DATE-99,DATE)) AS a " & _
"FROM [DATA$]));"
rs.Open s, cnn
Sheets("KQ").Range("A2:K10000").ClearContents
Sheets("KQ").Range("A2").CopyFromRecordset rs
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
End Sub
Sub ABC()
'HieuCD
Dim cn As Object, rs As Object, SQL As String
Set cn = CreateObject("ADODB.Connection")
cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No""")
SQL = "Select * From [DATA$] Where f1 = (Select Max(IIf(Mid(f1,7,2)=99,Mid(f1,1,6)&""00"",f1)) From [DATA$])"
Set rs = cn.Execute(SQL)
Sheets("KQ").Range("A2:K10000").ClearContents
If Not rs.EOF() Then
Sheets("KQ").Range("A2").CopyFromRecordset rs
End If
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
Chỉnh lại
Sub ABC()
Dim cn As Object, rs As Object, SQL As String
Set cn = CreateObject("ADODB.Connection")
cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=no""")
SQL = "Select * From [DATA$] Where IIf(Mid(f1,7,2)=99,Mid(f1,1,6)&""00"",f1) = (Select Max(IIf(Mid(f1,7,2)=99,Mid(f1,1,6)&""00"",f1)) From [DATA$])"
Set rs = cn.Execute(SQL)
If Not rs.EOF() Then
Sheets("sheet1").Range("A2").CopyFromRecordset rs
End If
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
Không biết ADO, viết bằng VBA được không?
Con chào Thầy ạ,
Bạn tìm hiểu group by nhé. Mình khuyên là nên viết procedure ở phía server, code vba chi để truyền tham số và thực thi thôi.
