Šiame straipsnyje parodysiu, kaip galite sukurti ir naudoti Taip Ne pranešimo langelį VBA "Excel" programoje.

Pranešimo langelio "Taip Ne" kūrimas ir naudojimas naudojant "Excel VBA" (greita peržiūra)

 Sub Yes_No_Message_Box() Atsakymas = MsgBox("Ar jums patinka ExcelWIKI?", vbYesNo) Jei atsakymas = vbYes Tada Range("C3") = Range("C3") + 1 ElseIf Atsakymas = vbNo Tada Range("C4") = Range("C4") + 1 End If End Sub 

Atsisiųsti praktikos sąsiuvinį

Atsisiųskite šį pratybų sąsiuvinį, kad galėtumėte atlikti pratimus skaitydami šį straipsnį.

VBA kodo, skirto pranešimo langui "Taip Ne" sukurti ir naudoti, apžvalga (žingsnis po žingsnio analizė)

Išmokime naudoti pranešimo langelis "taip-ne su paprastu pavyzdžiu. pranešimo langelis užduos jums klausimą, ar jums patinka ExcelWIKI?

Jei atsakysite teigiamai, spustelėsite Taip į pranešimo langelis . Ir jei jūsų atsakymas yra Ne , spustelėsite Ne .

Kas nutiks, kai spustelėsite "taip" arba "ne" langelyje pranešimo langelis ? Aktyviame darbalapyje yra 2 langelius, kuriuose yra ExcelWIKI mėgstančių ir nemėgstančių žmonių skaičius. taip , skaičius panašiame langelyje padidės vienu.

Ir jei paspausite ne , skaičius nepageidaujamame langelyje padidės vienetu.

Taigi, kaip atlikti visą šią užduotį su VBA kodas? Lengva. 2 pagrindiniai viso proceso etapai.

• Kuriant Taip-Ne Pranešimo langelis
• Naudojant išvesties Pranešimų laukelis

Aš rodau kiekvieno žingsnio detales, kad galėtumėte mokytis.

⧪ 1 veiksmas: pranešimo laukelio "Taip ir ne" kūrimas

Pirmiausia turite sukurti pranešimas "taip-ne langelis VBA Tai paprasta. Naudokite tą pačią procedūrą kaip ir įprastame pranešimų lange, kartu su klausimu dėl argumento ir nauju argumentu vbYesNe .

Čia kyla klausimas, "Ar jums patinka "ExcelWIKI"?"

 Atsakymas = MsgBox("Ar jums patinka ExcelWIKI?", vbYesNo) 

⧪ 2 veiksmas. 2 žingsnis: Naudojant pranešimų langelio išvestį

Toliau atliksime užduotį naudodami pranešimo langelis čia ląstelė C3 yra žmonių, kuriems patinka "ExcelWIKI", skaičius, o ląstelėje C4 yra žmonių, kuriems nepatinka "ExcelWIKI", skaičius.

Taigi, jei atsakymas yra Taip , ląstelė C3 padidės vienu. O jei tai Ne , ląstelė C4 padidės vienetu.

Naudosime Jei blokas tai atlikti.

 Jei atsakymas = vbYes Tada Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Tada Range("C4") = Range("C4") + 1 End If 

Taigi visas VBA kodas bus:

⧭ VBA kodas:

 Sub Yes_No_Message_Box() Atsakymas = MsgBox("Ar jums patinka ExcelWIKI?", vbYesNo) Jei atsakymas = vbYes Tada Range("C3") = Range("C3") + 1 ElseIf Atsakymas = vbNo Tada Range("C4") = Range("C4") + 1 End If End Sub 

Makrokomandos, skirtos sukurti ir naudoti pranešimo langelį "Taip Ne" programoje "Excel", sukūrimas

Matėme, kaip žingsnis po žingsnio analizuoti kodą, skirtą pranešimo langui "Taip ir ne" sukurti ir naudoti. Dabar pažiūrėkime, kaip galime sukurti makrokomandą kodui paleisti.

⧪ 1 žingsnis: VBA lango atidarymas

Paspauskite ALT + F11 klaviatūroje, kad atidarytumėte "Visual Basic langas.

⧪ 2 žingsnis: naujo modulio įterpimas

Eikite į Insert> Modulis įrankių juostoje. Spustelėkite Modulis . Įdiegtas naujas modulis, vadinamas Modulis1 (arba bet kas kitas, priklausomai nuo jūsų ankstesnės istorijos).

⧪ 3 veiksmas: VBA kodo įvedimas

Tai svarbiausias žingsnis. Įterpkite duotą VBA kodas modulyje.

⧪ 4 veiksmas: kodo paleidimas

Spustelėkite Paleisti sub / UserForm įrankį iš pirmiau esančios įrankių juostos.

Kodas bus paleistas. A pranešimo langelis paklaus, ar jums patinka ExcelWIKI arba ne, su Taip ir Ne galimybė.

Jei pasirinksite Taip , skaičius langelyje C3 padidės vienu. O jei pasirinksite Ne , skaičius langelyje C4 padidės vienetu.

Čia pasirinkau taip , todėl žmonių, kuriems patinka ExcelWIKI padidėjo vienu.

Dalykai, kuriuos reikia prisiminti

• A pranešimo langelis svetainėje VBA iš viso yra 4 parametrai, vadinami Paraginimas, mygtukas, antraštė , ir Pagalbos failas . Čia parodžiau tik 2 parametrai, Paraginimas ir Mygtukas . Bet jei norite atrasti VBA pranešimų langas išsamiau galite rasti šioje nuorodoje.