Chào anh Hai Lúa!Ví dụ ta định dạng dữ liệu, nối cột, thực hiện phép tính khi đưa xuống sheet như sau:
Rich (BB code):Sub Page_HLMT_4() Dim intPage As Integer, i As Integer, intSq As Integer, intRecord As Integer Dim lngTotal As Long With CreateObject("ADODB.Recordset") .Open "Select * from [Sheet1$]", "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 Xml;Data Source=" & ThisWorkbook.FullName, 1 .PageSize = 20 Sheet2.Cells.ClearContents For intPage = 1 To .PageCount lngTotal = 0 For intRecord = 1 To .PageSize i = i + 1 intSq = intSq + 1 Sheet2.Range("A" & i) = intSq Sheet2.Range("B" & i) = !ID & " >> " & !Code Sheet2.Range("C" & i) = !Code Sheet2.Range("D" & i) = Format(!Price, "0,#") lngTotal = lngTotal + !Price .MoveNext If .EOF Then Exit For Next i = i + 1 Sheet2.Range("C" & i) = "Total:" Sheet2.Range("D" & i) = Format(lngTotal, "0,#") Next End With End Sub
Select f1,f2, f3 &" - " & f4 from [sheet1$]
Sheet2.range("A2").Copyfromrecordset .Datasource
Trước đây có hỏi anh @Hai Lúa Miền Tây thì dữ liệu này mình chỉ truyền qua. Có tính được mấy hàm đơn giản như ABS, MAX, MIN, cộng trừ nhân chia.Xin chào.
Cho mình hỏi dữ liệu của mình lớn. Mình đã cho vào rs rồi thì làm cách nào đổi font dữ liệu (TCVN3 sang Unicode) xong mới đổ ra sheet không mọi người. Cảm ơn
Thì cái khúc mang array ra xử thì kiếm code chuyển dữ liệu từ TCVN3 sang Unicode. Còn tốc độ thì không biết sao. Chưa nghiên cứu dụ nàyrồi mang ra Array ra xử
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2