Mawu a Condition mu VBA

Mawu ofunikira kwambiri omwe amagwiritsidwa ntchito mu Excel VBA ndi mawu Ngati ... Ndiye и Sankhani Nkhani. Mawu onsewa amayesa chinthu chimodzi kapena zingapo ndipo, kutengera zotsatira zake, amachita zinthu zosiyanasiyana. Tidzakambirana za ogwiritsira ntchito awiriwa mwatsatanetsatane.

“Ngati…Ndiye” Mawu mu Visual Basic

Woyendetsa Ngati ... Ndiye imayang'ana momwe zinthu ziliri ndipo, ngati zili zoona (ZOONA), ndiye kuti zochita zomwe zafotokozedwazo zimachitika. Itha kufotokozeranso mndandanda wazinthu zomwe ziyenera kuchitidwa ngati mkhalidwewo uli WABODZA.

Syntax ya opareta Ngati ... Ndiye ngati chonchi:

If Условие1 Then

   Действия в случае, если выполняется Условие1

ElseIf Условие2 Then

   Действия в случае, если выполняется Условие2

Else

   Действия в случае, если не выполнено ни одно из Условий

End If

M'mawu awa, maelementi kwina и china wogwiritsa ntchito zinthu akhoza kusiyidwa ngati sakufunika.

Pansipa pali chitsanzo chomwe, pogwiritsa ntchito woyendetsa Ngati ... Ndiye Mtundu wodzaza wa selo yogwira ntchito umasintha kutengera mtengo wake:

Ngati ActiveCell.Value < 5 Ndiye ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Then ActiveCell.Interior.Color = 49407 Яшенка 255 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell. цвет Else ActiveCell.Interior.Color = XNUMX 'Ячейка окрашивается в красный цвет End If

Zindikirani kuti izi zikangochitika, kukwaniritsidwa kwa mawu ovomerezeka kumathetsedwa. Choncho, ngati mtengo wa variable ActiveCell zosakwana 5, ndiye chikhalidwe choyamba chimakhala chowona ndipo khungu limakhala lobiriwira. Pambuyo pake, kukwaniritsidwa kwa chidziwitsocho Ngati ... Ndiye imasokonezedwa ndipo zina sizifufuzidwa.

Phunzirani zambiri za kugwiritsa ntchito opareshoni mu VBA Ngati ... Ndiye imapezeka pa Microsoft Developer Network.

"Sankhani Mlandu" mu Visual Basic

Woyendetsa Sankhani Nkhani zofanana ndi wogwiritsa ntchito Ngati ... Ndiye mwakuti imayang'ananso chowonadi cha chikhalidwecho ndipo, malingana ndi zotsatira zake, amasankha chimodzi mwazosankha.

Syntax ya opareta Sankhani Nkhani ngati chonchi:

Select Case Выражение

Case Значение1

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

Case Значение2

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

...

Case Else

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

End Select

mchitidwe Mlandu Wina sizofunikira, koma zimalimbikitsidwa kuti zigwire zinthu zosayembekezereka.

Mu chitsanzo chotsatira, kugwiritsa ntchito kumanga Sankhani Nkhani amasintha mtundu wodzaza wa cell yomwe ilipo kutengera mtengo wake:

Sankhani Case ActiveCell.Value Case Ndi <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 'Ячейка окрашивается в зелёный цвет Case 10, 65535, 11, 20 ActiveCell.Interior.Color = 10498160 'Ячейка окрашивается в зелёный цвет Case 255, XNUMX, XNUMX, XNUMX ActiveCell.Interior.Color = XNUMX 'Ячейка окрашивается в зелёный цвет Mlandu ый цвет Case XNUMX ActiveCell.Interior. Mtundu = XNUMX 'Ячейка окрашивается в жёлтый цвет Mlandu XNUMX Mpaka XNUMX ActiveCell.Interior.Color = XNUMX 'Ячейка окрашивается в лиловый ElseinteriorXNUMXCall. окрашивается в красный цвет End Select

Chitsanzo pamwambapa chikuwonetsa momwe mungakhazikitsire mtengo wa chinthu m'njira zosiyanasiyana. Case mu zomangamanga Sankhani Nkhani. Izi ndi njira:

Mlandu Ndi <= 5Choncho, kugwiritsa ntchito keyword Mlandu Ndi mutha kuwona ngati mtengowo ukukwaniritsa Mawu chikhalidwe cha mawonekedwe <= 5.
Case 6, 7, 8, 9Mwanjira iyi mutha kuwona ngati mtengo ukufanana Mawu ndi chimodzi mwazinthu zomwe zatchulidwa. Makhalidwe omwe atchulidwa amasiyanitsidwa ndi koma.
Case 10Izi zimayang'ana ngati mtengo ukufanana Mawu ndi mtengo wopatsidwa.
Case 11 Ndichoncho 20Chifukwa chake, mutha kulemba mawu kuti muwone ngati mtengowo ukukwaniritsa Mawu chikhalidwe cha mawonekedwe kuchokera 11 mpaka 20 (chofanana ndi kusalingana "11<=mtengo<=20").
Mlandu WinaMonga chonchi, kugwiritsa ntchito mawu osakira china, zochita zimasonyezedwa pamlanduwo ngati mtengo wake Mawu sichikufanana ndi zosankha zilizonse zomwe zatchulidwa Case.

Mwamsanga pamene chimodzi mwa zikhalidwezo chikapezeka, zochita zofananira zimachitidwa ndipo mawonekedwewo amachoka. Sankhani Nkhani. Ndiko kuti, mulimonse momwe zingakhalire, nthambi imodzi yokha yotchulidwa idzaphedwa. Case.

Zambiri zokhudzana ndi ntchito ya mawu a VBA Sankhani Nkhani imapezeka pa Microsoft Developer Network.

Siyani Mumakonda