Excel VBAда колдонулган эң маанилүү шарт билдирүүлөрү - бул билдирүүлөр Эгерде… Анда и Case тандоо. Бул туюнтмалардын экөө тең бир же бир нече шарттарды сынайт жана натыйжага жараша ар кандай аракеттерди аткарат. Бул эки шарттуу оператор жөнүндө биз кийинкиде кененирээк сүйлөшөбүз.
Visual Basic'те "Эгер... Анда" билдирүүсү
Оператор Эгерде… Анда шартты текшерет жана эгер чын болсо (ЧЫН) анда көрсөтүлгөн аракеттердин жыйындысы аткарылат. Ал ошондой эле шарт ЖАЛГАН болсо, аткарыла турган иш-аракеттердин топтомун аныктай алат.
Оператордун синтаксиси Эгерде… Анда Бул сыяктуу:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
Бул туюнтма, элементтер elseif и дагы шарт оператору, эгерде алар керек болбосо, аларды колдонбой коюуга болот.
Төмөндө операторду колдонгон мисал келтирилген Эгерде… Анда Активдүү уячанын толтуруу түсү андагы мааниге жараша өзгөрөт:
Эгерде ActiveCell.Value < 5 Анда ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Анда ActiveCell.Interior.Color = 49407 'Ячейка в зелёный цвет.'Ячейка окрашивается в зелёный цвет ElseIf. окрашивается в красный цвет End If
Шарт чындыкка айланаары менен шарттуу билдирүүнүн аткарылышы токтотулаарына көңүл буруңуз. Ошондуктан, эгерде өзгөрмөнүн мааниси ActiveCell 5тен аз болсо, анда биринчи шарт чын болуп, клетка жашыл түскө ээ болот. Андан кийин арыздын аткарылышы Эгерде… Анда үзгүлтүккө учурап, башка шарттар текшерилбейт.
VBAдагы шарттуу операторду колдонуу жөнүндө көбүрөөк билүү Эгерде… Анда Microsoft Developer тармагынан тапса болот.
Visual Basic'те "Тандоо иши" билдирүүсү
Оператор Case тандоо операторуна окшош Эгерде… Анда бул шарттын чындыгын да текшерип, натыйжага жараша варианттардын бирин тандайт.
Оператордун синтаксиси Case тандоо Бул сыяктуу:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
элемент Case Else талап кылынбайт, бирок күтүлбөгөн маанилерди иштетүү үчүн сунушталат.
Төмөнкү мисалда, конструкцияны колдонуу Case тандоо учурдагы уячанын толтуруу түсүн андагы мааниге жараша өзгөртөт:
Тандоо Case ActiveCell.Value Case Is <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 'Ячейка окрашивается в зелёный цвет ActiveCell.Interior. Түсү = 10 'Ячейка окрашивается в жёлтый цвет Case 65535 to 11 ActiveCell.Interior.Color = 20 'Ячейка окрашивается в лиловый цвет Case Else ActiveCell.Interior.Color = 10498160 окрашивается 'Ячейка окрашивается в лиловый цвет
Жогорудагы мисалда ар кандай жолдор менен элементтин маанисин кантип коюуга болорун көрсөтөт. окуя курулушта Case тандоо. Бул жолдор:
| Case Is <= 5 | Ошентип, ачкыч сөздү колдонуу Case Is баанын канааттандырарын текшере аласыз сөздөр форманын абалы <= 5. |
| окуя 6, 7, 8, 9 | Бул жол менен сиз маани дал келгенин текшере аласыз сөздөр саналган баалуулуктардын бири менен. Көрсөтүлгөн маанилер үтүр менен бөлүнгөн. |
| окуя 10 | Бул маани дал келээрин текшерет сөздөр берилген маани менен. |
| окуя 11 Дал ушул 20 | Ошентип, сиз маанини канааттандырарын текшерүү үчүн туюнтма жаза аласыз сөздөр форманын абалы 11 тартып 20 үчүн («11<=маани<=20» теңсиздигине барабар). |
| Case Else | Бул сыяктуу, ачкыч сөздү колдонуу дагы, иш-аракеттер мааниси болсо, иш үчүн көрсөтүлөт сөздөр саналган варианттардын бирине да дал келбейт окуя. |
Шарттардын бири табылар замат тиешелүү иш-аракеттер аткарылып, структура чыгып кетет. Case тандоо. Башкача айтканда, кандай болгон күндө да, саналган бутактардын бири гана аткарылат. окуя.
VBA билдирүүсүнүн иштеши жөнүндө көбүрөөк маалымат Case тандоо Microsoft Developer тармагынан тапса болот.