Съдържание
В тази статия ще ви покажа как можете да разработите и използвате Да Не полето за съобщения в VBA в Excel.
Разработване и използване на поле за съобщения Да Не с Excel VBA (бърз преглед)
Sub Yes_No_Message_Box() Answer = MsgBox("Харесва ли ви ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub 
Изтегляне на работна тетрадка за практика
Изтеглете тази учебна тетрадка, за да се упражнявате, докато четете тази статия.
Да Не Message Box.xlsmПреглед на кода на VBA за разработване и използване на поле за съобщения "Да, не" (анализ стъпка по стъпка)
Да научим как се използва поле за съобщение "да-не с прост пример. поле за съобщение ще ви задам един въпрос, харесва ли ви ExcelWIKI?
Ако отговорът ви е "да", ще кликнете върху Да в поле за съобщение . И ако отговорът ви е Не , ще щракнете върху Не .
Какво ще се случи, след като щракнете върху "да" или "не" в поле за съобщение ? В активния работен лист има 2 клетки, които съдържат броя на хората, които харесват и не харесват ExcelWIKI. Ако натиснете да , числото в подобната клетка ще се увеличи с единица.
И ако ударите не , числото в клетката с неприязън ще се увеличи с единица.
И така, как да изпълним цялата тази задача с VBA код? Лесно. Има 2 основни етапи в целия процес.
- Разработване на Поле за съобщения Да-Не
- Използване на изхода на Кутия за съобщения
Показвам подробностите за всяка стъпка, за да ги научите.
⧪ Стъпка 1: Разработване на полето за съобщения "Да-не
Преди всичко трябва да създадете съобщение "да-не кутия в VBA Това е лесно. Използвайте същата процедура, както при обикновеното поле за съобщения, с въпроса за аргумента, заедно с нов аргумент. vbYesNo .
Въпросът е, "Харесва ли ви ExcelWIKI?"
Отговор = MsgBox("Харесва ли ви ExcelWIKI?", vbYesNo) 
⧪ Стъпка 2: Използване на изхода на полето за съобщения
След това ще изпълним една задача с помощта на поле за съобщение Тук клетката C3 съдържа броя на хората, които харесват ExcelWIKI, а клетката C4 съдържа броя на хората, които не харесват ExcelWIKI.
Така че, ако отговорът е Да , клетка C3 ще се увеличи с едно. А ако е Не , клетка C4 ще се увеличи с единица.
Ще използваме If-блок за да го извършите.
Ако отговорът = vbYes, тогава Range("C3") = Range("C3") + 1 Ако отговорът = vbNo, тогава Range("C4") = Range("C4") + 1 Край на If 
Така че пълният VBA кодът ще бъде:
⧭ Код VBA:
Sub Yes_No_Message_Box() Answer = MsgBox("Харесва ли ви ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub
Създаване на макропрограма за разработване и използване на поле за съобщения Да Не в Excel
Видяхме поетапния анализ на кода за разработване и използване на кутия със съобщения Yes-No. Сега нека видим как можем да създадем макропрограма за изпълнение на кода.
⧪ Стъпка 1: Отваряне на прозореца VBA
Натиснете ALT + F11 на клавиатурата, за да отворите Visual Basic прозорец.
⧪ Стъпка 2: Вмъкване на нов модул
Отидете на Вмъкване> Модул в лентата с инструменти. Щракнете върху Модул . Създаден е нов модул, наречен Модул1 (или нещо друго в зависимост от предишната ви история).
⧪ Стъпка 3: Поставяне на кода VBA
Това е най-важната стъпка. Вмъкнете дадения VBA код в модула.
⧪ Стъпка 4: Изпълнение на кода
Кликнете върху Изпълнение на Sub / UserForm от горната лента с инструменти.
Кодът ще се изпълни. A поле за съобщение ще ви попита дали ви харесва ExcelWIKI или не, с Да и Не опция.
Ако изберете Да , числото в клетката C3 ще се увеличи с едно. А ако изберете Не , числото в клетката C4 ще се увеличи с единица.
Тук съм избрал да , така че броят на хората, които харесват ExcelWIKI се е увеличил с единица.
Нещата, които трябва да запомните
- A поле за съобщение в VBA съдържа общо 4 параметри, наречени Подкана, бутон, заглавие , и Справка . Тук съм показал само 2 параметри, Подсказка и Бутон . Но ако искате да откриете Кутия за съобщения VBA за повече подробности можете да проверите тази връзка.
