Excel VBA-д хэрэглэгддэг хамгийн чухал нөхцлийн мэдэгдлүүд бол мэдэгдлүүд юм Хэрэв ... Дараа нь и Кейс сонгоно уу. Эдгээр хоёр илэрхийлэл нь нэг буюу хэд хэдэн нөхцөлийг шалгадаг бөгөөд үр дүнгээс хамааран өөр өөр үйлдэл хийдэг. Дараа нь бид эдгээр хоёр нөхцөлт операторын талаар илүү дэлгэрэнгүй ярих болно.
Visual Basic дээрх “Хэрэв… Тэгвэл” мэдэгдэл
Оператор Хэрэв ... Дараа нь нөхцөлийг шалгаж, хэрэв үнэн бол (ҮНЭН) бол заасан үйлдлийн багцыг гүйцэтгэнэ. Мөн нөхцөл нь ХУДАЛ бол гүйцэтгэх үйлдлүүдийн багцыг тодорхойлж болно.
Операторын синтакс Хэрэв ... Дараа нь үүн шиг:
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 'Ячейка орвет.Интэриор.Өнгө = 255 'Ячейка орвет.Ячейка в зелёный цвет ElseIf. окрашивается в красный цвет End If
Нөхцөл үнэн болмогц болзолт мэдэгдлийн гүйцэтгэлийг зогсооно гэдгийг анхаарна уу. Тиймээс хэрэв хувьсагчийн утга ActiveCell 5-аас бага бол эхний нөхцөл үнэн болж, нүд ногоон өнгөтэй болно. Үүний дараа мэдэгдлийн гүйцэтгэл Хэрэв ... Дараа нь тасалдсан бөгөөд бусад нөхцөлийг шалгадаггүй.
VBA дахь нөхцөлт операторыг ашиглах талаар нэмэлт мэдээлэл аваарай Хэрэв ... Дараа нь Microsoft Developer Network дээрээс олж болно.
Visual Basic дээрх "Тохиолдол сонгох" мэдэгдэл
Оператор Кейс сонгоно уу оператортой төстэй Хэрэв ... Дараа нь Энэ нь мөн нөхцөл байдлын үнэн эсэхийг шалгаж, үр дүнгээс хамааран аль нэг хувилбарыг сонгодог.
Операторын синтакс Кейс сонгоно уу үүн шиг:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
Бүрэлдэхүүн Өөр тохиолдол шаардлагагүй, гэхдээ гэнэтийн утгыг зохицуулахыг зөвлөж байна.
Дараах жишээнд бүтцийг ашиглан Кейс сонгоно уу Одоогийн нүдний дүүргэлтийн өнгийг доторх утгаас хамааран өөрчилнө:
Case Select ActiveCell.Value Case Is <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 'Ячейка окрашивается в зелёный цвет Case 10.Interior. Өнгө = 65535 'Ячейка окрашивается в жёлтый цвет Case 11 to 20 ActiveCell.Interior.Color = 10498160 'Ячейка окрашивается в лиловый цвет Case Else ActiveCell.Interior.Color = 255 окрашивается 'Ячейка окрашивается в жёлтый цвет
Дээрх жишээ нь элементийн утгыг янз бүрийн аргаар хэрхэн тохируулахыг харуулж байна. хэрэг барилгын ажилд Кейс сонгоно уу. Эдгээр нь дараах арга замууд юм.
| Кейс бол <= 5 | Тиймээс түлхүүр үгийг ашиглана Кейс бол үнэ цэнэ нь хангагдсан эсэхийг шалгаж болно Илтгэл маягтын нөхцөл <= 5. |
| хэрэг 6, 7, 8, 9 | Ингэснээр та утга таарч байгаа эсэхийг шалгаж болно Илтгэл жагсаасан утгуудын аль нэгтэй. Жагсаалтад орсон утгууд нь таслалаар тусгаарлагдсан байна. |
| хэрэг 10 | Энэ нь утга таарч байгаа эсэхийг шалгана Илтгэл өгөгдсөн утгатай. |
| хэрэг 11 Ингээд л болоо 20 | Тиймээс та утга нь хангагдсан эсэхийг шалгах илэрхийлэл бичиж болно Илтгэл маягтын нөхцөл 11 нь 20 нь ("11<=утга<=20" тэгш бус байдалтай тэнцүү). |
| Өөр тохиолдол | Үүнтэй адил түлхүүр үг ашиглан бас, үйлдлийг тухайн тохиолдолд заасан бол утга Илтгэл жагсаасан сонголтуудын аль нь ч таарахгүй байна хэрэг. |
Нөхцөлүүдийн аль нэг нь олдмагц холбогдох үйлдлүүд хийгдэж, бүтэц нь гарна. Кейс сонгоно уу. Энэ нь ямар ч тохиолдолд жагсаасан салбаруудын зөвхөн нэгийг нь гүйцэтгэх болно. хэрэг.
VBA мэдэгдлийн ажиллагааны талаарх дэлгэрэнгүй мэдээлэл Кейс сонгоно уу Microsoft Developer Network дээрээс олж болно.