Kako uporabljati izbiro strukture primera v Excelu 2016 VBA

Struktura Select Case je uporabna struktura VBA za odločitve, ki vključujejo tri ali več možnosti v Excelu 2016 (čeprav deluje tudi z dvema možnostma, kar zagotavlja alternativo strukturi If-Then-Else).

Primer za izbiro primera

Naslednji primer prikazuje, kako uporabiti strukturo Select Case:

Sub ShowDiscount3()
  Dim Quantity As Long
  Dim Discount As Double
  Količina = InputBox ("Vnesite količino: ")
  Izberite Količina ohišja
    Primer 0 do 24
      Popust = 0,1
    Primer 25 do 49
      Popust = 0,15
    Primer 50 do 74
      Popust = 0,2
    Primer je >= 75
      Popust = 0,25
  Konec Izberite
  MsgBox »Popust:« & Popust
Končni sub

V tem primeru se ocenjuje spremenljivka količina. Rutinska preverjanja za štiri različne primere (0–24, 25–49, 50–74 in 75 ali več).

Vsakemu stavku Case lahko sledi poljubno število stavkov in vsi se izvršijo, če je primer resničen. Če uporabljate samo en stavek, kot v tem primeru, lahko stavek postavite v isto vrstico kot ključna beseda Case, pred njo pa je dvopičje – ločevalni znak stavka VBA. Tako je koda bolj kompaktna in nekoliko jasnejša. Takole izgleda rutina v tej obliki:

Sub ShowDiscount4 ()
  Dim Quantity As Long
  Dim Discount As Double
  Količina = InputBox ("Vnesite količino: ")
  Izberite Količina ohišja
    Primer 0 do 24: popust = 0,1
    Primer 25 do 49: popust = 0,15
    Primer 50 do 74: popust = 0,2
    Primer je >= 75: Popust = 0,25
  Konec Izberite
  MsgBox »Popust:« & Popust
Končni sub

Ko VBA izvede strukturo Select Case, se struktura zapusti takoj, ko VBA najde pravi primer in izvede stavke za ta primer.

Primer ugnezdenega Select Case

Kot je prikazano v naslednjem primeru, lahko ugnezdite strukture Select Case. Ta rutina pregleda aktivno celico in prikaže sporočilo, ki opisuje vsebino celice. Upoštevajte, da ima postopek tri strukture Select Case in vsaka ima svoj stavek End Select:

Sub CheckCell()
  Zatemni sporočilo kot niz
  Izberite Case Is Empty (ActiveCell)
    Res je
     Sporočilo = "je prazno."
    Drugi primer
     Izberite Case ActiveCell.HasFormula
       Res je
        Sporočilo = "ima formulo"
       Drugi primer
        Izberite številčno črko (ActiveCell)
          Res je
           Sporočilo = "ima številko"
          Drugi primer
           Sporočilo = "ima besedilo"
        Konec Izberite
    Konec Izberite
  Konec Izberite
  MsgBox “Cell” & ActiveCell.Address & “ “ & Msg
Končni sub

Logika je nekako takole:

Ugotovite, ali je celica prazna.

Če ni prazen, preverite, ali vsebuje formulo.

Če formule ni, ugotovite, ali vsebuje številsko vrednost ali besedilo.

Ko se rutina konča, spremenljivka Msg vsebuje niz, ki opisuje vsebino celice. Funkcija MsgBox prikaže to sporočilo.

Kako uporabljati izbiro strukture primera v Excelu 2016 VBA

Sporočilo, ki ga prikaže postopek CheckCell.

Strukture Select Case lahko ugnezdite tako globoko, kot je potrebno, vendar se prepričajte, da ima vsak stavek Select Case ustrezen stavek End Select.

Če še vedno niste prepričani, da je zamik kode vreden truda, je prejšnji seznam dober primer. Vdolbine so resnično jasne, da so ravni gnezdenja jasne. Oglejte si isti postopek brez vdolbine:

Sub CheckCell()
Zatemni sporočilo kot niz
Izberite Case Is Empty (ActiveCell)
Res je
Sporočilo = "je prazno."
Drugi primer
Izberite Case ActiveCell.HasFormula
Res je
Sporočilo = "ima formulo"
Drugi primer
Izberite številčno črko (ActiveCell)
Res je
Sporočilo = "ima številko"
Drugi primer
Sporočilo = "ima besedilo"
Konec Izberite
Konec Izberite
Konec Izberite
MsgBox “Cell” & ActiveCell.Address & “ “ & Msg
Končni sub

Precej nerazumljivo, kajne?

Leave a Comment

Kako dokazati besedilo v tujem jeziku v Wordu 2016

Kako dokazati besedilo v tujem jeziku v Wordu 2016

V interesu kozmopolitizma vam Word 2016 omogoča delo s tujimi jeziki. Naučite se, kako vnesti in urediti besedilo v tujem jeziku, ter preveriti črkovanje in slovnico.

Filtriranje in razvrščanje podatkov vrtilne tabele v Excelu 2019

Filtriranje in razvrščanje podatkov vrtilne tabele v Excelu 2019

Učinkovito filtriranje in razvrščanje podatkov v vrtilni tabeli Excel 2019 za boljša poročila. Dosežite hitrejše analize z našimi namigi in triki!

Kaj pomenijo sporočila o napakah reševalca v Excelu?

Kaj pomenijo sporočila o napakah reševalca v Excelu?

Reševalec v Excelu je močno orodje za optimizacijo, ki lahko naleti na težave. Razumevanje sporočil o napakah reševalca vam lahko pomaga rešiti težave in optimizirati vaše matematične modele.

Teme za PowerPoint 2019

Teme za PowerPoint 2019

Odkrijte različne <strong>teme PowerPoint 2019</strong> in kako jih lahko uporabite za izboljšanje vaših predstavitev. Izberite najboljšo temo za vaše diapozitive.

Kako uporabljati distribucije hi-kvadrat v Excelu

Kako uporabljati distribucije hi-kvadrat v Excelu

Nekateri statistični ukrepi v Excelu so lahko zelo zmedeni, vendar so funkcije hi-kvadrat res praktične. Preberite vse opise funkcij hi-kvadrat za bolje razumevanje statističnih orodij.

Kako dodati obrobo strani v Word 2013

Kako dodati obrobo strani v Word 2013

V tem članku se naučite, kako dodati <strong>obrobo strani</strong> v Word 2013, vključno z različnimi slogi in tehnikami za izboljšanje videza vaših dokumentov.

Kako delati z več dokumenti v Wordu 2013

Kako delati z več dokumenti v Wordu 2013

Ni vam treba omejiti uporabe urejevalnika besedil na delo z enim samim dokumentom. Učinkovito delajte z več dokumenti v Wordu 2013.

Kako dodati komentarje v predstavitev PowerPoint 2013

Kako dodati komentarje v predstavitev PowerPoint 2013

Sodelovanje pri predstavitvi, ustvarjeni v PowerPointu 2013, je lahko tako preprosto kot dodajanje komentarjev. Odkrijte, kako učinkovito uporabljati komentarje za izboljšanje vaših predstavitev.

Kako spremeniti nastavitve preverjanja črkovanja in slovnice v Wordu 2016

Kako spremeniti nastavitve preverjanja črkovanja in slovnice v Wordu 2016

Ugotovite, kako prilagoditi nastavitve preverjanja črkovanja in slovnice v Wordu 2016, da izboljšate svoje jezikovne sposobnosti.

Kaj so izročki v PowerPointu 2013?

Kaj so izročki v PowerPointu 2013?

PowerPoint 2013 vam ponuja različne načine za izvedbo predstavitve, vključno s tiskanjem izročkov. Izročki so ključnega pomena za izboljšanje vaše predstavitve.