Не работает код (If_Then_ElseIf_)

[Exo]

Доброго времени суток, подскажите почему не работает код:

Sub SID11()

Dim Stock As Double
Dim SID As Double

On Error Resume Next

Stock = [A7]
If Stock <= [B7] Then SID = Stock / ([B7] / 30.41) 'если 1
ElseIf Stock <= [B7] + [C7] Then SID = Stock / (([B7] + [C7]) / (30.41 * 2)) 'если 2
ElseIf Stock <= [B7] + [C7] + [D7] Then SID = Stock / (([B7] + [C7] + [D7]) / (30.41 * 3)) 'если 3
ElseIf Stock <= [B7] + [C7] + [D7] + [Е7] Then SID = Stock / (([B7] + [C7] + [D7] + [Е7]) / (30.41 * 4)) 'если 4
ElseIf Stock <= [B7] + [C7] + [D7] + [Е7] + [F7] Then SID = Stock / (([B7] + [C7] + [D7] + [Е7] + [F7]) / (30.41 * 5)) 'если 5
ElseIf Stock <= [B7] + [C7] + [D7] + [Е7] + [F7] + [G7] Then SID = Stock / (([B7] + [C7] + [D7] + [Е7] + [F7] + [G7]) / (30.41 * 6)) 'если 6
ElseIf Stock > [B7] + [C7] + [D7] + [Е7] + [F7] + [G7] Then SID = 6 * 30.41 + ((Stock - [B7] + [C7] + [D7] + [Е7] + [F7] + [G7]) / [G7])
End If
SID = [N7]
End Sub

[EducatedFool]

Выбираем в редакторе VBA пункт меню Debug - Compile VBAProject,
и сразу видим причину неработоспособности кода:



Правильно будет так:

    If Stock <= [B7] Then ' вставляем перевод строки
        SID = Stock / ([B7] / 30.41)    'если 1
    ElseIf Stock <= [B7] + [C7] Then SID = Stock / (([B7] + [C7]) / (30.41 * 2))    'если 2
    ElseIf Stock <= [B7] + [C7] + [D7] Then SID = Stock / (([B7] + [C7] + [D7]) / (30.41 * 3))    'если 3

Можно написать так: (код более понятен)

Sub SID_new()
    Dim Stock As Double, SID As Double
    Stock = [A7]

    Select Case Stock
        Case Is <= [B7]: SID = Stock / ([B7] / 30.41)   'если 1
        Case Is <= [B7] + [C7]: SID = Stock / (([B7] + [C7]) / (30.41 * 2))    'если 2
        Case Is <= [B7] + [C7] + [D7]: SID = Stock / (([B7] + [C7] + [D7]) / (30.41 * 3))    'если 3
            ' и так далее
    End Select
    [N7] = SID ' а не наоборот
End Sub

По идее, всё это можно вычислить одной формулой (без перебора вариантов)
Но написать такую формулу я не смогу...

[IgorGO]

во-первых, не совсем понятно что необходимо получить, а во-вторых, у вас куча ифов, которые выбирают чему же будет равно SID, а после всего все эти усилия решительно зачекнуты строкой SID = [N7]

[Exo]

вот за это ненавижу VBA глупая ошибка (которая для новичка и не ошибка вовсе, подумаешь на строчку не перескочи) и нечего не работает и думаешь сидишь...


Спасибо большое.

[Exo]

Сообщение от IgorGO

во-первых, не совсем понятно что необходимо получить, а во-вторых, у вас куча ифов, которые выбирают чему же будет равно SID, а после всего все эти усилия решительно зачекнуты строкой SID = [N7]

эээ SID = [N7] я хотел сказать, мол вставляй мне получившееся значение SID в ячейку N7....

[IgorGO]

вот за это ненавижу VBA

VBA надо любить... и воздастся...

[Exo]

я пытаюсь посчитать некий SID по нескольким условиям.

более подробно в приложении (уже сейчас с помощью калькулятора вижу что что-то я не так в VBA наделал )

[EducatedFool]

Проще всего применить пользовательскую функцию:

Function SID(ByVal Stock As Long, ByRef Demand_Plane As Range)
    s = 0
    For i = 1 To Demand_Plane.Cells.Count
        s = s + Val(Demand_Plane.Cells(i))
        If s >= Stock And s <> 0 Then SID = Stock * 30.42 * i / s: Exit Function
    Next
    LastCell = Demand_Plane.Cells(Demand_Plane.Cells.Count)
    If LastCell <> 0 Then SID = 6 * 30.41 + (Stock - s) / LastCell
End Function

И в ячейку ввести формулу типа =SID(A7;B7:G7)

Пример во вложении:
(на будущее - прикрепляйте файлы в формате Excel 2003)

Последнее условие не учёл, так как оно там не в тему... (два последних условия одинаковы)

(добавлено)
теперь учёл последнее условие. Но оно не проверяется (точнее, значение не вычисляется), если в последней ячейке диапазона Demand_Plane находится ноль (как в Вашем файле) - делить на ноль VBA пока не умеет.
Самостоятельно замените в приложенном файле код функции на обновлённый.

[Exo]

Сообщение от EducatedFool

Проще всего применить пользовательскую функцию:

Function SID(ByVal Stock As Long, ByRef Demand_Plane As Range)
    s = 0
    For i = 1 To Demand_Plane.Cells.Count
        s = s + Val(Demand_Plane.Cells(i))
        If s >= Stock And s <> 0 Then SID = Stock * 30.42 * i / s: Exit Function
    Next
    LastCell = Demand_Plane.Cells(Demand_Plane.Cells.Count)
    If LastCell <> 0 Then SID = 6 * 30.41 + (Stock - s) / LastCell
End Function

И в ячейку ввести формулу типа =SID(A7;B7:G7)

Пример во вложении:
(на будущее - прикрепляйте файлы в формате Excel 2003)

Последнее условие не учёл, так как оно там не в тему... (два последних условия одинаковы)

(добавлено)
теперь учёл последнее условие. Но оно не проверяется (точнее, значение не вычисляется), если в последней ячейке диапазона Demand_Plane находится ноль (как в Вашем файле) - делить на ноль VBA пока не умеет.
Самостоятельно замените в приложенном файле код функции на обновлённый.

спасибо большое, все понятно, но я бы хотел решить эту задачу макросом

(просто эта процедура будет частью нечто большего)

[EducatedFool]

но я бы хотел решить эту задачу макросом

А что Вам мешает использовать данную функцию в своём макросе?

К примеру, так:

Sub ВашМакрос()
    Dim Stock As Double
    Stock = [A7]
    result = SID(Stock, [B7:G7])
    [H7] = result
    MsgBox "SID = " & result
End Sub


Function SID(ByVal Stock As Long, ByRef Demand_Plane As Range)
    s = 0
    For i = 1 To Demand_Plane.Cells.Count
        s = s + Val(Demand_Plane.Cells(i))
        If s >= Stock And s <> 0 Then SID = Stock * 30.42 * i / s: Exit Function
    Next
    LastCell = Demand_Plane.Cells(Demand_Plane.Cells.Count)
    If LastCell <> 0 Then SID = 6 * 30.41 + (Stock - s) / LastCell
End Function

Или даже проще:

Sub ВашМакрос2()
    [H7] = SID([A7], [B7:G7])
End Sub