Необходимо поменять If на ElseIf, где нужно (vba excel)
Формулировка задачи:
Помогите, пожалуйста, расставить EsleIf, Else и End if!!
а то берется только последнее условие(( запуталась уже!
If X <= 50 Then If Y >= 50 Then If 36 <= t <= 60 Then i = 11.4
If 61 <= t <= 84 Then i = 11.65
If 85 <= t <= 120 Then i = 11.85
If t > 120 Then i = 12.05
If 40 <= Y <= 49 Then
If 36 <= t <= 60 Then i = 11.65
If 61 <= t <= 84 Then i = 11.85
If 85 <= t <= 120 Then i = 12.05
If t > 120 Then i = 12.25
If 30 <= Y<= 39 Then
If 36 <= t <= 60 Then i = 12.05
If 61 <= t <= 84 Then i = 12.25
If 85 <= t <= 120 Then i = 12.4
If t > 120 Then i = 12.55
If 50 <= X <= 75 Then If Y >= 50 Then If 36 <= t <= 60 Then i = 11.55
..............дальше повторяется
вот более наглядное изображение:
проблема в том, что не расставлены else if, else, поэтому st считается только по последнему..
Решение задачи: «Необходимо поменять If на ElseIf, где нужно (vba excel)»
textual
Листинг программы
If o <= 50 Then If v >= 50 Then If (36 <= t) And (t <= 60) Then st = 11.4 If (61 <= t) And (t <= 84) Then st = 11.65 If (85 <= t) And (t <= 120) Then st = 11.85 If t > 120 Then st = 12.05 End If If (40 <= v) And (v <= 49) Then If (36 <= t) And (t <= 60) Then st = 11.65 If (61 <= t) And (t <= 84) Then st = 11.85 If (85 <= t) And (t <= 120) Then st = 12.05 If t > 120 Then st = 12.25 End If If (30 <= v) And (v <= 39) Then If (36 <= t) And (t <= 60) Then st = 12.05 If (61 <= t) And (t <= 84) Then st = 12.25 If (85 <= t) And (t <= 120) Then st = 12.4 If t > 120 Then st = 12.55 End If End If If (50 <= o) And (o <= 75) Then If v >= 50 Then If (36 <= t) And (t <= 60) Then st = 11.55 If (61 <= t) And (t <= 84) Then st = 11.8 If (85 <= t) And (t <= 120) Then st = 12 If t > 120 Then st = 12.2 End If If (40 <= v) And (v <= 49) Then If (36 <= t) And (t <= 60) Then st = 11.8 If (61 <= t) And (t <= 84) Then st = 12 If (85 <= t) And (t <= 120) Then st = 12.2 If t > 120 Then st = 12.4 End If If (30 <= v) And (v <= 39) Then If (36 <= t) And (t <= 60) Then st = 12.25 If (61 <= t) And (t <= 84) Then st = 12.4 If (85 <= t) And (t <= 120) Then st = 12.55 If t > 120 Then st = 12.7 End If End If If (75 <= o) And (o <= 100) Then If v >= 50 Then If (36 <= t) And (t <= 60) Then st = 11.7 If (61 <= t) And (t <= 84) Then st = 11.9 If (85 <= t) And (t <= 120) Then st = 12.1 If t > 120 Then st = 12.3 End If If (40 <= v) And (v <= 49) Then If (36 <= t) And (t <= 60) Then st = 12 If (61 <= t) And (t <= 84) Then st = 12.2 If (85 <= t) And (t <= 120) Then st = 12.35 If t > 120 Then st = 12.5 End If If (30 <= v) And (v <= 39) Then If (36 <= t) And (t <= 60) Then st = 12.5 If (61 <= t) And (t <= 84) Then st = 12.6 If (85 <= t) And (t <= 120) Then st = 12.7 If t > 120 Then st = 12.8 End If End If