Hình như trong file số lượng nhập không hẳn là lấy 1 dòng cũng không phải lấy tất cả thì phải
"Lấy số lượng nhập của 1 dòng trong một ngày của một sản phẩm".
Trong file nếu để được kết quả số lượng nhập thì phải cộng 1 dòng của ngày 1 và 1 dòng của ngày 2 thì mới đúng là 1100 như trong file ghi đó bác,nên mới khó hiểu là rõ là điều kiện là phân theo ngày và sản phẩm sao lại cộng hai ngày với nhau được.còn chỉ tính sp A của ngày 1 số lượng nhập là 400 ,ngày hai là 2000
Tức là:
hơi châm tiêu,giờ thì đã hiểu rồi bác
Đúng ý em đó bác.
Option Explicit
Sub Tong_Hop()
Dim SQL(), KQ()
Dim i As Long, K As Long, Rws As Long, DK As String, MH As String, Date1 As Date
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
With Sheet1
SQL = .Range("C4", .Range("C" & Rows.Count).End(xlUp)).Resize(, 5).Value
ReDim KQ(1 To UBound(SQL), 1 To 4)
For i = 1 To UBound(SQL)
MH = Trim(SQL(i, 2))
DK = Trim(SQL(i, 1)) & Trim(SQL(i, 2))
If Not Dic.exists(MH) Then
K = K + 1
Dic.Add MH, K
Dic.Add DK, SQL(i, 1)
KQ(K, 1) = SQL(i, 2)
KQ(K, 2) = SQL(i, 3)
KQ(K, 3) = SQL(i, 5)
Else
Rws = Dic.Item(MH)
Date1 = Dic.Item(DK)
KQ(Rws, 3) = KQ(Rws, 3) + SQL(i, 5)
If SQL(i, 1) <> Date1 Then
KQ(Rws, 2) = KQ(Rws, 2) + SQL(i, 3)
Dic.Item(DK) = Dic.Item(DK) & SQL(i, 1)
End If
End If
Next
For i = 1 To K
KQ(i, 4) = KQ(i, 3) / KQ(i, 2)
Next
.Range("L18").Resize(K, 4) = KQ
End With
Set Dic = Nothing
End SubVBA Excel không có SQL. Khỏi nói chuyện giải quyết.
Thử code sau, tôi không chắc là sẽ đúng yêu cầu của bạn.
Sub LayDL_HLMT1()
With CreateObject("ADODB.Connection")
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=""Excel 12.0 Xml;HDR=No"";Data Source=" & ThisWorkbook.FullName
Sheet1.Range("L17").CopyFromRecordset .Execute("Select F2,Sum(F3),Sum(F5),Sum(F5)/Sum(F3) From (Select Distinct F2,F3,0 As F5 from [Sheet1$A4:G15] Union All Select F2,0,Sum(F5) from [Sheet1$A4:G15] Group By F2) Group By F2")
End With
End SubGóp vui luôn đi bác
Sub xxx()
Dim cn As New Connection, rs As New Recordset, s As String
s = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=""Excel 12.0 Xml;HDR=No"";Data Source=" & ThisWorkbook.FullName
cn.Open s
s = "SELECT Ten,sum(SLN) as SLN,sum(SoLoi) as SoLoi,sum(SoLoi)/sum(SLN) as TyLe FROM (SELECT F2 as Ten,max(F3) as SLN,sum(F5) as SoLoi FROM [Sheet1$C4:G15] GROUP BY F1,F2) GROUP BY Ten"
rs.Open s, cn
Sheet1.Range("A20").CopyFromRecordset rs
rs.Close
cn.Close
End SubCái này dùng Pivot cũng được ạ. Chỗ công thức item ấy ạ, add được thêm cột công thức
Nó là sql - ADODB đó bác
Code này thì chương trình sẽ rất chậm.
Cái e hỏi chỉ là 1 mắt xích trong các câu lệnh tính toán sql khác(còn nhiều sự kết hợp khác) nên em cần giải quyết bằng SQL.
Cùng file, dùng mảng tốc độ nhanh hơn ADO, Chỉnh code bài #12 tí xíu
Sub LayDL()
Dim strSQL$
With CreateObject("ADODB.Connection")
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=""Excel 12.0 Xml;HDR=No"";Data Source=" & ThisWorkbook.FullName
strSQL = "(Select Distinct F1 & ""_"" & F2 as t1 ,F3 as t2 ,0 As t3 from [Sheet1$A4:G15] Union All " & _
"Select F1 & ""_"" & F2,0,Sum(F5) from [Sheet1$A4:G15] Group By F1 & ""_"" & F2)"
strSQL = "Select Right(t1,1) ,Sum(t2) as a2,Sum(t3) as a3 ,a3/a2 From " & strSQL & " Group By right(t1,1)"
Sheet1.Range("L17").CopyFromRecordset .Execute(strSQL)
End With
End SubCho em hỏi chút là sao trong lệnh tìm kiếm mình cứ F1, F2, F3....Em không hiểu vì thường SQL là lấy tiêu đề còn ở đây các F này là gì ạ ?
