Phải chăng nên thay integer thành long rồi On error resume next và On error go to 0 dò từng đoạn hả bạn VetMini
Mình muốn bổ sung có tình huống chia cho không cũng xảy ra như thế không biết có đúng không hả bạn VetMini
Trường hợp này là vòng lặp vô tận do không thỏa điều kiện thoát chứ không phải lỗi. Bẫy lỗi cũng vô dụng.
Có thật là sửa những chỗ đó sẽ cải thiện được tốc độ không? Tôi thì tôi nghĩ những chỗ đó chả liên quan gì đến tốc độ cả.Theo tôi, muốn cải thiện tốc độ thì:1. Không đọc và ghi dữ liệu trực tiếp trên từng ô mà lấy tất cả dữ liệu vào mảng, xử lý trên mảng và ghi dữ liệu xuống sheet 1 lần.2. Thay đổi thuật toán. Thuật toán hiện tại dùng 2 vòng lặp, vòng 1 duyệt qua các ngày, vòng 2 trong vòng 1 duyệt qua tất cả các dòng của dữ liệu. Hơi phí.Lý thuyết là thế nhưng nếu cảm thấy code hiện tại không quá chậm thì cũng không nên đau đầu làm gì.
lỗi Over flow là do chỗ
Vấn đề này hôm qua đã nói tới rồi mà. Thế bạn thử viết lại xem.
Nếu em hiểu không nhầm thì em xin giải thích cách làm thôi, chứ code thì làm biếng xem lắm, nhìn chạy hoài phát ngán
tại em thấy cứ hỏi chỗ Over flow hoài nên nói lại
Mong bạn viết lại code cho tôi.
cho dù bên sheet Danh muc không có ngày nào là Mưa.
Option Explicit
Dim TGmin As Double, TGmax As Double, Itg As Double
Public Sub HamDuyet()
Dim I As Integer, J As Integer, K As Integer, H As Integer, G As Integer
Sheet4.Range("A15:A400").Resize(, 4).Value = ""
3 TGmin = Sheet5.Cells(5, 6).Value
TGmax = Sheet5.Cells(6, 6).Value
5 Itg = TGmin
K = 14: G = 1
7 Do While Itg <= TGmax
I = 15
9 Sheet4.Cells(K, 1).Value = G
Sheet4.Cells(K, 2).Value = Itg
11 Sheet4.Cells(K, 4).Value = "Mua Công truong nghi"
J = 0: H = 0
13 Do While Sheet1.Cells(I, 1).Text <> "ket thuc"
' Phan nghiem thu'
If Sheet1.Cells(I, 11).Value = Itg Then
15 Sheet4.Cells(K + J, 3).Value = Sheet1.Cells(I, 2).Value
Sheet4.Cells(K + J, 4).Value = "Nghiêm thu " & Sheet1.Cells(I, 3).Value '<=|'
17 J = J + 1: H = 1
End If
'Phan thi cong'
19 If (Sheet1.Cells(I, 6).Value <= Itg) And (Sheet1.Cells(I, 7).Value >= Itg) Then
Sheet4.Cells(K + J, 3).Value = Sheet1.Cells(I, 2).Value
21 Sheet4.Cells(K + J, 4).Value = "Thi công " + Sheet1.Cells(I, 3).Value
J = J + 1: H = 1
23 End If
I = I + 1
25 Loop
If H = 1 Then J = J - 1
27 Itg = Itg + 1
K = K + J + 1: G = G + 1
29 Loop
End Subtạm thời bạn dùng cái này xem sao nhaMong bạn viết lại code cho tôi.
1) Tôi đã nói ở #6
2) Tôi cũng không hiểu tại sao là khi công trường không thi công gì lại xuất kết quả ra là "Mua Công truong nghi"
Sub NhatKy()
Application.ScreenUpdating = False
BatDau = Sheet5.Range("F5").Value
KetThuc = Sheet5.Range("F6").Value
c = Sheet1.UsedRange.Rows.Count
j = 14
k = 1
'xoa du lieu
Sheet4.Range("A14:E100").Value = ""
'vong lap ket thuc khi ngay bat dau > ngay ket thuc
Do While BatDau <= KetThuc
For i = 18 To c
BDauau = Sheet1.Cells(i, 6).Value
KThuc = Sheet1.Cells(i, 7).Value
'kiem tra xem cong viec co namg trong khoang thoi gian xxxx khong
If BDauau <= BatDau And KThuc >= BatDau Then
'kiem tra ngay de dien vao
If KTraNgay <> BatDau Then
KTraNgay = BatDau
DienNgay = BatDau
Else
DienNgay = ""
End If
'kiem tra va dien hang muc
HMucNguon = Sheet1.Cells(i, 2).Value
If KTraHMuc <> HMucNguon Then
KTraHMuc = HMucNguon
DienHangMuc = HMucNguon
Else
DienHangMuc = ""
End If
'kien tra va dien STT
If DienNgay <> "" Then
Sheet4.Cells(j, 1) = k
k = k + 1
End If
'dien vao sheet Nhat ky
Sheet4.Cells(j, 2) = DienNgay
Sheet4.Cells(j, 3).Value = DienHangMuc 'hang muc
Sheet4.Cells(j, 4).Value = Sheet1.Cells(i, 3).Value 'noi dung cong vc
j = j + 1
End If
Next i
BatDau = BatDau + 1
Loop
Application.ScreenUpdating = True
End SubKhi viết lại bạn vẫn đi theo lối mòn của code cũ.
Do While BatDau <= KetThuc
...
BatDau = BatDau + 1
LoopFor i = BatDau To KetThuc
...
Nextđường nào cũng về la mã mà bác. Không bị lỗi vòng lặp
