Giúp sửa lỗi khi thực hiện phép chia

[rilie]

Mình có đoạn code này, khi thực hiện phép chia cho 1 số nào đó thì được, nhưng khi chia cho giá trị ô "slct" thì bị lỗi.
Nhờ các A/C chỉ giúp đoạn lỗi...!

Sub chitiet()
Dim Sumact As Range, slb As Range, slct As Range, LastRow As Long, i As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "HM").End(xlUp).Row
End With
For i = 7 To LastRow
Set Sumact = Sheets("HD1").Cells(i, 231)
Set slb = Sheets("HD1").Cells(i, 7)
Set slt = Sheets("HD1").Cells(i, 5)
Set slct = Sheets("HD1").Cells(i, 220)
Sumact = Application.SumIf(Sheets("DATA").Range("D24000"), Sheets("HD1").Cells(i, 218), Sheets("DATA").Range("F2:F4000"))
If slt > 0 Then slb = Sumact / 5 ( chia slct)
Next
End Sub

 

[giaiphap]

Mình có đoạn code này, khi thực hiện phép chia cho 1 số nào đó thì được, nhưng khi chia cho giá trị ô "slct" thì bị lỗi.
Nhờ các A/C chỉ giúp đoạn lỗi...!

Sub chitiet()
Dim Sumact As Range, slb As Range, slct As Range, LastRow As Long, i As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "HM").End(xlUp).Row
End With
For i = 7 To LastRow
Set Sumact = Sheets("HD1").Cells(i, 231)
Set slb = Sheets("HD1").Cells(i, 7)
Set slt = Sheets("HD1").Cells(i, 5)
Set slct = Sheets("HD1").Cells(i, 220)
Sumact = Application.SumIf(Sheets("DATA").Range("D24000"), Sheets("HD1").Cells(i, 218), Sheets("DATA").Range("F2:F4000"))
If slt > 0 Then slb = Sumact / 5 ( chia slct)
Next
End Sub

Bạn sửa chổ này

If slt > 0 Then slb = Sumact / 5

thành vầy xem sao.

If slt > 0 Then slb = Sumact / slct.Value

 

[batman1]

Mình có đoạn code này, khi thực hiện phép chia cho 1 số nào đó thì được, nhưng khi chia cho giá trị ô "slct" thì bị lỗi.
For i = 7 To LastRow
...
Set slt = Sheets("HD1").Cells(i, 5)
Set slct = Sheets("HD1").Cells(i, 220)
Sumact = Application.SumIf(Sheets("DATA").Range("D24000"), Sheets("HD1").Cells(i, 218), Sheets("DATA").Range("F2:F4000"))
If slt > 0 Then slb = Sumact / 5 ( chia slct)
Next
End Sub

Trong sheet HD1 tại cột 220 từ dòng 7 tới dòng LastRow có ô nào trống không?

 

[rilie]

Trong sheet HD1 tại cột 220 từ dòng 7 tới dòng LastRow có ô nào trống không?

Có nhiều ô trống Anh, dữ liệu hơi rời rạc, cách dòng khá nhiều.

Bài đã được tự động gộp: 3/9/18

Bạn sửa chổ này

If slt > 0 Then slb = Sumact / 5

thành vầy xem sao.

If slt > 0 Then slb = Sumact / slct.Value

Mình đã thử .value nhưng vẫn hiện lỗi "time error '13' Type mismatch "

 

[batman1]

Có nhiều ô trống Anh, dữ liệu hơi rời rạc, cách dòng khá nhiều.

Bài đã được tự động gộp: 3/9/18

Mình đã thử .value nhưng vẫn hiện lỗi "time error '13' Type mismatch "

Tôi biết mà. Giả sử trong sheet HD1 ô tại cột 220 và dòng 13 là rỗng, và LastRow = 15. Lúc này ở vòng lặp thứ 7 có i = 13. Và giá trị của slct = Sheets("HD1").Cells(i, 220).Value = Sheets("HD1").Cells(13, 220).Value = 0. Tiếp theo là phép chia cho 0 nên bị lỗi.
---------------
Tùy dụng ý của bạn mà sửa. Vd.

If slt > 0 And slct.Value <> 0 Then slb = Sumact / slct.Value

hoặc

If slt > 0 And slct.Value <> 0 Then
Sumact = Application.SumIf(Sheets("DATA").Range("D2:D4000"), Sheets("HD1").Cells(i, 218), Sheets("DATA").Range("F2:F4000"))
slb = Sumact / slct.Value
End If

hoặc
...

 

[rilie]

Tôi biết mà. Giả sử trong sheet HD1 ô tại cột 220 và dòng 13 là rỗng, và LastRow = 15. Lúc này ở vòng lặp thứ 7 có i = 13. Và giá trị của slct = Sheets("HD1").Cells(i, 220).Value = Sheets("HD1").Cells(13, 220).Value = 0. Tiếp theo là phép chia cho 0 nên bị lỗi.
---------------
Tùy dụng ý của bạn mà sửa. Vd.

If slt > 0 And slct.Value <> 0 Then slb = Sumact / slct.Value

hoặc

If slt > 0 And slct.Value <> 0 Then
Sumact = Application.SumIf(Sheets("DATA").Range("D2:D4000"), Sheets("HD1").Cells(i, 218), Sheets("DATA").Range("F2:F4000"))
slb = Sumact / slct.Value
End If

hoặc
...

Thank Anh đã giúp đỡ: Em đã thêm điều kiện "slt > 0 And slct.Value <> 0 And Sumact>0 " code đã chạy được.