Cuprins
În acest articol, vă voi arăta cum puteți dezvolta și utiliza un Da Nu caseta de mesaje din VBA în Excel.
Dezvoltați și utilizați o casetă de mesaje Da Nu cu Excel VBA (Vizualizare rapidă)
Sub Yes_No_Message_Box() Answer = MsgBox("Vă place ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub 
Descărcați caietul de practică
Descărcați acest caiet de exerciții pentru a vă antrena în timp ce citiți acest articol.
Da Nu Message Box.xlsmO prezentare generală a codului VBA pentru a dezvolta și utiliza o casetă de mesaje Da Nu (analiză pas cu pas)
Să învățăm cum se utilizează un caseta de mesaje da-nu cu un exemplu simplu. caseta de mesaje vă va pune o întrebare, vă place ExcelWIKI?
Dacă răspunsul dumneavoastră este da, veți face clic pe Da în caseta de mesaje Și dacă răspunsul tău este Nu , veți face clic pe Nu .
Acum, ce se va întâmpla după ce faceți clic pe da sau nu în fereastra caseta de mesaje ? în foaia de lucru activă, există 2 celule care conțin numărul de persoane cărora le place și nu le place ExcelWIKI. Dacă apăsați da , numărul din celula similară va crește cu unu.
Și dacă lovești nu , numărul din celula dislike va crește cu unu.
Așadar, cum se poate realiza această sarcină cu un VBA ușor. 2 etape importante în întregul proces.
- Dezvoltarea Caseta de mesaje Da-Nu
- Utilizarea ieșirii de la Caseta de mesaje
Vă arăt detaliile fiecărui pas pentru a vă învăța.
⧪ Pasul 1: Elaborarea casetei de mesaje Da-Nu
Mai întâi de toate, trebuie să creați fișierul mesaj da-nu caseta din VBA Este simplu. Folosiți aceeași procedură ca și în cazul căsuței de mesaje obișnuite, cu întrebarea privind argumentul, împreună cu un nou argument vbYesNo .
Aici se pune întrebarea, "Vă place ExcelWIKI?"
Answer = MsgBox("Vă place ExcelWIKI?", vbYesNo) 
⧪ Pasul 2: Utilizarea ieșirii Casetei de mesaje
În continuare, vom îndeplini o sarcină folosind caseta de mesaje Aici, celula C3 conține numărul de persoane cărora le place ExcelWIKI, iar celula C4 conține numărul de persoane cărora nu le place ExcelWIKI.
Deci, dacă răspunsul este Da , celulă C3 va crește cu 1. Și dacă este Nu , celulă C4 va crește cu unu.
Vom folosi un If-block pentru a executa acest lucru.
If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If 
Deci, întregul VBA codul va fi:
⧭ Cod VBA:
Sub Yes_No_Message_Box() Answer = MsgBox("Vă place ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub
Crearea macroului pentru dezvoltarea și utilizarea unei casete de mesaje Da Nu în Excel
Am văzut analiza pas cu pas a codului pentru a dezvolta și utiliza o casetă de mesaje Yes-No. Acum, să vedem cum putem construi un macro pentru a executa codul.
⧪ Pasul 1: Deschiderea ferestrei VBA
Presa ALT + F11 de pe tastatură pentru a deschide fereastra Visual Basic fereastră.
⧪ Pasul 2: Inserarea unui nou modul
Mergeți la Inserare> Modul din bara de instrumente. Faceți clic pe Modul Un nou modul numit Modul1 (sau orice altceva, în funcție de istoricul dvs.) se va deschide.
⧪ Pasul 3: Introducerea codului VBA
Acesta este pasul cel mai important. Introduceți datele date. VBA în modul.
⧪ Pasul 4: Rularea codului
Faceți clic pe butonul Rulați Sub / UserForm din bara de instrumente de mai sus.
Codul va rula. A caseta de mesaje vă va întreba dacă vă place ExcelWIKI sau nu, cu un Da și un Nu opțiune.
Dacă alegeți Da , numărul din celula C3 va crește cu 1. Și dacă alegeți Nu , numărul din celula C4 va crește cu unu.
Aici, am selectat da , deci numărul de persoane cărora le place ExcelWIKI a crescut cu unu.
Lucruri de reținut
- A caseta de mesaje în VBA conține un total de 4 parametrii numiți Prompt, Buton, Titlu , și Fișier de ajutor . aici am arătat doar 2 parametrii, Prompt și Buton . dar dacă vrei să descoperi Caseta de mesaje VBA pentru mai multe detalii, puteți consulta acest link.
