Excel VBA-da ishlatiladigan eng muhim shartlar bayonotlari Agar ... Keyin и Case-ni tanlang. Ushbu iboralarning ikkalasi ham bir yoki bir nechta shartlarni sinab ko'radi va natijaga qarab, turli harakatlarni bajaradi. Bu ikki shartli operatorlar haqida keyinroq batafsilroq gaplashamiz.
Visual Basic-da "Agar ... Keyin" bayonoti
Operator Agar ... Keyin shartni tekshiradi va agar u rost (TRUE) bo'lsa, u holda ko'rsatilgan harakatlar to'plami bajariladi. Shuningdek, agar shart FALSE bo'lsa, bajarilishi kerak bo'lgan harakatlar to'plamini belgilashi mumkin.
Operator sintaksisi Agar ... Keyin shunga o'xshash:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
Ushbu ifodada elementlar boshqa и yana boshqa shartlar operatori kerak bo'lmasa, o'tkazib yuborilishi mumkin.
Quyida operator yordamida misol keltirilgan Agar ... Keyin Faol hujayraning to'ldirish rangi undagi qiymatga qarab o'zgaradi:
Agar ActiveCell.Value < 5 bo'lsa, ActiveCell.Interior.Color = 65280 'Yacheyka okrashivaetsya v zelyonyy tsvet ElseIf ActiveCell.Value < 10 bo'lsa, ActiveCell.Interior.Color = 49407 'Yacheyka okrashivaetsya v zelyonyy tsvet C 255 'Yacheyka okrashivaetsya v krasnyy tsvet End If
E'tibor bering, shart rost bo'lishi bilan shartli bayonotning bajarilishi to'xtatiladi. Shuning uchun, agar o'zgaruvchining qiymati ActiveCell 5 dan kam bo'lsa, birinchi shart to'g'ri bo'ladi va hujayra yashil rangga ega bo'ladi. Shundan so'ng, bayonotning bajarilishi Agar ... Keyin uzilib qoladi va boshqa shartlar tekshirilmaydi.
VBA-da shartli operatordan foydalanish haqida ko'proq bilib oling Agar ... Keyin Microsoft Developer Network-da topish mumkin.
Visual Basic-da "Select Case" bayonoti
Operator Case-ni tanlang operatorga o'xshash Agar ... Keyin bunda u ham shartning haqiqatini tekshiradi va natijaga qarab variantlardan birini tanlaydi.
Operator sintaksisi Case-ni tanlang shunga o'xshash:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
element Boshqa holat shart emas, lekin kutilmagan qiymatlarni qayta ishlash uchun tavsiya etiladi.
Quyidagi misolda konstruksiyadan foydalanish Case-ni tanlang joriy katakning to'ldirish rangini undagi qiymatga qarab o'zgartiradi:
Case ActiveCell.Value Case tanlang <= 5 ActiveCell.Interior.Color = 65280 'Yacheyka okrashivaetsya v zelyonyy tsvet Case 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 'Yacheyka okrashivaetsya Casell v.Interior. Rang = 10 'Yacheyka okrashivaetsya v jyoltyy tsvet Case 65535 dan 11 gacha ActiveCell.Interior.Color = 20 'Yacheyka okrashivaetsya v lilovyy tsvet Case Else ActiveCell.Interior.Color = 10498160 okrashivaetsya 'Yacheyka okrashivaetsya v 'Yacheyka okrashivaetsya
Yuqoridagi misolda element uchun qiymatni turli yo'llar bilan o'rnatishingiz mumkin. Hodisalar qurilishda Case-ni tanlang. Bu yo'llar:
| Case Is <= 5 | Shunday qilib, kalit so'zdan foydalanish Case Is qiymat mos kelishini tekshirishingiz mumkin Ifodalar shaklning holati <= 5. |
| Hodisalar 6, 7, 8, 9 | Shu tarzda siz qiymat mos kelishini tekshirishingiz mumkin Ifodalar sanab o'tilgan qiymatlardan biri bilan. Ro'yxatdagi qiymatlar vergul bilan ajratilgan. |
| Hodisalar 10 | Bu qiymat mos kelishini tekshiradi Ifodalar berilgan qiymat bilan. |
| Hodisalar 11 Bo'ldi shu 20 | Shunday qilib, qiymat mos keladimi yoki yo'qligini tekshirish uchun ifoda yozishingiz mumkin Ifodalar shaklning holati 11 dan 20 uchun (“11<=qiymat<=20” tengsizligiga ekvivalent). |
| Boshqa holat | Bu kabi, kalit so'z yordamida yana boshqa, qiymat bo'lsa, ish uchun harakatlar ko'rsatiladi Ifodalar sanab o'tilgan variantlardan birortasiga mos kelmaydi Hodisalar. |
Shartlardan biri topilgandan so'ng, tegishli harakatlar bajariladi va struktura chiqib ketadi. Case-ni tanlang. Ya'ni, har qanday holatda, sanab o'tilgan filiallardan faqat bittasi bajariladi. Hodisalar.
VBA bayonotining ishlashi haqida ko'proq ma'lumot Case-ni tanlang Microsoft Developer Network-da topish mumkin.