VBA If - Then - Else avaldus Excelis (4 näidet)

Hugh West

16-10-2023 Makros &; Excel VBA
  • Jaga Seda
Hugh West

Tingimuslauseid kasutatakse programmeerimiskeeltes teatud tegevuste sooritamiseks sõltuvalt määratud tingimusest. Selles artiklis näitame teile, mis on If - Then - Else tingimuslik avaldus VBA Excel on ja kuidas seda kasutada.

Lae alla töövihik

Tasuta Exceli harjutusvihiku saate alla laadida siit.

If-Then-Else in VBA.xlsm

If - Then - Else avalduse tutvustus VBAs

VBA If - Then - Else tingimusavaldust kasutatakse peamiselt tingimuste täitmise voo üle otsustamiseks. Kui tingimus on tõene, siis viiakse läbi teatud hulk tegevusi, ja kui tingimus on vale, siis viiakse läbi teine hulk tegevusi.

  • Süntaks 
 If tingimus Then [avaldused] [Else else_avaldused]

Või, 

 If tingimus Then [avaldused] [Else [else_avaldused]] End If

Siin,

Argument Kohustuslik/ vabatahtlik Kirjeldus
tingimus Nõutav Numbriline väljendus või stringiväljend, mis hindab, kas väljendus on Tõsi või Vale Kui tingimus on null, siis loetakse, et Vale .
avaldused Valikuline Ühe reaga vorm, millel ei ole Muidu klausel. Üks või mitu avaldist peavad olema eraldatud koolonitega. Kui tingimus on Tõsi , siis täidetakse see avaldis.
else_avaldused Valikuline Üks või mitu avaldust viiakse läbi, kui eelmine tingimus on Tõsi .

4 näidet VBA If - Then - Else avalduse kasutamise kohta Excelis

Selles jaotises saate teada, kuidas kasutada If-Then-Else aadressil VBA kood koos 4 näitega.

1. Leia suurim arv kahe arvu vahel If - Then - Else avaldusega

Kui teil on kaks arvu ja te soovite teada saada, kumb neist on suurem (või väiksem), siis saate kasutada funktsiooni If-Then-Else avaldus VBA .

Sammud:

  • Press Alt + F11 klaviatuuril või mine vahekaardile Arendaja -> Visual Basic avada Visual Basic toimetaja .

  • Avakuva koodiaknas klõpsake menüüribal nuppu Insert -> Moodul .

  • Kopeeri järgmine kood ja kleebi see koodiaknasse. 
 Private Sub BiggestNumber() Dim Num1 As Integer Dim Num2 As Integer Num1 = 12345 Num2 = 12335 If Num1> Num2 Then MsgBox "1st Number is Greater than the 2nd Number" ElseIf Num2> Num1 Then MsgBox "2nd Number is Greater than the 1st Number" Else MsgBox "1st Number and the 2nd Number are Equal" End If End Sub

Teie kood on nüüd valmis käivitamiseks.

Siin võrdleme kahte arvu 12345 ja 12335 , et välja selgitada, milline neist on suurem. See protsess sobib tavaliselt suurepäraselt suurte arvude leidmiseks suures andmestikus.

  • Press F5 klaviatuuril või valige menüüribalt Run -> Run Sub/UserFormi käivitamine Võite ka lihtsalt klõpsata väike Play ikoon allmenüüribal makro käivitamiseks.

Saate tulemuse Exceli MsgBox

Meie puhul on number 12345 - salvestatud muutujasse Num1 - on suurem kui arv 12335 , Num2 Nii et MsgBox näitab meile, et 1. number on suurem kui 2. number .

Loe edasi: Exceli valem juhusliku numbri genereerimiseks (5 näidet)

2. Õpilase tulemuse kontrollimine If - Then - Else avalduse abil VBAs

Saate kontrollida, kas õpilane sooritab või ei sooritanud eksami selle avaldusega, mis asub VBA kood.

Sammud:

  • Samamoodi nagu varem, avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
  • Kopeerige koodiaknas järgmine kood ja kleepige see sisse. 
 Sub CheckResult() If Range("D5").Value> 33 Then MsgBox "John's Result is Pass" Else MsgBox "John's Result is Fail" End If End Sub

Teie kood on nüüd valmis käivitamiseks.

See kood kontrollib, kas Cell D5 omab väärtust, mis on suurem kui 33 Kui ta seda teeb, siis näitab ta ühte väljundit, kui mitte, siis midagi muud.

  • Käivita makro ja saate tulemuse vastavalt oma koodile.

Vaadake ülaltoodud andmestikku koos tulemusega, Cell D5 hoiab 95 mis on kindlasti rohkem kui 33 , seega näitab see Tulemus on Pass . Aga kui me käivitame koodi Cell D7 (22), siis kuvatakse teisiti.

Loe edasi: Kuidas kasutada VBA juhtumiavaldust (13 näidet)

Sarnased lugemised

  • Kuidas kasutada logifunktsiooni Excel VBA-s (5 sobivat näidet)
  • VBA LTrim funktsiooni kasutamine Excelis (4 näidet)
  • Kuidas kasutada VBA FileDateTime funktsiooni Excelis (3 kasutamist)
  • VBA mod-operaatori kasutamine (9 näidet)
  • VBA EXP-funktsioon Excelis (5 näidet)

3. Kommentaaride ajakohastamine õpilase hinde puhul, kasutades VBAs mitut If - Then - Else avaldust

Olete õppinud, kuidas ekstraheerida, kas õpilane läbiviija või mitte üheainsa If-Then-Else avaldus, kuid seekord saate teada Mitmekordne If-Then-Else avaldused järgmise näite abil.

Me käivitame VBA kood, et täita need Kommentaar kastid, mis põhinevad mitmetel tingimustel.

Sammud:

  • Samamoodi nagu varem, avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
  • Kopeerige koodiaknas järgmine kood ja kleepige see sisse. 
 Sub UpdateComment() For Each hinne In Range("D5:D10") If hinne = "A" Then hinne.Offset(0, 1).Value = "Hea töö" ElseIf hinne = "B" Then hinne.Offset(0, 1).Value = "Jätka" ElseIf hinne = "C" Then hinne.Offset(0, 1).Value = "Vajab parandamist" Else hinne.Offset(0, 1).Value = "Vanemate-õpetaja kohtumine" End If Next hinne EndSub

Teie kood on nüüd valmis käivitamiseks.

See kood trükib kommentaarid vastavalt õpilaste saavutatud hindele.

  • Käivita seda koodi ja vaata järgmist pilti, kus kommentaaride lahtrid on täidetud vastavate tulemustega.

4. If-Then-Else avaldus Exceli koodil põhinevate kardinaalsuuniste ajakohastamiseks

Võite kasutada ka If-Then-Else et leida kardinaalsuunad etteantud tunnuskoodi alusel. Vaata järgmist pilti, kus leiame suunad etteantud initsiaalide alusel.

Sammud:

  • Avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
  • Kopeerige koodiaknas järgmine kood ja kleepige see sisse. 
 Sub UpdateDir() For Each iDirection In Range("B5:B8") If iDirection = "N" Then iDirection.Offset(0, 1).Value = "North" ElseIf iDirection = "S" Then iDirection.Offset(0, 1).Value = "South" ElseIf iDirection = "E" Then iDirection.Offset(0, 1).Value = "East" Else iDirection.Offset(0, 1).Value = "West" End If Next iDirection EndSub

Teie kood on nüüd valmis käivitamiseks.

  • Käivita seda koodi ja saate suundade nimed vastavatesse lahtritesse.

Või kui soovite leida ainult ühe suuna koodi alusel, siis võite kasutada allolevat koodi. 

 Sub UpdateDirections() Dim iDirection As String Dim iDirectionName As String iDirection = Range("B5").Value If iDirection = "N" Then iDirectionName = "North" ElseIf iDirection = "S" Then iDirectionName = "South" ElseIf iDirection = "E" Then iDirectionName = "East" Else iDirectionName = "West" End If Range("C5").Value = iDirectionName End Sub

See kood võtab väärtuse Cell B5 arvesse ja tagastab tulemuse vastavalt sellele Cell C5 .

Näiteks kui te kirjutate " N " in Cell B5 , annab see teile " Põhja ; kui te kirjutate " S " in Cell B5 näitab see teile " Lõuna " in Cell C5 .

Kokkuvõte

See artikkel näitas, kuidas kasutada Kui - Siis - Muidu avaldus Excelis koos VBA . ma loodan, et see artikkel oli teile väga kasulik. Küsige julgelt, kui teil on küsimusi selle teema kohta.

Eelmine postitus IF koos INDEX-MATCHiga Excelis (3 sobivat lähenemisviisi)
Järgmine postitus Kuidas nummerdada ridu automaatselt Excelis (8 meetodit)

Hugh West on suurte kogemustega Exceli koolitaja ja analüütik, kellel on selles valdkonnas üle 10-aastane kogemus. Tal on raamatupidamise ja rahanduse bakalaureusekraad ning ärijuhtimise magistrikraad. Hugh’l on kirg õpetamise vastu ning ta on välja töötanud ainulaadse õpetamisviisi, mida on lihtne järgida ja mõista. Tema Exceli ekspertteadmised on aidanud tuhandetel õpilastel ja spetsialistidel üle maailma oma oskusi parandada ja karjääris silma paista. Oma ajaveebi kaudu jagab Hugh oma teadmisi maailmaga, pakkudes tasuta Exceli õpetusi ja veebikoolitusi, mis aitavad üksikisikutel ja ettevõtetel oma potentsiaali täielikult ära kasutada.