diff --git a/handler.bas b/handler.bas index 3f14e4b..e65550c 100644 --- a/handler.bas +++ b/handler.bas @@ -388,14 +388,10 @@ Sub month_tosheet(ByRef pkg() As Variant, ByRef basket() As Variant) End If '--adjust-- - If co_num(pkg(i, 3), 0) = 0 Then + If (pkg(i, 3) + pkg(i, 2)) = 0 Then sh.Cells(i + 1, 8) = 0 Else - If (pkg(i, 3) + pkg(i, 2)) = 0 Then - sh.Cells(i + 1, 8) = 0 - Else - sh.Cells(i + 1, 8) = (pkg(i, 7) + pkg(i, 6)) / (pkg(i, 3) + pkg(i, 2)) - (pkg(i, 6) / pkg(i, 2)) - End If + sh.Cells(i + 1, 8) = (pkg(i, 7) + pkg(i, 6)) / (pkg(i, 3) + pkg(i, 2)) - (pkg(i, 6) / pkg(i, 2)) End If '--current adjust--