Nếu SL Chia là cả số âm và số dương thì hơi khó, còn của bác đảm bảo toàn bộ SL Chia là số âm thì em chỉ sửa lại code 1 chút xíu thôi. Ý tưởng là cứ coi toàn bộ nó là số dương(dùng hàm ABS để chuyển về số dương), chỉ khi nào đến kết quả chính thức thì mới cho nó là số âm là OK ngay. Bác xem lại code vẫn như vậy, chỉ sửa có mấy chỗ thôi.
Cám ơn bác. bác xem qua ví dụ sau thử và giúp mình
thành
- Nhưng nếu trở lại A002 thì tòan số dương thì dùng nguợc lại, có thể xin 1 cách tổng thể.
Cho SLChia, cách trên liệu có chính xác chưa!
- Nghiệp vụ phức tạp quá, em đọc mãi mới hiểu. Về vấn đề lúc số âm, lúc số dương thì không đáng ngại. Phương án là ta quy hết về xử lý với số dương, khi trả ra giá trị mới xem nó là dương hay âm. Ở đây em dùng thêm 1 biến AmDuong có giá trị sẽ là 1 hoặc -1 tương ứng với 2 trường hợp âm hay dương, biến này được khởi gán 1 lần cho mỗi SoTK. Khi trả về giá trị thì nhân với biến AmDuong này là OK. Bác xem thử trong file.
Cám ơn bạn rất nhiều.
Còn không thì dùng TinhToan05
If curSLChoDu <= curSLNhanThieuThì do while không chịu dừng.
Thì trong lúc do while OK sẽ sinh ra những số gần = 0. Step thì thấy SlChia khi về 0 nó phải qua nhiều số 0.00000000....
Sub TinhToan05()
Dim curCho As Long, curNhan As Long
Dim curSLCho As Double, curSLNhan As Double
Dim curSLChoDu As Double, curSLNhanThieu As Double, SLChia As Double
curCho = 0: curNhan = 0
curSLNhanThieu = 0: curSLChoDu = 0: SLChia = 0
With Sheets("NKC")
'***---------------------------------------------------------
'Phan nay la nhieu no nhieu co
Do While Not (curCho = rngCho.Rows.Count And curSLChoDu = 0)
If curSLChoDu = 0 Then
curCho = curCho + 1
curSLCho = rngCho(curCho, 8)
curSLChoDu = curSLCho
End If
If curSLNhanThieu = 0 Then
curNhan = curNhan + 1
curSLNhan = rngNhan(curNhan, 9)
curSLNhanThieu = curSLNhan
End If
If curSLChoDu <= curSLNhanThieu Then
SLChia = curSLChoDu
Else
SLChia = curSLNhanThieu
End If
If SLChia = 0 Then Exit Do 'thoat vong lap kho slchia =0
.Cells(iRow, 1) = rngCho(curCho, 1)
.Cells(iRow, 2) = sSoCT
.Cells(iRow, 3) = rngCho(curCho, 3)
.Cells(iRow, 4) = rngCho(curCho, 4)
.Cells(iRow, ColTkNo) = rngCho(curCho, 7) ' TK No
.Cells(iRow, ColTkCo) = rngNhan(curNhan, 7) 'TKCo
.Cells(iRow, 7) = SLChia 'So tien
curSLChoDu = curSLChoDu - SLChia
curSLNhanThieu = curSLNhanThieu - SLChia
.Cells(iRow, 12) = iCT Mod 2 'sott soct
iRow = iRow + 1
Loop
End With
End SubcurCho = 0: curNhan = 0
curSLNhanThieu = 0: curSLChoDu = 0: SLChia = 0Xin lỗi bác, mấy hôm em bận ko vào xem được. Vấn đề của bác đúng là nan y thật. Không hiểu sao nó tự đẻ ra được 1 cái sai số trời ơi này. Tạm thời em thử thêm 1 cái điều kiện để kết thúc vòng lặp Do While như sau, bác xem có giải quyết được vấn đề không nhé:
Do While Not ((curCho = rngCho.Rows.Count And curSLChoDu = 0) Or (curCho = rngCho.Rows.Count And curSLNhanThieu = 0))
Cám ơn bạn nhiều, tạm thời test thì đúng, nhưngđể mình gắn vào file chạy thử. Tức là không tìm ra lý do.Xin lỗi bác, mấy hôm em bận ko vào xem được. Vấn đề của bác đúng là nan y thật. Không hiểu sao nó tự đẻ ra được 1 cái sai số trời ơi này. Tạm thời em thử thêm 1 cái điều kiện để kết thúc vòng lặp Do While như sau, bác xem có giải quyết được vấn đề không nhé:
Tuy nhiên đây cũng không phải là giải pháp triệt để, có lẽ phải nhờ các cao thủ khác nghiên cứu thêm cái vụ sai số này.Mã:Do While Not ((curCho = rngCho.Rows.Count And curSLChoDu = 0) Or (curCho = rngCho.Rows.Count And curSLNhanThieu = 0))
//Ồ hình như không đúng, em hiểu nhầm ý bác, đây chỉ là điều kiện để kết thúc vòng lặp, nếu nó vẫn còn dữ liệu để chia thì vẫn chết, chắc phải nghĩ thêm chút đã
Lý do chỗ này dài dòng lắm bác ạ, tạm thời để nó chạy chính xác bác tạm thời thay kiểu dữ liệu cho mấy biến này là Currency thay cho kiểu Double nhé. Chúc bác sớm hoàn thiện được chương trình của mình.
If SLChia = 0 Then Exit Do 'thoat vong lap khi slchia =0Không cần dòng này nữa đâu, vòng lặp Do While đã bao hết các trường hợp để kết thúc rồi.
Sub TinhToan01()
'Truong hop nay danh cho 1N va 1C - Dem=2
With Sheets("NKC")
.Cells(iRow, 1) = rngNhan(1, 1)
.Cells(iRow, 2) = sSoCT
.Cells(iRow, 3) = rngNhan(1, 3)
.Cells(iRow, 4) = rngNhan(i, 4)
.Cells(iRow, ColTkNo) = rngCho(1, 7) 'TKNo'
.Cells(iRow, ColTkCo) = rngNhan(1, 7) 'TKCo;
.Cells(iRow, 7) = rngNhan(1, 9) 'sotien
.Cells(iRow, 12) = iCT Mod 2 'sott soct
iRow = iRow + 1
End With
End SubMình gán vào 1 Array
Và cứ khi các code tinhtoan run thì nó đưa kết quả appen vào ArrKQ. Khi nào iCT = eRow - 1 thì mới gán xuống Sheets("NKC")
Bài này lâu lắm mới lại mở lại, không nhớ được trước đây đã làm những gì
. Tạm thời em thấy thế này, với trường hợp 01, chỉ có duy nhất 1 dòng nên không cần thiết phải dùng tới mảng làm gì. Trường hợp 02, 03, 04 thì đã thực hiện gán cả vùng nên nó cũng giống như mảng, thậm chí nếu dùng mảng còn mất công đọc vào mảng sẽ lâu hơn. Nên ở đây chỉ thấy có trường hợp 05 và 06 là có thể dùng thôi. Em sửa thử như trong file đính kèm bác kiểm tra thử xem sao nhé.Cám ơn rất nhiều.Bài này lâu lắm mới lại mở lại, không nhớ được trước đây đã làm những gì
Mình có thể chuyển thành Arr dạng như
Như vậy thì các sub TinhToan có ảnh hưởng gì nhiều? Và liệu có cải thiện thêm tốc độ.
