Kaip naudoti pasirinkimo atvejo struktūrą „Excel 2016 VBA“.

Struktūra „Select Case“ yra naudinga VBA struktūra priimant sprendimus, susijusius su trimis ar daugiau „Excel 2016“ parinkčių (nors ji taip pat veikia su dviem parinktimis, suteikdama alternatyvą „If-Then-Else“ struktūrai).

A Select Case pavyzdys

Šiame pavyzdyje parodyta, kaip naudoti struktūrą Select Case:

Sub ShowDiscount3()
  Dim Kiekis Kol kas
  Nedidelė nuolaida kaip dviguba
  Kiekis = InputBox („Įveskite kiekį:“)
  Pasirinkite Bylos kiekis
    Atvejis nuo 0 iki 24
      Nuolaida = 0,1
    25–49 atvejis
      Nuolaida = 0,15
    50–74 atvejis
      Nuolaida = 0,2
    Atvejis yra >= 75
      Nuolaida = 0,25
  Pabaigos pasirinkimas
  MsgBox „Nuolaida:“ & Nuolaida
Pabaigos sub

Šiame pavyzdyje vertinamas kintamasis Kiekis. Įprasti patikrinimai atliekami keturiais skirtingais atvejais (0–24, 25–49, 50–74 ir 75 ar daugiau).

Po kiekvieno atvejo teiginio gali būti bet koks teiginių skaičius, ir jie visi yra vykdomi, jei atvejis yra teisingas. Jei naudojate tik vieną teiginį, kaip šiame pavyzdyje, teiginį galite įrašyti toje pačioje eilutėje kaip raktinis žodis Case, prieš kurį rašomas dvitaškis – VBA teiginio skyriklio simbolis. Tai daro kodą kompaktiškesnį ir šiek tiek aiškesnį. Štai kaip rutina atrodo šiuo formatu:

Sub ShowDiscount4 ()
  Dim Kiekis Kol kas
  Nedidelė nuolaida kaip dviguba
  Kiekis = InputBox („Įveskite kiekį:“)
  Pasirinkite Bylos kiekis
    0–24 atvejis: nuolaida = 0,1
    25–49 atvejis: nuolaida = 0,15
    50–74 atvejis: nuolaida = 0,2
    Atvejis >= 75: Nuolaida = 0,25
  Pabaigos pasirinkimas
  MsgBox „Nuolaida:“ & Nuolaida
Pabaigos sub

Kai VBA vykdo struktūrą Select Case, struktūra išjungiama, kai tik VBA randa tikrąjį atvejį ir įvykdo to atvejo teiginius.

Įdėto pasirinkimo atvejo pavyzdys

Kaip parodyta kitame pavyzdyje, galite sudėti Select Case struktūras. Ši tvarka tiria aktyvų langelį ir parodo pranešimą, aprašantį langelio turinį. Atkreipkite dėmesį, kad procedūra turi tris Select Case struktūras ir kiekviena turi savo pabaigos pasirinkimo teiginį:

Papildomas tikrinimo langelis ()
  Pritemdyti pranešimą kaip eilutę
  Pasirinkite Case IsEmpty (ActiveCell)
    Atvejis Tiesa
     Msg = "yra tuščia".
    Kitas atvejis
     Pasirinkite Case ActiveCell.HasFormula
       Atvejis Tiesa
        Msg = "turi formulę"
       Kitas atvejis
        Pasirinkite Case Is Numeric (ActiveCell)
          Atvejis Tiesa
           Msg = "turi numerį"
          Kitas atvejis
           Žinutė = "yra tekstas"
        Pabaigos pasirinkimas
    Pabaigos pasirinkimas
  Pabaigos pasirinkimas
  MsgBox „Cell“ & ActiveCell.Address & „“ & Msg
Pabaigos sub

Logika skamba maždaug taip:

Sužinokite, ar langelis tuščias.

Jei jis nėra tuščias, pažiūrėkite, ar jame yra formulė.

Jei formulės nėra, išsiaiškinkite, ar joje yra skaitinė reikšmė, ar tekstas.

Kai rutina baigiasi, Msg kintamajame yra eilutė, apibūdinanti langelio turinį. „MsgBox“ funkcija rodo tą pranešimą.

Kaip naudoti pasirinkimo atvejo struktūrą „Excel 2016 VBA“.

Pranešimas, rodomas atliekant CheckCell procedūrą.

Galite įterpti „Select Case“ struktūras taip giliai, kiek jums reikia, tačiau įsitikinkite, kad kiekvienas „Select Case“ sakinys turi atitinkamą teiginį „End Select“.

Jei vis dar nesate įsitikinę, kad kodo įtrauka verta pastangų, ankstesnis sąrašas yra geras pavyzdys. Įtraukos tikrai tam, kad būtų aiškūs lizdų lygiai. Pažvelkite į tą pačią procedūrą be jokių įtraukų:

Papildomas tikrinimo langelis ()
Pritemdyti pranešimą kaip eilutę
Pasirinkite Case IsEmpty (ActiveCell)
Atvejis Tiesa
Msg = "yra tuščia".
Kitas atvejis
Pasirinkite Case ActiveCell.HasFormula
Atvejis Tiesa
Msg = "turi formulę"
Kitas atvejis
Pasirinkite Case Is Numeric (ActiveCell)
Atvejis Tiesa
Msg = "turi numerį"
Kitas atvejis
Žinutė = "yra tekstas"
Pabaigos pasirinkimas
Pabaigos pasirinkimas
Pabaigos pasirinkimas
MsgBox „Cell“ & ActiveCell.Address & „“ & Msg
Pabaigos sub

Gana nesuprantama, ar ne?

Leave a Comment

Specialiųjų simbolių įterpimas į Word 2010

Specialiųjų simbolių įterpimas į Word 2010

Kartais gali prireikti įterpti neįprastą simbolį į Word 2010 dokumentą. Perskaitykite, kaip lengvai tai padaryti su mūsų patarimais ir simbolių sąrašu.

Kaip naudoti logines funkcijas „Excel 2010“ formulėse

Kaip naudoti logines funkcijas „Excel 2010“ formulėse

„Excel 2010“ naudoja septynias logines funkcijas – IR, FALSE, IF, IFERROR, NOT, OR ir TRUE. Sužinokite, kaip naudoti šias funkcijas efektyviai.

Kaip paslėpti ir rodyti eilutes ir stulpelius programoje „Excel 2016“.

Kaip paslėpti ir rodyti eilutes ir stulpelius programoje „Excel 2016“.

Sužinokite, kaip paslėpti ir atskleisti stulpelius bei eilutes programoje „Excel 2016“. Šis patarimas padės sutaupyti laiko ir organizuoti savo darbalapius.

Kaip apskaičiuoti slenkančius vidurkius programoje „Excel“.

Kaip apskaičiuoti slenkančius vidurkius programoje „Excel“.

Išsamus vadovas, kaip apskaičiuoti slankiuosius vidurkius „Excel“ programoje, skirtas duomenų analizei ir orų prognozėms.

Kaip nukopijuoti formules naudojant automatinį pildymą programoje „Excel 2016“.

Kaip nukopijuoti formules naudojant automatinį pildymą programoje „Excel 2016“.

Sužinokite, kaip efektyviai nukopijuoti formules Excel 2016 programoje naudojant automatinio pildymo funkciją, kad pagreitintumėte darbo eigą.

Kaip „Excel 2010“ langeliams taikyti užpildymo spalvas, raštus ir gradientus

Kaip „Excel 2010“ langeliams taikyti užpildymo spalvas, raštus ir gradientus

Galite pabrėžti pasirinktus langelius „Excel 2010“ darbalapyje pakeisdami užpildymo spalvą arba pritaikydami ląstelėms šabloną ar gradiento efektą.

Kaip paryškinti savaitgalio datas programoje „Excel“.

Kaip paryškinti savaitgalio datas programoje „Excel“.

Dirbdami su laiko kortelėmis ir planuodami programą „Excel“, dažnai pravartu lengvai nustatyti bet kokias datas, kurios patenka į savaitgalius. Šiame straipsnyje pateikiami žingsniai, kaip naudoti sąlyginį formatavimą.

Kaip sukurti diagramas „Office 365“.

Kaip sukurti diagramas „Office 365“.

Sužinokite, kaip sukurti diagramas „Word“, „Excel“ ir „PowerPoint“ programose „Office 365“. Daugiau informacijos rasite LuckyTemplates.com.

Kaip sukurti pasirinktinius „Excel“ suvestinės lentelės skaičiavimus

Kaip sukurti pasirinktinius „Excel“ suvestinės lentelės skaičiavimus

„Excel“ suvestinės lentelės leidžia kurti <strong>pasirinktinius skaičiavimus</strong>, įtraukiant daug pusiau standartinių skaičiavimų. Šiame straipsnyje pateiksiu detalius nurodymus, kaip efektyviai naudoti šią funkciją.

Kaip pakeisti rašybos tikrinimo ir gramatikos nustatymus programoje „Word 2016“.

Kaip pakeisti rašybos tikrinimo ir gramatikos nustatymus programoje „Word 2016“.

Nesvarbu, ar dievinate, ar nekenčiate Word gebėjimo išjuokti jūsų kalbos gebėjimus, jūs turite galutinį sprendimą. Yra daug nustatymų ir parinkčių, leidžiančių valdyti „Word“ rašybos ir gramatikos tikrinimo įrankius.