Kuidas kasutada VBA juhtumi väljavõtet? (Näited)

Lang L: none (table-of-contents)

Exceli VBA juhtumi väljavõte

Valige kohtuasjas on asendaja kirjalikult ette mitu kui avaldused VBA, kui meil on palju tingimusi koodi me võib-olla kasutada mitut Kui avaldused ja mis võib olla tüütu, kui see muutub keerulisemaks, kuna mitme Kui avaldused on esitatud, on valige juhtumikiri, määratleme kriteeriumid erinevate juhtumite ja tulemustena vastavalt neile.

SELECT CASE aitab otsuste tegemisel. Selles kasutatakse erinevate võimalike juhtumite hindamiseks ainult ühte väljendit. Väljatöötatud koodi käivitamiseks analüüsitakse hõlpsalt mitut tingimust. Seda juhtumi avaldust kasutatakse väljendite hindamiseks ELSE IF-i asenduslausena. See liigitatakse Excelisse sisseehitatud loogiliseks funktsiooniks. Selle funktsiooni kasutamiseks sisestatakse kood visuaalse põhiredaktori kaudu, mis on esitatud vahekaardil Arendaja.

Selgitus

Valimisjuhtumis kasutatakse erinevaid lauserühmi. Selle tõhusaks kasutamiseks tuleks järgida järgmist süntaksit. See sarnaneb muudes programmeerimiskeeltes nagu Java, C # ja PHP esitatud kommutaatoriga.

Valige (juhtum) testimiseks kasutatav väljend (juhtum) avaldiste loetelu (juhtum 1, juhtum 2, juhtum 3 ja nii edasi …) juhtum muu (muud väited) lõpp Valige

Valitud juhtumiga seotud mõistete selgitus on esitatud järgmiselt.

Avaldis testimiseks: see on vajalik erinevate andmetüüpide hindamiseks, näiteks täisarv, string, tõeväärtus, objekt ja märk.

Avaldiste loend: väljendid luuakse juhtumiga, et leida sisestatud sisendi täpne vaste. Kui avaldisi on rohkem kui kaks, eraldatakse need komaoperaatori abil. 'Is' on märksõna, mida kasutatakse kahe avaldise võrdlemiseks Exceli loogiliste operaatorite abil, näiteks =,, =.

  • Lõppvalik: see sulgeb konstruktori valitud juhtumi määratluse
  • Avaldused: avaldused töötatakse juhtumi abil välja selleks, et käivitada väljendeid, mida hinnatakse, et analüüsida võimaliku sobiva avalduse olemasolu
  • Muud väited : see on lause lause testimine, kui testav avaldis ei ühti ühegi juhtumi avaldusega.

Kuidas kasutada VBA juhtumi väljavõtet?

VBA poolt valitud juhtumi funktsioon ei tööta tavalistel töölehtedel. Peame kasutama vahekaarti Arendaja valikut Visual Basic. Kasutaja määratletud funktsioonid ja kodeerimine luuakse arendaja režiimis, et käivitada mitmesuguseid väikseid rakendusi ärivaldkonnas.

Seda kasutatakse olukordades, kui ekselites olevad väited on sisestatud. See on parim võimalus käsitleda mitmesuguseid juhtumikirjeldusi. Selle võimaluse tõhusaks kasutamiseks tuleks täita järgmised ülesanded.

  • Kõigepealt peab see looma makro, asetades Exceli lehele käsunupu juhtimise.
  • Pärast seda paremklõpsake käsunuppu ja valige vaatekoodi valik.
  • Asetage kood käsunupu funktsiooni ja lõpuosa vahele.
  • Süntaksivigade tuvastamiseks siluge koodi.
  • Programmi edukaks täitmiseks kompileerimisvigade leidmiseks kompileerige kood
  • Muutke sisendväärtusi, et jälgida erinevaid tulemusi vastavusekriteeriumide alusel

Näide # 1 - lihtne juhtumi väljavõte

Selle näite eesmärk on mõista lihtsat valitud juhtumit sobitatud väärtuse leidmiseks.

Kood:

Privaatne alamvaliknäide () Tühjenda A täisarvuna A = 20 Valige juhtum Juhtum 10 MsgBox "Esimene juhtum on sobitatud!" Juhtum 20 MsgBox "Teine juhtum sobib!" Juhtum 30 MsgBox "Kolmas juhtum sobib valitud juhtumis!" Juhtum 40 MsgBox "Neljas juhtum sobib valitud juhtumiga!" Juhtum muu MsgBox "Ükski juhtum ei sobi!" Lõpp Valige Lõpeta alam

Tulemus:

Testi avaldise võrdlemiseks erinevate juhtumitega kasutatakse nelja juhtumi avaldust ja juhtumi muu lauset. Antud näites sobitatakse teine ​​juhtum muutuja A kokkulangevusega 20.

Näide nr 2 - märksõna „Saaja“ klasside testimiseks

Selles näites selgitatakse märksõna „Saaja” kasutamist valitud juhtumiga.

Kood:

Privaatsete alamvalikute näide () Hämarda õpilasmärgid täisarvuna õpilasmärgid = InputBox ("Kas sisestada märke vahemikus 1 kuni 100?") Valige juhtum õpilasmärgid Juhtum 1 kuni 36 MsgBox "Ebaõnnestus!" Juhtum 37 kuni 55 MsgBox "C hinne" Juhtum 56 kuni 80 MsgBox "B hinne" Juhtum 81 kuni 100 MsgBox "A hinne" Juhtum muu MsgBox "vahemikust väljas" Lõpp Valige lõpp Alam

Tulemus:

Märksõna „Saaja” on abiks vahemikus olevate testväljendite kogumi määratlemisel. Sellest on abi õpilase saadud hinde leidmisel erinevate juhtumite võrdlemisel. Pärast programmi käivitamist peame tulemuse saamiseks sisestama väärtuse.

Väljund kuvatakse teatekastiga, nagu on näidatud ülaltoodud ekraanipildil.

Näide # 3 - märksõna „Is” kasutamine valitud juhtumitega

See näide demonstreerib märksõna „Is” kasutamist valitud väiketähtedega.

Kood:

Alamkontrollinumber () Dim NumInput kui täisarv NumInput = InputBox ("Palun sisestage number") Valige juhtum NumInput Case Is = 200 MsgBox "Sisestasite arvu, mis on suurem või võrdne 200" Lõpp Valige Lõpeta alam

Märksõna „Kas“ aitab leida ainult juhtumilausetega sobivaid väärtusi. See võrdleb väljundi saamiseks testväljendit antud sisendiga.

Väljund saadakse joonisel näidatud viisil, kui sisestatud väärtus on üle 200

Näide # 4 - väärtuste muutmiseks käsunupuga

Valitud juhtumit kasutatakse ka nupuga Command, luues makro.

Kood:

Alamvärv () Hämar värv stringina värv = Vahemik ("A1"). Väärtus Valige korpuse värvi juhtum "punane", "roheline", "kollane" vahemik ("B1"). Väärtus = 1 korpus "valge", "must "," Pruun "vahemik (" B1 "). Väärtus = 2 juhtum" sinine "," taevasinine "vahemik (" B1 "). Väärtus = 3 juhtumit muu vahemik (" B1 "). Väärtus = 4 lõpp Valige lõpp alam

Nagu programmis näidatud, võetakse sisend töölehe lahtritest. Programm käivitatakse pärast ActiveX-juhtelementides kasutatava käsunupu klõpsamist. Selles kasutatakse testväljendite kombineerimiseks komaga eraldajat.

When the value in the Cell A1 changed, it results in a change in the B1 cell also by running the excel macro through the command button. You can refer to the screenshot given below:-

Example #5 - Check a Number Odd or Even

This example to help to check a number is even or odd.

Code:

Sub CheckOddEven() CheckValue = InputBox("Enter the Number") Select Case (CheckValue Mod 2) = 0 Case True MsgBox "The number is even" Case False MsgBox "The number is odd" End Select End Sub

The coding is developed, as shown in the screenshot, and output is displayed as follows when even the number is entered.

Example #6 - Nested Select Case Statements

Nesting is a useful feature of the select case, and the way how it is done is shown.

Code:

Sub TestWeekday() Select Case Weekday(Now) Case 1, 7 Select Case Weekday(Now) Case 1 MsgBox "Today is Sunday" Case Else MsgBox "Today is Saturday" End Select Case Else MsgBox "Today is a Weekday" End Select End Sub

Here the select case is defined inside another select case to test a day, weekday, or weekend. Except for case 1 and 7 remaining all are weekdays (Note: case 1 is Sunday and case 7 is Saturday)

Things to Remember

  • The ‘Is’ keyword using in the statement of (case) and (case else) are not equal.
  • ActiveX control should be used in executing program through a command button taking input and displaying output in the excel sheet range of cells.
  • It is hard to run the programs in VBA if macros are disabled and always enable Macros to get the best results.
  • VBA on tõstutundlik ja paremate tulemuste saamiseks tuleks sisend sisestada täpselt.

Huvitavad Artiklid...