38 If Err Then MsgBox Error(), , Err38 If Err Then MsgBox Error(), , ErlChạy code
Option Compare Text
Sub XYZ()
Dim sArr(), Res(), KhachHang$
Dim sRow&, sRow_1&, i&, k&
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Sheets("DATA")
sArr = .range("B2:K" & .range("E65000").End(xlUp).row).Value
End With
sRow = UBound(sArr)
ReDim Res(0 To sRow, 1 To 8)
With Sheets("CHI_TIET_131")
.range("A6:H100000").ClearContents
KhachHang = .range("C1").Value
If KhachHang = Empty Then
MsgBox "Khong ton tai ten khach hang!", vbSystemModal, "Thông báo"
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Exit Sub
End If
Res(0, 2) = .range("B5").Value
Res(0, 7) = .range("G5").Value
Res(0, 8) = Res(0, 7)
End With
For i = 1 To sRow
If sArr(i, 4) Like KhachHang Then
k = k + 1
Res(k, 1) = sArr(i, 1)
Res(k, 2) = sArr(i, 3)
Res(k, 3) = sArr(i, 10)
Res(k, 4) = sArr(i, 8)
Res(k, 5) = sArr(i, 7)
Res(k, 6) = sArr(i, 9)
Res(k, 7) = Res(k, 3) - Res(k, 4) - Res(k, 5) - Res(k, 6)
Res(k, 8) = Res(k - 1, 8) + Res(k, 7)
End If
Next i
If k Then
For i = 1 To k
For j = 3 To 7
Res(k + 1, j) = Res(k + 1, j) + Res(i, j)
Next j
Next i
With Sheets("CHI_TIET_131")
.range("A5").Resize(k + 2, 8).Value = Res
.range("C5").Resize(k + 2, 6).NumberFormat = "#,##0_);[Red](#,##0)"
.range("A5").Resize(k + 2, 8).Borders.LineStyle = 1
.range("A5").Resize(k + 2, 8).Borders(xlInsideHorizontal).Weight = xlHairline
End With
MsgBox ("Lay du lieu thanh cong!")
Else
MsgBox "Khong ton tai ten khach hang!", vbSystemModal, "Thông báo"
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Subđang lỗi ở dòng này phải không bác ơi: "kq(k, 8) = kq(k, 7) + arr(k, 8).Offset(k - 1).Value", dòng này là dòng lấy số dư mà do em code sai dòng này nhưng đang để lại cho các bác xem dòng này sai gì nên code bị lỗi ạ
Em cảm ơn bác, em sử dụng được code của bác rồi ^^ mà chỉ còn chỗ co dãn các dòng kẻ cho vừa với dữ liệu nữa bác có thể giúp em được không ạ?
Bạn thêm 02 dòng dưới đây:
.range("C4").Resize(k + 2, 6).Columns.AutoFit
ActiveWindow.DisplayGridlines = False .range("A5").Resize(k + 2, 8).Borders(xlInsideHorizontal).Weight = xlHairlineVề tổng quát, dòng lệnh này là 1 phép cọng đại số :
Em hoàn chỉnh ở đây rồi, bác có thể giúp em xem tại sao file của em lại nặng như vậy được không ạ, em không hiểu sao lại nặng đến thế!
Mình không thể giúp bạn chuyện file nặng nhẹ được rồi: Mình không có cân tiểu li!
Bác ơi, bác chỉ cho em cách làm giảm dung lượng thế này được không ạ, file của em dính gì mà dung lương tăng cao vậy ạ
Bạn chọn sheet: "CHI_TIET_131" rồi bấm phím Ctrl + End => bạn xóa hết các dòng thừa này cho tới dòng cuối của dữ liệu thực tế mà bạn có.
Em cảm ơn bác, đúng là như vậy bác ạ
Vâng em làm được rồi bác, em cũng mới học VBA nên giờ đang muốn tự động hóa VBA hết cho nhẹ chứ dùng hàm file chạy nặng mà hay lỗi lắm ạHãy thử Move or Copy từng Sheet của bạn ra new workbook Khác và save lại bạn sẽ thấy sheet nào của bạn chiếm nhiều dung lượng nhất. sau đó bạn hãy xem dữ liệu từng sheet và nếu có thể hãy format lại hạn chế định dạng màu sắc và nếu đã biết 1 chút VBA nên sử dụng VBA thay thế cho các hàm sử dụng trong cells. . bước cuối cùng khi xác định được vùng dữ liệu hãy xóa Rows và Colums không sử dụng tới. bằng cách Ctrl+Shift + Mũi tên và Delete đi là được.
Thực ra thì tôi cũng mới tập làm quen với excel được hơn 3 tháng nay.Do hay mò linh tinh nên suy cũng ngẫm ra 1 số điều. Toàn phải lên diễn đàn này học hỏi chứ cũng không ai dạy. Mong muốn nếu có gì hay mọi người chia sẻ để học hỏi thêm .
