Муҳимтарин изҳороти шартӣ, ки дар Excel VBA истифода мешаванд, изҳорот мебошанд Агар… Пас и Ҳолатро интихоб кунед. Ҳардуи ин ибораҳо як ё якчанд шартҳоро месанҷанд ва вобаста ба натиҷа амалҳои гуногунро иҷро мекунанд. Мо минбаъд дар бораи ин ду оператори шартӣ муфассалтар сӯҳбат хоҳем кард.
Изҳороти "Агар... Пас" дар Visual Basic
Оператор Агар… Пас шартро месанҷад ва агар он дуруст бошад (TRUE), пас маҷмӯи амалҳои муайяншуда иҷро карда мешавад. Он инчунин метавонад маҷмӯи амалҳоро муайян кунад, ки агар шарт FALSE бошад.
Синтаксиси оператор Агар… Пас ҳамин тавр:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
Дар ин ифода, элементҳо дигар и боз Оператори шартҳо мумкин нест, агар онҳо лозим набошад.
Дар зер намунае оварда шудааст, ки дар он оператор истифода мешавад Агар… Пас Ранги пуркунии чашмаки фаъол вобаста ба арзиши он тағир меёбад:
Агар ActiveCell.Value < 5 бошад, пас ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Пас ActiveCell.Interior.Color = 49407 'Ячейка орветиор.Color = 255 'Ячейка орветиор.Ячейка в зелёный цвет ElseIf. окрашивается в красный цвет Охири Агар
Аҳамият диҳед, ки баробари дуруст шудани шарт, иҷрои изҳороти шартӣ қатъ карда мешавад. Бинобар ин, агар арзиши тағирёбанда ActiveCell камтар аз 5 бошад, пас шарти якум дуруст мешавад ва ячейка ранги сабз мегирад. Баъд аз ин, иҷрои изҳорот Агар… Пас халалдор мешавад ва дигар шартҳо санҷида намешавад.
Дар бораи истифодаи оператори шартӣ дар VBA маълумоти бештар гиред Агар… Пас дар шабакаи Microsoft Developer пайдо кардан мумкин аст.
Изҳороти "Интихоби парванда" дар Visual Basic
Оператор Ҳолатро интихоб кунед монанд ба оператор Агар… Пас ки дар он дурустии шартро низ тафтиш карда, вобаста ба натича яке аз вариантхоро интихоб мекунад.
Синтаксиси оператор Ҳолатро интихоб кунед ҳамин тавр:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
элемент Ҳолати дигар талаб карда намешавад, аммо барои коркарди арзишҳои ғайричашмдошт тавсия дода мешавад.
Дар мисоли зерин, бо истифода аз сохт Ҳолатро интихоб кунед ранги пуркунии чашмаки ҷориро вобаста ба арзиш дар он тағир медиҳад:
Парвандаи ActiveCell.Value-ро интихоб кунед <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Парвандаи 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 'Ячейка окрашивается в CaseICell. Ранг = 10 'Ячейка окрашивается в жёлтый цвет Парвандаи аз 65535 то 11 ActiveCell.Interior.Color = 20 'Ячейка окрашивается в лиловый цвет Case Else ActiveCell.Interior.Color = 10498160 окрашивается 'Ячейка окрашивается в жёлтый цвет
Мисоли дар боло овардашуда нишон медиҳад, ки чӣ тавр шумо метавонед арзишро барои унсур бо роҳҳои гуногун муқаррар кунед. Парвандаи дар сохтмон Ҳолатро интихоб кунед. Инҳоянд роҳҳо:
Ҳодиса аст <= 5 | Ҳамин тариқ, бо истифода аз калимаи калидӣ Ҳодиса аст шумо метавонед тафтиш кунед, ки оё арзиш қонеъ аст Ибораҳо ҳолати шакл <= 5. |
Парвандаи 6, 7, 8, 9 | Бо ин роҳ шумо метавонед тафтиш кунед, ки оё арзиш мувофиқат мекунад Ибораҳо бо яке аз арзишҳои номбаршуда. Қиматҳои номбаршуда бо вергул ҷудо карда мешаванд. |
Парвандаи 10 | Ин тафтиш мекунад, ки оё арзиш мувофиқат мекунад Ибораҳо бо арзиши додашуда. |
Парвандаи 11 Ана тамом 20 | Ҳамин тариқ, шумо метавонед ифодаеро нависед, то санҷед, ки оё арзиш қонеъ аст Ибораҳо ҳолати шакл аз 11 ба 20 (баробар ба нобаробарии "11<=арзиш<=20"). |
Ҳолати дигар | Мисли ин, бо истифода аз калимаи калидӣ боз, амалҳо барои парванда нишон дода шудаанд, агар арзиши Ибораҳо ба ягон варианти номбаршуда мувофиқат намекунад Парвандаи. |
Ҳамин ки яке аз шартҳо пайдо шуд, амалҳои мувофиқ иҷро карда мешаванд ва сохтор хориҷ мешавад. Ҳолатро интихоб кунед. Яъне, дар ҳар сурат, танҳо яке аз шохаҳои номбаршуда иҷро карда мешавад. Парвандаи.
Маълумоти бештар дар бораи амалиёти изҳороти VBA Ҳолатро интихоб кунед дар шабакаи Microsoft Developer пайдо кардан мумкин аст.