VBA-дағы шарт мәлімдемелері

Excel VBA бағдарламасында қолданылатын ең маңызды шарт мәлімдемелері мәлімдемелер болып табылады Егер… Содан кейін и Case таңдаңыз. Бұл өрнектердің екеуі де бір немесе бірнеше шарттарды тексереді және нәтижеге байланысты әртүрлі әрекеттерді орындайды. Осы екі шартты оператор туралы келесіде толығырақ айтатын боламыз.

Visual Basic бағдарламасындағы «Егер... Сонда» мәлімдемесі

Оператор Егер… Содан кейін шартты тексереді және егер ол ақиқат болса (TRUE), онда көрсетілген әрекеттер жиынтығы орындалады. Ол сондай-ақ шарт ЖАЛҒАН болса, орындалатын әрекеттер жинағын анықтай алады.

Оператор синтаксисі Егер… Содан кейін Бұл сияқты:

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. окрашивается в красный цвет End If

Шарт ақиқат болғаннан кейін шартты оператордың орындалуы тоқтатылатынын ескеріңіз. Сондықтан, егер айнымалының мәні ActiveCell 5-тен аз болса, бірінші шарт ақиқат болып, ұяшық жасыл түске боялады. Осыдан кейін өтінішті орындау Егер… Содан кейін үзіледі және басқа шарттар тексерілмейді.

VBA жүйесінде шартты операторды пайдалану туралы көбірек біліңіз Егер… Содан кейін Microsoft Developer желісінде табуға болады.

Visual Basic-те «Receive Case» мәлімдемесі

Оператор Case таңдаңыз операторға ұқсас Егер… Содан кейін онда ол шарттың ақиқаттығын да тексереді және нәтижеге байланысты нұсқалардың бірін таңдайды.

Оператор синтаксисі Case таңдаңыз Бұл сияқты:

Select Case Выражение

Case Значение1

   Действия в случае, если результат Выражения соответствует Значению1

Case Значение2

   Действия в случае, если результат Выражения соответствует Значению2

...

Case Else

   Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения

End Select

элемент Басқа жағдай қажет емес, бірақ күтпеген мәндерді өңдеу үшін ұсынылады.

Келесі мысалда құрылымды пайдалану Case таңдаңыз ағымдағы ұяшықтың бояу түсін ондағы мәнге байланысты өзгертеді:

Case ActiveCell.Value Case таңдаңыз <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 'Ячейка окрашивается в зелёный цвет Түс = 10 'Ячейка окрашивается в жёлтый цвет Корпус 65535-ден 11-ға дейін ActiveCell.Interior.Color = 20 'Ячейка окрашивается в лиловый цвет Case Else ActiveCell.Interior.Color = 10498160 окрашивается 'Ячейка окрашивается в лиловый цвет.

Жоғарыдағы мысал элемент үшін мәнді әртүрлі жолдармен орнату жолын көрсетеді. жағдай құрылыста Case таңдаңыз. Бұл жолдар:

Іс <= 5Осылайша, кілт сөзді пайдалану Іс мәннің қанағаттандыратынын тексеруге болады Өрнектер пішіннің жағдайы <= 5.
жағдай 6, 7, 8, 9Осылайша мәннің сәйкес келетінін тексеруге болады Өрнектер тізімделген мәндердің бірімен. Көрсетілген мәндер үтірмен бөлінген.
жағдай 10Бұл мәннің сәйкестігін тексереді Өрнектер берілген мәнмен.
жағдай 11 Міне бітті 20Осылайша, мәннің сәйкестігін тексеру үшін өрнек жазуға болады Өрнектер пішіннің жағдайы 11 бастап 20 үшін («11<=мән<=20» теңсіздігіне тең).
Басқа жағдайОсы сияқты, кілт сөзді пайдалану тағы, мән болса, іс үшін әрекеттер көрсетіледі Өрнектер тізімде көрсетілген опциялардың ешқайсысына сәйкес келмейді жағдай.

Шарттардың бірі табылған бойда сәйкес әрекеттер орындалып, құрылым шығады. Case таңдаңыз. Яғни, кез келген жағдайда аталған филиалдардың біреуі ғана орындалады. жағдай.

VBA мәлімдемесінің жұмысы туралы қосымша ақпарат Case таңдаңыз Microsoft Developer желісінде табуға болады.

пікір қалдыру