Šajā rakstā es jums parādīšu, kā varat izstrādāt un izmantot Jā Nē ziņojuma lodziņā VBA programmā Excel.

Ziņojuma rūtiņas Jā Nē izveide un lietošana, izmantojot Excel VBA (ātrais skats)

 Sub Yes_No_Message_Box() Atbilde = MsgBox("Vai jums patīk ExcelWIKI?", vbYesNo) Ja atbilde = vbYes Tad Range("C3") = Range("C3") + 1 ElseIf Atbilde = vbNo Tad Range("C4") = Range("C4") + 1 End If End Sub 

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.

VBA koda pārskats, lai izstrādātu un izmantotu Jā Nē ziņojumu lodziņu (analīze soli pa solim)

Mācīsimies izmantot jā-nē ziņojuma lodziņš ar vienkāršu piemēru. ziņojuma lodziņš uzdos jums jautājumu, vai jums patīk ExcelWIKI?

Ja jūsu atbilde ir "jā", noklikšķiniet uz Jā in the ziņojuma lodziņš . Un, ja jūsu atbilde ir Nē , noklikšķiniet uz Nē .

Kas notiks pēc tam, kad nospiedīsiet jā vai nē laukā ziņojuma lodziņš ? Aktīvajā darblapā ir 2 šūnas, kurās ir to cilvēku skaits, kuriem patīk un nepatīk ExcelWIKI. Ja jūs trāpījāt uz jā , skaits līdzīgajā šūnā palielināsies par vienu.

Un, ja jūs trāpījāt nav , skaitlis nepatīkamajā šūnā palielināsies par vienu.

Tātad, kā veikt visu šo uzdevumu ar VBA kods? Viegli. Ir 2 galvenie soļi visā procesā.

• Izstrādājot Jā-nē Ziņojuma lodziņš
• Izmantojot izvades Ziņu lodziņš

Es rādu detalizētu informāciju par katru soli, lai jūs varētu mācīties.

⧪ 1. solis: ziņojuma lodziņa "Jā-nē" izveide

Vispirms ir jāizveido jā-nē ziņojums lodziņā VBA Tas ir vienkārši. Izmantojiet to pašu procedūru kā parastajā ziņojumu lodziņā, uzdodot jautājumu par argumentu un pievienojot jaunu argumentu. vbYesNē .

Jautājums ir šāds, "Vai jums patīk ExcelWIKI?"

 Atbilde = MsgBox("Vai jums patīk ExcelWIKI?", vbYesNo) 

⧪ 2. solis: Ziņojuma loga izejas izmantošana

Tālāk mēs izpildīsim uzdevumu, izmantojot ziņojuma lodziņš izvads. Šajā gadījumā šūna C3 ietver to cilvēku skaitu, kuriem patīk ExcelWIKI, un šūnā C4 ietver to cilvēku skaitu, kuriem nepatīk ExcelWIKI.

Tātad, ja atbilde ir Jā , šūna C3 palielināsies par vienu. Un, ja tas ir Nē , šūna C4 palielināsies par vienu.

Mēs izmantosim If-block lai to izpildītu.

 Ja atbilde = vbYes, tad Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo, tad Range("C4") = Range("C4") + 1 End If 

Tātad pilnīga VBA kods būs:

⧭ VBA kods:

 Sub Yes_No_Message_Box() Atbilde = MsgBox("Vai jums patīk ExcelWIKI?", vbYesNo) Ja atbilde = vbYes Tad Range("C3") = Range("C3") + 1 ElseIf Atbilde = vbNo Tad Range("C4") = Range("C4") + 1 End If End Sub 

Makrogrammas izveide, lai Excel programmā Excel izstrādātu un izmantotu ziņojumu lodziņu Jā Nē

Mēs esam redzējuši pakāpenisku koda analīzi, lai izstrādātu un izmantotu Jā-nē ziņojumu lodziņu. Tagad aplūkosim, kā varam izveidot makrokonsoli, lai palaistu šo kodu.

⧪ 1. solis: VBA loga atvēršana

Spiediet ALT + F11 uz tastatūras, lai atvērtu Visual Basic logs.

⧪ 2. solis: jauna moduļa ievietošana

Iet uz Ievietot> Modulis instrumentu joslā. Noklikšķiniet uz Modulis . Tiek izveidots jauns modulis ar nosaukumu Modulis1 (vai jebkas cits atkarībā no jūsu iepriekšējās vēstures).

⧪ 3. solis: VBA koda ievietošana

Šis ir vissvarīgākais solis. Ievietojiet doto VBA kods modulī.

⧪ 4. solis: Koda palaišana

Noklikšķiniet uz Run Sub / UserForm rīks no augšējās rīkjoslas.

Kods tiks palaists. A ziņojuma lodziņš jautās, vai jums patīk ExcelWIKI vai nē, ar Jā un Nē iespēja.

Ja izvēlaties Jā , skaitlis šūnā C3 palielināsies par vienu. Un, ja izvēlaties Nē , skaitlis šūnā C4 palielināsies par vienu.

Šeit esmu izvēlējies jā , tāpēc to cilvēku skaits, kuriem patīk ExcelWIKI ir palielinājies par vienu.

Lietas, kas jāatceras

• A ziņojuma lodziņš vietnē VBA kopā ir 4 parametri, ko sauc par Uzaicinājums, poga, virsraksts , un Palīdzības fails . Šeit es esmu parādījis tikai 2 parametri, Uzaicinājums un Poga . Bet, ja vēlaties atklāt VBA ziņojumu lodziņš sīkāku informāciju varat atrast šajā saitē.