{"draftJsState":{"blocks":[{"data":{"image":{"id":"6586a77e2eb5c11b9647b351"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего нойтбука","type":"atomic:image","key":"aunvb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":12,"style":"BOLD"}],"text":"Конструкция If Then является широко используемым инструментом в программировании на VBA. Она позволяет приложениям принимать решения на основе заданных условий, что является ключевым элементом для создания эффективных программ. Успешный макрос Excel, по сути, сводится к принятию правильных решений и выполнению соответствующих действий.","type":"unstyled","key":"3rgb5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"},{"length":5,"offset":112,"style":"BOLD"}],"text":"If Then используется для выполнения одного или нескольких операторов при выполнении заданного условия. Оператор Else необязателен и позволяет выполнять одну или более инструкций в случае несоблюдения условия.","type":"unstyled","key":"b6k08"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":3,"offset":225,"style":"BOLD"},{"length":9,"offset":238,"style":"BOLD"}],"text":"Давайте рассмотрим пример, связанный с управлением временными данными, используя VBA. VBA работает с системой дат и времени, аналогичной той, что используется в Excel. Время дня представлено дробным числом, где полдень равен 0.5. Функция VBA Time возвращает текущее системное время в формате часов. В следующем примере будет отображено сообщение, если текущее время меньше полудня. В противном случае процедура завершится без выполнения дополнительных действий.","type":"unstyled","key":"bro1p"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":14,"offset":0,"style":"BOLD"}],"text":"Sub GreetMe1()","type":"unstyled","key":"a11ar"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":44,"offset":0,"style":"BOLD"}],"text":" If Time < 0.5 Then MsgBox \"Доброе утро!\"","type":"unstyled","key":"e4b6o"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"}],"text":"End Sub","type":"unstyled","key":"bfq16"},{"data":{"image":{"id":"6514560d840e0e241bc3b033"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"epkrp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Этот код можно разбить на несколько строк для более читаемости:","type":"unstyled","key":"5516d"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":15,"offset":0,"style":"BOLD"}],"text":"Sub GreetMe1a()","type":"unstyled","key":"b5lc9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":22,"offset":0,"style":"BOLD"}],"text":" If Time < 0.5 Then","type":"unstyled","key":"9hsf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":29,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Доброе утро!\"","type":"unstyled","key":"7pmhl"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":10,"offset":0,"style":"BOLD"}],"text":" End If","type":"unstyled","key":"fklbf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"}],"text":"End Sub","type":"unstyled","key":"51r4f"},{"data":{"image":{"id":"651456403ed8d76b4986d9db"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"flh92"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":2,"offset":32,"style":"BOLD"},{"length":6,"offset":60,"style":"BOLD"},{"length":2,"offset":147,"style":"BOLD"},{"length":6,"offset":152,"style":"BOLD"}],"text":"Заметьте, что каждой инструкции If соответствует инструкция End If. В данном примере выполняется только один оператор, если условие истинно. Между If и End If можно вставить любое количество операторов.","type":"unstyled","key":"6et13"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":105,"style":"BOLD"}],"text":"Если требуется отобразить другое приветствие во второй половине дня, можно добавить еще одну конструкцию If Then:","type":"unstyled","key":"59nsd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":14,"offset":0,"style":"BOLD"}],"text":"Sub GreetMe2()","type":"unstyled","key":"91ckp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":22,"offset":0,"style":"BOLD"}],"text":" If Time < 0.5 Then","type":"unstyled","key":"bjoqk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":29,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Доброе утро!\"","type":"unstyled","key":"1qsh8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":10,"offset":0,"style":"BOLD"}],"text":" End If","type":"unstyled","key":"8ssf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":23,"offset":0,"style":"BOLD"}],"text":" If Time >= 0.5 Then","type":"unstyled","key":"3v4r0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":29,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Добрый день!\"","type":"unstyled","key":"1afo8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":10,"offset":0,"style":"BOLD"}],"text":" End If","type":"unstyled","key":"dcd3t"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"}],"text":"End Sub","type":"unstyled","key":"dkbcf"},{"data":{"image":{"id":"6514565a0e8a54683f2c9bf5"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"f15cl"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":21,"offset":45,"style":"BOLD"},{"length":7,"offset":89,"style":"BOLD"}],"text":"Обратите внимание на использование оператора >= (больше или равно) во второй конструкции If Then, что учитывает случай полудня (12:00).","type":"unstyled","key":"3jmmb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":4,"offset":24,"style":"BOLD"},{"length":7,"offset":41,"style":"BOLD"}],"text":"Для использования ветви Else конструкции If Then можно сделать следующим образом:","type":"unstyled","key":"dbhrd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":14,"offset":0,"style":"BOLD"}],"text":"Sub GreetMe3()","type":"unstyled","key":"84dfs"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":22,"offset":0,"style":"BOLD"}],"text":" If Time < 0.5 Then","type":"unstyled","key":"2ugug"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":29,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Доброе утро!\"","type":"unstyled","key":"6ompn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":0,"style":"BOLD"}],"text":" Else","type":"unstyled","key":"3jabu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":29,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Добрый день!\"","type":"unstyled","key":"fi6ep"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":10,"offset":0,"style":"BOLD"}],"text":" End If","type":"unstyled","key":"8c6ic"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"}],"text":"End Sub","type":"unstyled","key":"dhfsf"},{"data":{"image":{"id":"6514566e3244a2040766b072"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"5je1l"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":12,"offset":78,"style":"BOLD"}],"text":"Обратите внимание на использование символа продолжения строки в этом примере. If Then Else фактически является одной инструкцией.","type":"unstyled","key":"1j0oq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Если необходимо выполнить несколько операторов на основе одного условия, можно воспользоваться следующим кодом:","type":"unstyled","key":"mc5j"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":15,"offset":0,"style":"BOLD"}],"text":"Sub GreetMe3a()","type":"unstyled","key":"ep9hj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":22,"offset":0,"style":"BOLD"}],"text":" If Time < 0.5 Then","type":"unstyled","key":"esgu2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":28,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Доброе утро!\"","type":"unstyled","key":"5f4gu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":0,"style":"BOLD"}],"text":" ' Здесь вводятся другие операторы","type":"unstyled","key":"4sf4d"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":0,"style":"BOLD"}],"text":" Else","type":"unstyled","key":"bla0d"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":29,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Добрый день!\"","type":"unstyled","key":"50nmn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"}],"text":" ' Здесь вводятся другие операторы","type":"unstyled","key":"996gi"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":10,"offset":0,"style":"BOLD"}],"text":" End If","type":"unstyled","key":"5il49"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"}],"text":"End Sub","type":"unstyled","key":"bbiji"},{"data":{"image":{"id":"6514568b0480375173a67666"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"6gp4a"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":100,"style":"BOLD"},{"length":12,"offset":136,"style":"BOLD"}],"text":"Если нужно обработать три условия (например, утро, день и вечер), можно использовать либо три блока If Then, либо вложенную конструкцию If Then Else. Первый вариант более прост:","type":"unstyled","key":"j3gj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":14,"offset":0,"style":"BOLD"}],"text":"Sub GreetMe4()","type":"unstyled","key":"836sb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":22,"offset":0,"style":"BOLD"}],"text":" If Time < 0.5 Then","type":"unstyled","key":"7nmkb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":29,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Доброе утро!\"","type":"unstyled","key":"ioan"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":10,"offset":0,"style":"BOLD"}],"text":" End If","type":"unstyled","key":"41bfa"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":43,"offset":0,"style":"BOLD"}],"text":" If Time >= 0.5 And Time < 0.75 Then","type":"unstyled","key":"2mm4s"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":29,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Добрый день!\"","type":"unstyled","key":"7aqge"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":10,"offset":0,"style":"BOLD"}],"text":" End If","type":"unstyled","key":"au0mb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":28,"offset":0,"style":"BOLD"}],"text":" If Time >= 0.75 Then","type":"unstyled","key":"a8o7q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":30,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Добрый вечер!\"","type":"unstyled","key":"3h25e"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":10,"offset":0,"style":"BOLD"}],"text":" End If","type":"unstyled","key":"5j1vv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"}],"text":"End Sub","type":"unstyled","key":"7jsdu"},{"data":{"image":{"id":"651456a4ce51c60f9346c4ff"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"v620"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":4,"offset":9,"style":"BOLD"},{"length":5,"offset":33,"style":"BOLD"}],"text":"Значение 0.75 представляет время 18:00, когда день переходит в вечер.","type":"unstyled","key":"d30fr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"В предыдущих примерах каждая инструкция в процедуре выполняется, даже если первое условие (утро) выполняется. Для оптимизации процедуры можно добавить инструкцию, которая завершает процедуру после выполнения какого-либо условия. Это особенно полезно в более сложных приложениях:","type":"unstyled","key":"m58n"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If условие Then","type":"unstyled","key":"4t28i"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"[инструкции истина]","type":"unstyled","key":"6di8i"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"[ElseIf условие-n Then","type":"unstyled","key":"8950h"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"[инструкции альтернатива]]","type":"unstyled","key":"enl24"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"[Else","type":"unstyled","key":"f20bd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"[операторы по умолчанию]]","type":"unstyled","key":"2khle"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"unstyled","key":"224u3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Данный синтаксис можно применить в процедуре GreetMe5:","type":"unstyled","key":"4okvq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":14,"offset":0,"style":"BOLD"}],"text":"Sub GreetMe5()","type":"unstyled","key":"cmett"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":22,"offset":0,"style":"BOLD"}],"text":" If Time < 0.5 Then","type":"unstyled","key":"eit22"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":29,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Доброе утро!\"","type":"unstyled","key":"emblh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":43,"offset":0,"style":"BOLD"}],"text":" ElseIf Time >= 0.5 And Time < 0.75 Then","type":"unstyled","key":"dq43b"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":30,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Добрый день!\"","type":"unstyled","key":"frceb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":0,"style":"BOLD"}],"text":" Else","type":"unstyled","key":"ceuab"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":30,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Добрый вечер!\"","type":"unstyled","key":"2keo6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":10,"offset":0,"style":"BOLD"}],"text":" End If","type":"unstyled","key":"cf8da"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"}],"text":"End Sub","type":"unstyled","key":"cng7"},{"data":{"image":{"id":"651456c96da8720ef1b29329"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"bip0u"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":98,"style":"BOLD"}],"text":"Если условие истинно, то выполняются соответствующие операторы, и происходит выход из конструкции If Then. Такой синтаксис может быть более эффективным, но может показаться сложным для понимания.","type":"unstyled","key":"fhqlk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":12,"offset":75,"style":"BOLD"},{"length":7,"offset":93,"style":"BOLD"}],"text":"Еще одним способом реализации является использование вложенных конструкций If Then Else (без Else If). Это простой и понятный способ:","type":"unstyled","key":"7numq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":14,"offset":0,"style":"BOLD"}],"text":"Sub GreetMe6()","type":"unstyled","key":"dab04"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":22,"offset":0,"style":"BOLD"}],"text":" If Time < 0.5 Then","type":"unstyled","key":"870ic"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":30,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Доброе утро!\"","type":"unstyled","key":"f5gs3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":0,"style":"BOLD"}],"text":" Else","type":"unstyled","key":"ben61"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":47,"offset":0,"style":"BOLD"}],"text":" If Time >= 0.5 And Time < 0.75 Then","type":"unstyled","key":"dmcr7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":37,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Добрый день!\"","type":"unstyled","key":"7rd64"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":16,"offset":0,"style":"BOLD"}],"text":" Else","type":"unstyled","key":"1qbts"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":38,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Добрый вечер!\"","type":"unstyled","key":"3q4uo"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":15,"offset":0,"style":"BOLD"}],"text":" End If","type":"unstyled","key":"81l7c"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":10,"offset":0,"style":"BOLD"}],"text":" End If","type":"unstyled","key":"6begb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"}],"text":"End Sub","type":"unstyled","key":"9ehrm"},{"data":{"image":{"id":"651456e446dfe43bf33f7a37"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"2v1vf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":2,"offset":30,"style":"BOLD"},{"length":6,"offset":63,"style":"BOLD"}],"text":"В этом коде каждой инструкции If соответствует своя инструкция End If.","type":"unstyled","key":"4qu1b"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":64,"style":"BOLD"},{"length":8,"offset":130,"style":"BOLD"},{"length":6,"offset":226,"style":"BOLD"},{"length":8,"offset":241,"style":"BOLD"},{"length":8,"offset":265,"style":"BOLD"}],"text":"Вот еще один пример, использующий простой синтаксис конструкции If Then. Процедура запрашивает у пользователя значение переменной Quantity (Количество) и отображает скидку на основе этого значения. Если пользователь нажимает \"Отмена\" в окне InputBox, то переменной Quantity присваивается пустая строка, и процедура завершается. Обратите внимание, что в данной процедуре не проводятся дополнительные проверки (например, на отрицательное значение):","type":"unstyled","key":"sips"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":15,"offset":0,"style":"BOLD"}],"text":"Sub Discount1()","type":"unstyled","key":"6hua0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":27,"offset":0,"style":"BOLD"}],"text":" Dim Quantity As Variant","type":"unstyled","key":"eb1tj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":26,"offset":0,"style":"BOLD"}],"text":" Dim Discount As Double","type":"unstyled","key":"7ga4f"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":47,"offset":0,"style":"BOLD"}],"text":" Quantity = InputBox(\"Укажите количество: \")","type":"unstyled","key":"amq9c"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":34,"offset":0,"style":"BOLD"}],"text":" If Quantity = \"\" Then Exit Sub","type":"unstyled","key":"cogo8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":40,"offset":0,"style":"BOLD"}],"text":" If Quantity >= 0 Then Discount = 0.1","type":"unstyled","key":"93cin"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":42,"offset":0,"style":"BOLD"}],"text":" If Quantity >= 25 Then Discount = 0.15","type":"unstyled","key":"4qb3q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":41,"offset":0,"style":"BOLD"}],"text":" If Quantity >= 50 Then Discount = 0.2","type":"unstyled","key":"i3g0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":42,"offset":0,"style":"BOLD"}],"text":" If Quantity >= 75 Then Discount = 0.25","type":"unstyled","key":"9h235"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":32,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Скидка: \" & Discount","type":"unstyled","key":"14vcf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"}],"text":"End Sub","type":"unstyled","key":"etop8"},{"data":{"image":{"id":"651456f8b503eb6059d435ca"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"bi0c6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":41,"style":"BOLD"},{"length":8,"offset":109,"style":"BOLD"}],"text":"Обратите внимание, что каждая инструкция If Then в этой процедуре всегда выполняется, и значение переменной Discount может изменяться.","type":"unstyled","key":"10mrn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Та же процедура, переписанная с использованием альтернативного синтаксиса:","type":"unstyled","key":"8i26i"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":15,"offset":0,"style":"BOLD"}],"text":"Sub Discount2()","type":"unstyled","key":"7k01g"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":27,"offset":0,"style":"BOLD"}],"text":" Dim Quantity As Variant","type":"unstyled","key":"d64me"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":26,"offset":0,"style":"BOLD"}],"text":" Dim Discount As Double","type":"unstyled","key":"577aj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":47,"offset":0,"style":"BOLD"}],"text":" Quantity = InputBox(\"Укажите количество: \")","type":"unstyled","key":"9mqt2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":34,"offset":0,"style":"BOLD"}],"text":" If Quantity = \"\" Then Exit Sub","type":"unstyled","key":"aob40"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":43,"offset":0,"style":"BOLD"}],"text":" If Quantity >= 0 And Quantity < 25 Then","type":"unstyled","key":"1sj4u"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":22,"offset":0,"style":"BOLD"}],"text":" Discount = 0.1","type":"unstyled","key":"3kfed"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":29,"offset":0,"style":"BOLD"}],"text":" ElseIf Quantity < 50 Then","type":"unstyled","key":"16oo8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":24,"offset":0,"style":"BOLD"}],"text":" Discount = 0.15","type":"unstyled","key":"37ma6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":29,"offset":0,"style":"BOLD"}],"text":" ElseIf Quantity < 75 Then","type":"unstyled","key":"6b39a"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":22,"offset":0,"style":"BOLD"}],"text":" Discount = 0.2","type":"unstyled","key":"p592"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":0,"style":"BOLD"}],"text":" Else","type":"unstyled","key":"dokh5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":23,"offset":0,"style":"BOLD"}],"text":" Discount = 0.25","type":"unstyled","key":"49shl"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":10,"offset":0,"style":"BOLD"}],"text":" End If","type":"unstyled","key":"l7sp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":32,"offset":0,"style":"BOLD"}],"text":" MsgBox \"Скидка: \" & Discount","type":"unstyled","key":"8pnp9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":0,"style":"BOLD"}],"text":"End Sub","type":"unstyled","key":"4hpkp"},{"data":{"image":{"id":"6514570b6ac4a614f75d221d"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Скриншот с моего ноутбука","type":"atomic:image","key":"9mpud"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Эти примеры демонстрируют принципы использования конструкции If Then в VBA для принятия решений на основе заданных условий. Вы можете выбрать подход, который наиболее удобен и читаем для вашего конкретного случая.","type":"unstyled","key":"chcoc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":17,"offset":42,"style":"BOLD"}],"text":"В следующей статье рассмотрим конструкцию Select Case в VBA.","type":"blockquote","key":"7tlm7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"marker","key":"3LbXiOlrwM5NRJvymPZi"}],"entityMap":{}},"mentions":[]}