Excel VBA: Развијте и користете поле за пораки Да Не

  • Споделете Го Ова
Hugh West

Во оваа статија, ќе ви покажам како можете да развиете и користите поле за пораки Да не во VBA во Excel.

Развијте и користете Да Не Поле за пораки со Excel VBA (Брз преглед)

6768

Преземете ја работната книга за вежбање

Преземете ја оваа работна книга за вежбање за да вежбате додека ја читате оваа статија.

Да Не Порака Box.xlsm

Преглед на VBA кодот за развивање и користење на полето за пораки Да Не (Анализа чекор-по-чекор)

Ајде да ја научиме употребата на полето за пораки да-не со едноставен пример. Полето порака ќе ви постави прашање, дали ви се допаѓа ExcelWIKI?

Ако вашиот одговор е да, ќе кликнете Да во полето за пораки . И ако вашиот одговор е Не , ќе кликнете Не .

Сега, што ќе се случи откако ќе кликнете да или не во полето за пораки ? Во активниот работен лист, има 2 ќелии кои содржат број на луѓе на кои им се допаѓа и не им се допаѓа ExcelWIKI. Ако притиснете да , бројот во ќелијата ми се допаѓа ќе се зголеми за еден.

И ако притиснете не , бројот во ќелијата не ми се допаѓа ќе се зголеми за еден .

Па, како да ја постигнете целата оваа задача со VBA код? Лесно. Има 2 главни чекори во целиот процес.

  • Развивање на полето за пораки Да-Не
  • Користење на излезот од Поле за пораки

Ги прикажувам деталите за секој чекор за вашето учење.

⧪ Чекор1: Развивање на полето за пораки Да-Не

Прво, треба да го креирате полето да-не во VBA . Ова е лесно. Користете ја истата процедура како обичното поле за пораки, со прашањето за аргументот, заедно со нов аргумент vbYesNo .

Овде прашањето е, „Дали ви се допаѓа ExcelWIKI ?”

7229

⧪ Чекор 2: Користење на излезот на полето за пораки

Следно, ќе исполниме задача користејќи го излезот поле за пораки . Овде, ќелијата C3 го содржи бројот на луѓе кои сакаат ExcelWIKI, а ќелијата C4 го содржи бројот на луѓе кои не го сакаат ExcelWIKI.

Значи, ако одговорот е Да , ќелијата C3 ќе се зголеми за еден. И ако е Не , ќелијата C4 ќе се зголеми за еден.

Ќе користиме If-block за да го извршиме ова.

2820

Значи, целосниот код VBA ќе биде:

VBA код:

1437

Креирање макро за развивање и користење на полето за пораки Да Не во Excel

Го видовме чекор-по-чекор анализата на кодот за развивање и користење на полето за пораки Да-Не. Сега, ајде да видиме како можеме да изградиме макро за да го изврши кодот.

⧪ Чекор 1: Отворање на прозорецот VBA

Притиснете ALT + F11 на вашата тастатура за да го отворите прозорецот Visual Basic .

⧪ Чекор 2: Вметнување нов модул

Одете во Вметни > Модул во лентата со алатки. Кликнете на Модул . Нов модул наречен Module1 (или било што друго во зависност од вашата мината историја) ќе се отвори.

⧪ Чекор 3: Ставање на VBA кодот

Ова е најважниот чекор. Вметнете го дадениот VBA код во модулот.

⧪ Чекор 4: Извршување на кодот

Кликнете на алатката Run Sub / UserForm од лентата со алатки погоре.

Кодот ќе работи. полето за пораки ќе ве праша дали ви се допаѓа ExcelWIKI или не, со опција Да и Не .

Ако изберете Да , бројот во ќелијата C3 ќе се зголеми за еден. И ако изберете Не , бројот во ќелијата C4 ќе се зголеми за еден.

Овде, избрав да , така што бројот на луѓе кои сакаат ExcelWIKI се зголеми за еден.

Работи што треба да се запаметат

  • полето за пораки во VBA содржи вкупно 4 параметри наречени Прашање, Копче, Наслов и Датотека за помош . Овде покажав само 2 параметри, Прашање и Копче . Но, ако сакате подетално да го откриете полето за пораки VBA , можете да го проверите овој линк.

Хју Вест е високо искусен тренер и аналитичар на Excel со повеќе од 10 години искуство во индустријата. Има диплома за сметководство и финансии и магистер по бизнис администрација. Хју има страст за предавање и има развиено уникатен пристап на наставата кој е лесен за следење и разбирање. Неговото стручно познавање на Excel им помогна на илјадници студенти и професионалци ширум светот да ги подобрат своите вештини и да се истакнат во нивните кариери. Преку својот блог, Хју го споделува своето знаење со светот, нудејќи бесплатни упатства за Excel и онлајн обука за да им помогне на поединците и бизнисите да го достигнат својот целосен потенцијал.