VBA As – Dan – Else Statement in Excel (4 Voorbeelde)

  • Deel Dit
Hugh West

Voorwaardelike stellings word gebruik om 'n stel aksies uit te voer, afhangende van die gespesifiseerde toestand in programmeertale. In hierdie artikel sal ons jou wys wat If – Then – Else voorwaardelike stelling in VBA Excel is en hoe om dit te gebruik.

Laai werkboek af.

Jy kan die gratis oefen Excel-werkboek van hier af aflaai.

As-Dan-Anders in VBA.xlsm

Inleiding tot die If – Then – Else Statement in VBA

VBA If – Then – Else voorwaardelike stelling word hoofsaaklik gebruik om die uitvoeringsvloei van die voorwaardes. As die voorwaarde waar is, word 'n sekere stel aksies uitgevoer, en as die voorwaarde onwaar is, word 'n ander stel aksies uitgevoer.

  • Sintaksis
5036

Of,

5625

Hier,

Argument Vereis/ opsioneel Beskrywing
toestand Vereis 'n Numeriese uitdrukking of 'n string uitdrukking wat evalueer of die uitdrukking is Waar of Onwaar . As die voorwaarde Nul is, word dit as Onwaar beskou.
stellings Opsioneel 'n Enkellynvorm wat geen Anders -klousule het nie. Een of meer stellings moet deur dubbelpunte geskei word. As die voorwaarde Waar is, dan word hierdie stelling uitgevoer.
else_stellings Opsioneel Een of meer stellings isuitgevoer as geen vorige toestand Waar is nie.

4 Voorbeelde van die gebruik van VBA As – Dan – Else Statement in Excel

In hierdie afdeling sal jy leer hoe om As-Dan-Anders in VBA -kode te gebruik met 4 voorbeelde.

1. Vind die grootste getal tussen twee getalle met If – Then – Else Statement

As jy twee getalle het en jy wil uitvind watter een die groter (of kleiner) is, dan kan jy die <1 gebruik>As-Dan-Anders stelling in VBA .

Stappe:

  • Druk Alt + F11 op jou sleutelbord of gaan na die oortjie Ontwikkelaar -> Visual Basic om Visual Basic Editor oop te maak.

  • In die opspringkode-venster, vanaf die kieslysbalk , klik Voeg in -> Module .

  • Kopieer die volgende kode en plak dit in die kodevenster.
3352

Jou kode is nou gereed om te loop.

Hier vergelyk ons ​​twee getalle 12345 en 12335 om uit te vind watter een groter is. Hierdie proses is gewoonlik perfek om groot getalle in 'n groot datastel te vind.

  • Druk F5 op jou sleutelbord of kies Hardloop -> Begin Sub/UserForm . Jy kan ook net op die klein Speel-ikoon in die subkieslysbalk klik om die makro te laat loop.

Jy sal die resultaat kry. in Excel se MsgBox

In ons geval, nommer 12345 – gestoor in veranderlike Num1 – is groter as die getal 12335 , Num2 . Die MsgBox wys dus vir ons dat die 1ste getal groter is as die 2de getal .

Lees meer: ​​Excel-formule om ewekansige getal te genereer (5 voorbeelde)

2. Kontroleer studenteuitslag deur gebruik te maak van If – Then – Else Statement in VBA

Jy kan kontroleer of 'n student 'n eksamen slaag of druip met hierdie stelling in die VBA -kode.

Stappe:

  • Op dieselfde manier as voorheen, maak Visual Basic Editor oop vanaf die Ontwikkelaar -oortjie en Voeg in a Module in die kodevenster.
  • Kopieer die volgende kode in die kodevenster en plak dit.
6053

Jou kode is nou gereed om hardloop.

Hierdie kode sal kontroleer of Sel D5 'n waarde het wat groter is as 33 . As dit die geval is, sal dit een uitvoer wys, as dit nie die geval is nie, sal dit iets anders wys.

  • Laat die makro en jy sal die resultaat volgens jou kode kry.

Kyk na bogenoemde datastel met die resultaat, Sel D5 hou 95 wat beslis meer as 33 is, dus vertoon dit die Resultaat is Slaag . Maar as ons die kode vir Sel D7 (22) laat loop, dan sal dit anders vertoon word.

Lees Meer: Hoe om VBA-saakverklaring te gebruik ( 13 Voorbeelde)

Soortgelyke lesings

  • Hoe om logfunksie in Excel VBA te gebruik (5 GeskikVoorbeelde)
  • Gebruik VBA LTrim-funksie in Excel (4 voorbeelde)
  • Hoe om VBA FileDateTime-funksie in Excel te gebruik (3 gebruike)
  • Gebruik VBA Mod Operator (9 Voorbeelde)
  • VBA EXP Funksie in Excel (5 Voorbeelde)

3. Dateer opmerkings in Studentegraad op deur gebruik te maak van veelvuldige If – Then – Else-stelling in VBA

Jy het geleer hoe om te onttrek of 'n student-passer al dan nie met 'n enkele If-Then-Else stelling, maar hierdie keer sal jy leer oor Veelvuldige As-Dan-Anders -stellings met die volgende voorbeeld.

Ons sal 'n VBA uitvoer -kode om daardie Kommentaar -blokkies in te vul gebaseer op verskeie voorwaardes.

Stappe:

  • Op dieselfde manier as voorheen, maak Visual Basic Editor oop vanaf die Ontwikkelaar -oortjie en Voeg in 'n Module in die kodevenster.
  • Kopieer die volgende kode in die kodevenster en plak dit.
7889

Jou kode is nou gereed om te loop.

Hierdie kode sal kommentaar druk volgens die graad wat behaal is deur studente.

  • Hardloop hierdie kode en sien die volgende prent waar die kommentaarblokkies deur die toepaslike resultate gevul word.

4. As-Dan-Anders-stelling om kardinale aanwysings op te dateer gebaseer op kode in Excel

Jy kan ook die As-Dan-Anders gebruik om die kardinale aanwysings gebaseer op die aanwyserkode te vind verskaf. Kyk na dievolgende prent waar ons die aanwysings sal uitvind op grond van die voorletters wat gegee is.

Stappe:

  • Maak Visual Basic Editor oop vanaf die Ontwikkelaar -oortjie en Voeg in 'n Module in die kodevenster.
  • In die kode venster, kopieer die volgende kode en plak dit.
2623

Jou kode is nou gereed om te loop.

  • Hardloop hierdie kode en jy sal die rigtingname in die onderskeie selle kry.

Of, as jy net een rigting op grond van kode wil vind, dan jy kan die kode hieronder gebruik.

8809

Hierdie kode sal die waarde van Sel B5 in ag neem en die resultaat daarvolgens in Sel C5 gee.

As jy byvoorbeeld " N " in Sel B5 skryf, sal dit jou " Noord gee ; as jy “ S ” in Sel B5 skryf, sal dit vir jou “ Suid ” in Sel C5 wys.

Gevolgtrekking

Hierdie artikel het jou gewys hoe om die If – Then – Else -stelling in Excel met VBA te gebruik. Ek hoop hierdie artikel was baie voordelig vir jou. Vra gerus as jy enige vrae het oor die onderwerp.

Hugh West is 'n hoogs ervare Excel-afrigter en ontleder met meer as 10 jaar ondervinding in die bedryf. Hy het 'n Baccalaureusgraad in Rekeningkunde en Finansies en 'n Meestersgraad in Besigheidsadministrasie. Hugh het 'n passie vir onderrig en het 'n unieke onderrigbenadering ontwikkel wat maklik is om te volg en te verstaan. Sy kundige kennis van Excel het duisende studente en professionele persone wêreldwyd gehelp om hul vaardighede te verbeter en uit te blink in hul loopbane. Deur sy blog deel Hugh sy kennis met die wêreld, en bied gratis Excel-tutoriale en aanlyn opleiding aan om individue en besighede te help om hul volle potensiaal te bereik.