Добрый день подскажите какой оператор последовательно выполняет одно условие за другим больше двух использую ElseIf выполняет только до 3 условия но 3 уже не выполняет, даже если условия вступает в силу , и подскажите как сделать по строчную проверку условий плииз ) Благодарю
Добрый день подскажите какой оператор последовательно выполняет одно условие за другим больше двух использую ElseIf выполняет только до 3 условия но 3 уже не выполняет, даже если условия вступает в силу , и подскажите как сделать по строчную проверку условий плииз ) БлагодарюElhust
If Cells(4, 3) < 0.1 Then Scorepoint2 = 41 ElseIf 0.1 <= Cells(4, 3) < 0.28 Then Scorepoint2 = 44 ElseIf 0.28 <= Cells(4, 3) < 0.41 Then Scorepoint2 = 47 ElseIf 0.41 <= Cells(4, 3) < 0.51 Then Scorepoint2 = 61 ElseIf 0.51 <= Cells(4, 3) And Cells(4, 3) > 0.51 Then Scorepoint2 = 72 End If не работает а как select case сделать я не знаю
If Cells(4, 3) < 0.1 Then Scorepoint2 = 41 ElseIf 0.1 <= Cells(4, 3) < 0.28 Then Scorepoint2 = 44 ElseIf 0.28 <= Cells(4, 3) < 0.41 Then Scorepoint2 = 47 ElseIf 0.41 <= Cells(4, 3) < 0.51 Then Scorepoint2 = 61 ElseIf 0.51 <= Cells(4, 3) And Cells(4, 3) > 0.51 Then Scorepoint2 = 72 End If не работает а как select case сделать я не знаюElhust
прекрасно работает. но тогда вам [url=https://msdn.microsoft.com/en-us/library/office/gg278665(v=office.15).aspx]сюда[/url] за select CASE видимо ну или консрукцию удыуша не использовать а просто else : if
Теперь понятно. используйте логический AND или OR типа if 2 > 1 and 2 < 3 then .. Cells(4, 3) >= 0.1 and Cells(4, 3) < 0.28 . когда 1< 6 < 5 то логика будет такая 1<6 истина, что равно 1. 1 <5 тоже истина. а значит все истина.
Elhust, Не замечал такого поведения elseif [vba]
Код
Sub test() If 5 < 1 Then
ElseIf 5 < 2 Then
ElseIf 5 < 3 Then
ElseIf 5 < 4 Then
ElseIf 5 < 5 Then
ElseIf 5 < 6 Then Debug.Print 6 End If End Sub
[/vba]
прекрасно работает. но тогда вам [url=https://msdn.microsoft.com/en-us/library/office/gg278665(v=office.15).aspx]сюда[/url] за select CASE видимо ну или консрукцию удыуша не использовать а просто else : if
Теперь понятно. используйте логический AND или OR типа if 2 > 1 and 2 < 3 then .. Cells(4, 3) >= 0.1 and Cells(4, 3) < 0.28 . когда 1< 6 < 5 то логика будет такая 1<6 истина, что равно 1. 1 <5 тоже истина. а значит все истина.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
Сообщение отредактировал bmv98rus - Пятница, 13.01.2017, 09:49
bmv98rus, Сорян за беспокойство но мне бы ещё сделать так чтобы он проверял определённое количество строчек или просто до конца листа все строчки ... (
bmv98rus, Сорян за беспокойство но мне бы ещё сделать так чтобы он проверял определённое количество строчек или просто до конца листа все строчки ... (Elhust