Awọn alaye ipo pataki julọ ti a lo ninu Excel VBA jẹ awọn alaye naa Ti… Nigbana и Yan Ọran. Mejeji ti awọn ikosile wọnyi ṣe idanwo ọkan tabi diẹ sii awọn ipo ati, da lori abajade, ṣe awọn iṣe oriṣiriṣi. A yoo sọrọ nipa awọn oniṣẹ ipo meji wọnyi ni awọn alaye diẹ sii ni atẹle.
“Ti o ba… Lẹhinna” Gbólóhùn ni Ipilẹ wiwo
onišẹ Ti… Nigbana ṣayẹwo ipo naa ati, ti o ba jẹ otitọ (TÒÓTỌ), lẹhinna ṣeto awọn iṣe ti a pato ti ṣe. O tun le ṣalaye eto awọn iṣe lati ṣee ṣe ti ipo naa ba jẹ ERO.
Sintasi onišẹ Ti… Nigbana bi eleyi:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
Ninu ikosile yii, awọn eroja MiiranIf и miran oniṣẹ awọn ipo le yọkuro ti wọn ko ba nilo.
Ni isalẹ jẹ apẹẹrẹ ninu eyiti, lilo oniṣẹ ẹrọ Ti… Nigbana Awọ kikun ti sẹẹli ti nṣiṣe lọwọ yipada da lori iye ti o wa ninu rẹ:
Ti o ba ti ActiveCell.Value <5 Nigbana ni ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Nigbana ni ActiveCell.Interior Јтркай 49407е ся в оранжевый цвет Else ActiveCell.Interior.Color = 255 'Ячейка окрашивается в красный цвет Ipari If
Ṣe akiyesi pe ni kete ti ipo naa ba di otitọ, ipaniyan ti alaye asọye ti parẹ. Nitorina, ti o ba ti iye ti oniyipada Cell ti nṣiṣe lọwọ kere ju 5, lẹhinna ipo akọkọ di otitọ ati pe sẹẹli jẹ awọ alawọ ewe. Lẹhin iyẹn, ipaniyan ti alaye naa Ti… Nigbana Idilọwọ ati awọn ipo miiran ko ṣe ayẹwo.
Kọ ẹkọ diẹ sii nipa lilo onišẹ ipo ni VBA Ti… Nigbana le wa lori Microsoft Developer Network.
“Yan Ọran” Gbólóhùn ni Ipilẹ wiwo
onišẹ Yan Ọran iru si oniṣẹ Ti… Nigbana ni pe o tun ṣayẹwo otitọ ti ipo naa ati, da lori abajade, yan ọkan ninu awọn aṣayan.
Sintasi onišẹ Yan Ọran bi eleyi:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
ano Ọran Miiran ko nilo, ṣugbọn a ṣe iṣeduro fun mimu awọn iye airotẹlẹ mu.
Ni awọn wọnyi apẹẹrẹ, lilo awọn òrùka Yan Ọran yipada awọ kikun ti sẹẹli lọwọlọwọ da lori iye ti o wa ninu rẹ:
Yan Case ActiveCell.Value Case Is <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Interior49407кеll. тся в оранжевый цвет Case 10 ActiveCell.Inu. Awọ = 65535 'Ячейка окрашивается в жёлтый цвет Case 11 Si 20 ActiveCell.Interior.Color = 10498160 'Ячейка окрашивается окрашивается окрашивается . Awọ = 255 'Ячейка окрашивается в красный цвет Ipari Yan
Apẹẹrẹ ti o wa loke fihan bi o ṣe le ṣeto iye kan fun eroja ni awọn ọna oriṣiriṣi. irú ni ikole Yan Ọran. Awọn wọnyi ni awọn ọna:
| Ọran Ni <= 5 | Bayi, lilo awọn Koko Ọran Ni o le ṣayẹwo ti iye naa ba ni itẹlọrun Awọn ifihan ipo ti fọọmu <= 5. |
| irú 6, 7, 8, 9 | Ni ọna yii o le ṣayẹwo boya iye naa baamu Awọn ifihan pẹlu ọkan ninu awọn iye akojọ. Awọn iye ti a ṣe akojọ ti yapa nipasẹ aami idẹsẹ. |
| irú 10 | Eleyi sọwedowo ti o ba ti iye ibaamu Awọn ifihan pẹlu a fi fun iye. |
| irú 11 O n niyen 20 | Nitorinaa, o le kọ ikosile kan lati ṣayẹwo boya iye naa ba ni itẹlọrun Awọn ifihan ipo ti fọọmu lati 11 to 20 (deede si aidogba "11 <= iye<=20"). |
| Ọran Miiran | Bi eleyi, lilo Koko miran, awọn iṣẹ ti wa ni itọkasi fun awọn nla ti o ba ti iye Awọn ifihan ko baramu eyikeyi ninu awọn aṣayan akojọ irú. |
Ni kete ti ọkan ninu awọn ipo ti rii, awọn iṣe ti o baamu ni a ṣe ati pe eto naa jade. Yan Ọran. Iyẹn ni, ni eyikeyi ọran, ọkan ninu awọn ẹka ti a ṣe akojọ ni yoo pa. irú.
Alaye siwaju sii nipa awọn isẹ ti VBA gbólóhùn Yan Ọran le wa lori Microsoft Developer Network.