Командите се използват за показване на данни във vba. Кутия за съобщения във VBA Excel - MsgBox

Във VBA входът и изходът (за взаимодействие с потребителя) могат да се извършват в диалогови прозорци. Диалоговият прозорец за въвеждане на стойности се изпълнява от вградената функция InputBox.В полето за въвеждане, реализирано от функцията InputBox, се показва поле за въвеждане на стойността на променлива, в която потребителят трябва да въведе конкретна стойност. След това потребителят трябва да щракне върху бутона OK.

Функция InputBox()има следния синтаксис:

Име на променлива = InputBox(Подкана, , , , , , )

Където аргументи: Prompt или Message е задължителен аргумент, който посочва информационно съобщение в диалоговия прозорец. Всички останали аргументи са незадължителни. Заглавие определя заглавието на прозореца. Фигура 1 показва модул, който използва функцията InputBox.

Ориз. един.

След завършване на модул 2 се появява поле за съобщение „Въвеждане на стойности на променливи“ (фиг. 2), в което трябва да въведете число и да натиснете OK. Диалоговият прозорец (фиг. 2), реализиран от функцията InputBox (фиг. 1), показва: Заглавие на прозореца - Въвеждане на стойности на променливи; Съобщение - Въведете номер; Бутони (по подразбиране) - OK и Cancel; Поле, предназначено за въвеждане на стойности на променливи.

Ориз. 2.

За показване на информация се използват диалогови прозорци със съобщения, реализирани от оператора. MsgBoxили функция MsgBox(). MsgBox може да се използва като изявление. Инструкцията MsgBox показва информация в диалогов прозорец и задава режима да изчака потребителят да натисне бутон.

Инструкцията MsgBox има следния синтаксис:
Подкана за MsgBox, , , ,

Където са аргументите: Prompt или Message – задължителен аргумент, който указва информационното съобщение за показване в прозореца. Всички останали аргументи са незадължителни. Бутони – Бутони, които могат да се използват в диалоговия прозорец за съобщения. В прозореца за съобщения могат да се използват различни бутони (OK, Cancel и др.). Ако не посочите кои бутони да се показват в полето за съобщения, бутонът OK се показва по подразбиране. Освен това в диалоговите прозорци за съобщения могат да се използват различни икони (vbQuestion - icon въпросителен знак, vbExclamation - икона на удивителен знак и др.).

Модулът, в който MsgBox се използва като оператор, е показан на фиг. 3 (оператор MsgBox "3", vbOKCancel, "Изходни стойности").

Ориз. 3

При стартиране за изпълнение на модул 4 се извежда съобщение "Изходни стойности" (фиг. 4), в което трябва да натиснете бутона OK. Прозорецът (фиг. 4), реализиран от оператора MsgBox (фиг. 3), показва: Заглавие на прозореца - Извеждане на стойности; Съобщение - 3; Бутони - OK и Cancel.

Ориз. 4

Например, за да изчислите функция като y = 5 x 2 + 7 x + 9, можете да използвате функцията InputBox и оператора MsgBox (фиг. 5)

Ориз. пет

След изпълнение на модул 5 се показва поле за въвеждане

Ориз. 6

След като въведете число, като 789, и щракнете върху OK, се появява поле за съобщение, което показва резултата от функцията y = 5 x 2 + 7 x + 9.

Ориз. 7

MsgBox може да се използва като функция. Функцията MsgBox() има следния синтаксис: MsgBox (Подкана, , , , ). В този случай в диалоговия прозорец се използват няколко различни бутона. Когато се натисне бутон в диалогов прозорец, функцията MsgBox() връща целочислена стойност, която зависи от това кой бутон е бил натиснат в диалоговия прозорец за съобщение.

" се запознахме накратко с диалоговото съобщение msgbox. Но това беше най-простото информационно съобщение. Сега нека разгледаме по-отблизо работата с функцията MsgBox и всички видове диалогови съобщения.

Синтаксис на функцията MsgBox

Функцията MsgBox има следния синтаксис:

MsgBox( съобщение [, константи на съобщения] [, заглавие] [, hlp помощен файл, помощен контекст] )

Необходимият параметър е "Съобщение", останалото може да се пропусне.

MsgBox „Текст на съобщение”

• Константи за съобщения- позволяват ви да дефинирате вида на диалозите.
• заглавка– задава заглавието на диалоговата форма.
• Помощен файлhlpе низов израз, който определя името на помощния файл за диалоговия прозорец.
• Помощен контексте числов израз, който определя номера на контекста на помощния файл за диалоговия прозорец.

Преглед на диалогов прозорец:

създадено със следната команда:
MsgBox "Текст, съдържащ въпрос", vbYesNo, "Заглавие на съобщението"

За да създадете съобщение като това:

командата ще изглежда така:
MsgBox "Текст, съдържащ въпрос", vbYesNoCancel, "Заглавие на съобщението"

Съобщение като това:

създадено от командата:
MsgBox "Текст, съдържащ въпрос", vbAbortRetryIgnore, "Заглавие на съобщението"

тези. от трите примера в командата се променя само вторият параметър (vbYesNo, vbYesNoCancel, vbAbortRetryIgnore). Това са стойностите (константите), които определят типа на съобщението. Параметрите (vbYesNo, vbYesNoCancel) могат да бъдат заменени с цифрова стойност, например диалоговият прозорец vbYesNo може да бъде извикан чрез въвеждане на 4: MsgBox "Текст, съдържащ въпроса", 4, "Име на съобщение".

Следва пълен списък на константите и техните цифрови еквиваленти:

Съобщенията могат да бъдат леко променени. външен вид, задайте бутон по подразбиране, добавете бутон "Помощ", като добавите константи.

Например: MsgBox "Текст, съдържащ въпрос", vbYesNoCancel+vbInformation + vbMsgBoxHelpButton+vbDefaultButton2, „Име на съобщение“ ще създаде съобщение като:

vbинформация- добавя удивителна икона към съобщението
vbMsgBoxHelpButton- добавя бутон "Помощ".
vbDefaultButton2- насочва фокуса към втория бутон (" Не")

По-долу е дадена таблица, изброяваща константи за икони и константи за фокусиране на бутони:

Как да разберете кой бутон в съобщението е щракнал потребителят?

Изборът на потребителя ще бъде определен с помощта на . В някои ситуации можете да използвате .

Например, нека извикаме съобщение, като щракнете двукратно върху LMB върху която и да е клетка на листа. В съответствие с избора на потребителя, ние ще покажем текст в тази клетка.

Създайте нова работна книга на Excel и преминете към режима Visual Basic(Alt+F11). В прозореца на проекта изберете " лист1» и щракнете върху него два пъти LMB.

В прозореца на редактора на код, който се отваря, въведете следната процедура:

В условието IF ние сравняваме резултата, върнат от функцията MsgBox с константата vbYes, т.е. ако бутонът е натиснат в съобщението да”, тогава функцията MsgBox връща стойността vbYes (6). Пълен списъкконстанти и техните цифрови еквиваленти по-долу. Сега опитайте лист 1щракнете двукратно върху която и да е клетка.

Забележка: Когато бъде извикано съобщение, изпълнението на програмата спира, докато не бъде получен отговор от потребителя.

Втората опция за извикване на диалоговия прозорец .

Нека създадем втора процедура на лист 2. Кодът на процедурата е както следва:

В този случай резултатът от извикването на MsgBox се присвоява на променлива меси след това в Select Case се търси съвпадение и според съвпадението се извършват действия.

Това е всичко. По-долу е приложен завършен пример, обсъден в тази статия.

Списък с константи и стойности, върнати от функцията MsgBox:

Използване на функцията MsgBox във VBA Excel, нейния синтаксис и параметри. Стойности, върнати от функцията MsgBox. Примери за използване.

Функцията MsgBox във VBA Excel е проектирана да показва съобщение в диалогов прозорец, да изчаква щракване върху бутон и да връща целочислена стойност, показваща кой бутон е щракнат. За по-лесно разбиране, тази статия не обхваща опции, свързани с контекстно-чувствителната помощ и модалността на диалоговия прозорец MsgBox.

Синтаксис на функцията

MsgBox (Подкана [, Бутони ] [, Заглавие ])

Необходимият параметър на функцията MsgBox е Подкана, ако БутониИ Заглавиене са посочени изрично, се използват техните стойности по подразбиране. Освен това, ако не са посочени незадължителни параметри и връщаната стойност не е присвоена на променлива, съобщението не е затворено в скоби:

Пример 1

Sub Test1() MsgBox "Много важно съобщение!" край под

Функционални параметри

*Максимална дължина на параметъра Подканае приблизително 1024 знака и зависи от тяхната ширина.

**В Excel по подразбиране заглавието на MsgBox показва "Microsoft Excel".

Константи на параметрите на бутоните

Вид и брой бутони

Стил на икона

За да видите показаните икони, копирайте кода във вашия модул и изпълнете:

Пример 2

Sub Test2() Dim a As Integer a = MsgBox("Критично съобщение, съобщение за грешка", 16) a = MsgBox("Съобщение за въпрос", 32) a = MsgBox("Предупредително съобщение", 48) a = MsgBox( "Информация Съобщение", 64) Край под

Бутон по подразбиране

Върнати стойности

Стойността, върната от функцията MsgBox, се използва за избор по-нататъшни действияизпълнима програма в зависимост от натиснатия бутон.

За третия пример, нека зададем следните параметри за първата функция MsgBox:

• Prompt = "Изберете бутон!"
• Бутони = 323 (3 (vbYesNoCancel) + 64 (vbInformation) + 256 (vbDefaultButton2))
• Заглавие = "бутон за избор"

Втората функция MsgBox се използва като просто информационно съобщение с параметри по подразбиране.

Пример 3

Sub Test3() Dim a As Integer a = MsgBox("Select Button!", 323, "Select Button") Ако a = 6 Тогава MsgBox "Щракнахте върху бутона: Да" ElseIf a = 7 Тогава MsgBox "Щракнахте върху бутона : Не " Else MsgBox "Щракнахте върху бутона: Отказ" Край, ако Край на подп

В този пример, в зависимост от бутона, натиснат в първия диалогов прозорец, името на натиснатия бутон се показва във второто съобщение. Имайте предвид, че вторият бутон в първия прозорец на MsgBox, който се отваря, е избран по подразбиране и се задейства при натискане на клавиша Enter.

И какво ще стане, ако първият диалогов прозорец от третия пример се затвори с кръстче? Проверете сами.

1. Функция InputBox

Функцията InputBox има следния синтаксис:

Променлива = InputBox(Prompt[, Title] [, default] [, Xpos] [, Ypos] [, help_file, content])

Тази функция изисква само аргумент. поканаСтойност на аргумента покана- единственият задължителен аргумент за тази функция е текстов низ, който се показва в диалоговия прозорец за въвеждане като съобщение. Този текст трябва да бъде поставен в двойни кавички.

Аргумент заглавка

Аргумент по подразбиранезадава стойността, която се показва по подразбиране в полето за въвеждане, докато потребителят въведе тяхната стойност. Ако този аргумент е пропуснат, полето за въвеждане се показва празно.

Незадължителни аргументи XposИ Yposзадайте позицията на прозореца за въвеждане на екрана. Аргументи помощен_файлИ съдържание

Връщаната стойност на функцията InputBox е стойността, въведена от потребителя в полето за въвеждане.

2. Функция MsgBox

Кутията за съобщения се създава от функцията MsgBox, която има следния синтаксис:

Променлива = MsgBox(Подкана[, Бутони] [, Заглавие [, help_file, съдържание])

Стойност на аргумента покана- единственият задължителен аргумент за тази функция е текстов низ, който се показва като съобщение в диалоговия прозорец. Този текст трябва да бъде поставен в двойни кавички. Обърнете внимание на използването на скоби в синтаксиса на MsgBox - те показват, че в този случай MsgBox е функция, която връща някаква стойност. Ако скобите са пропуснати, тогава за VBA това е знак, че даденият израз не връща стойност. Ако искате да върнете стойност, трябва да използвате код като следния:

Dim i като цяло число

Резултатът от работата на такъв код във VBA ще бъде диалогов прозорец с три бутона "Да", "Не", "Отказ" и с икона удивителен знакв жълтия триъгълник.

Ако не е даден аргумент Бутони, тогава VBA предлага само един бутон "OK". Аргумент Бутониви позволява да контролирате следните опции на полето за съобщения:

¨ Броят на бутоните в прозореца.

¨ Видове бутони и и x разположение в прозореца.

¨ Икони, показани в прозореца.

¨ Кой бутон е назначен по подразбиране.

¨ Режим (модалност) на кутията за съобщения.

Таблица 1 показва възможните настройки за този аргумент. Първата група стойности задава броя и вида на бутоните. Вторият ви позволява да изберете иконата, показана в прозореца. Третият задава бутон по подразбиране. Четвъртата група задава режима на кутията за съобщения. За да създадете крайната стойност на аргумент Бутониможете да използвате само една стойност от всяка група, като ги комбинирате със знак плюс.

Раздел. 1. Настройки на аргумента Бутони MsgBox функции

За да не се правят грешки при въвеждане на стойности на аргументи Бутони, използвайте списъка с константи, който се появява, след като въведете знака "+". Знакът "+" се използва за комбиниране на множество константи при посочване на сложен аргумент Бутони.

Аргумент заглавкасе използва за определяне на текста, който се поставя в заглавната лента на прозореца за въвеждане. Ако този аргумент не е посочен, Microsoft Excel се показва в заглавната лента.

Аргументи помощен_файлИ съдържаниесе използват, ако създавате своя собствена помощна система за вашето приложение.

Таблица 2 изброява стойностите, върнати от функцията MsgBox . Връщаната стойност зависи от бутона, натиснат от потребителя.

Раздел. 2. Стойности, върнати от функцията MsgBox

Най-добър тип Променливата за връщане на функцията MsgBox е Integer.

Обхват и обекти от клетки

Във VBA клетките на работния лист се третират като обект Range. Това е най-често използваният артикул.

Обектът Range използва формата A1, когато работи с клетки.

формат А1.Препратката се състои от име на колона (означено с букви от A до IV, максимум 256 колони) и номер на ред (от 1 до 65536). Например A77. За да се позовава на диапазон от клетки, се посочват адресите на горната лява и долната дясна клетка на диапазона, разделени с двоеточие. Например, B10:B20, 7:7 (всички клетки в ред 7), 5:10 (всички клетки между редове 5 и 10 включително), D:D (всички клетки в колона D), H: J (всички клетки между колони H и J включително). Абсолютната препратка е знак за долар преди името на реда или колоната.

Обектът Cells използва формата R1C1, когато работи с клетки.

формат R1C1. Във формат R1C1 след буквата "R" се посочва номерът на реда на клетката, след буквата "C" - номерът на колоната. Например, абсолютната препратка R1C1 е еквивалентна на абсолютната препратка $A$1 за формат A1. За да зададете относителна препратка, посочвате отместване спрямо активната клетка. Смесването е посочено в квадратни скоби. Знакът показва посоката на преместване. Например, R[-3]C (относителна препратка към клетка три реда по-високо в същата колона). RC (относителна препратка към клетка два реда надолу и две колони вдясно). R2C2 (абсолютна препратка към клетката, разположена във втория ред и във втората колона). R[-1] (относителна препратка към реда над текущата клетка), R (абсолютна препратка към текущия ред).

Пълният адрес на клетката може също да съдържа името на работника и адреса на книгата. След името на листа се поставя знакът "!", а адресът на книгата се поставя в квадратни скоби. Например: [Book1.xls]Sheet5!D$2.

Обектът Range може да бъде:

§ отделна клетка;

§ избран диапазон от клетки;

§ няколко избрани диапазона от клетки (т.е. набор от несъседни диапазони);

§ ред и колона;

§ триизмерен диапазон (т.е. състоящ се от диапазони, разположени на различни работни листове).

Свойства на обхват и клетки

Методи за обхват и клетки

Обектни методи за диапазон и клетки, които изпълняват команди на Excel

Забележка . Особено трябва да се отбележи, че във VBA (за разлика от Excel) операцията за присвояване се извършва независимо от състоянието на клетката и не я променя. Тези. за да присвоите стойност на клетка (или да получите нейната стойност), изобщо не е необходимо тази клетка да е активна (не забравяйте, че в Excel тя трябва да бъде активирана преди да я въведете в клетка), тя няма да стане активна (ако не беше така преди) и след назначението й от всякакво значение.

Извеждането (предаване до потребителя) на резултатите от програмата и други съобщения се извършва чрез диалоговия прозорец за съобщения.

За организиране на изхода на информация се използва вградена функция MsgBox.

Помислете за опциите за неговото използване.

1. г = квадрат (16)

MsgBox y

2. S=99

MsgBox("S= ” & С)

това е знак конкатенация – амперсанд;

използва се за комбиниране на няколко реда в един

3. a=5: b=101

MsgBox("a="& a & " " & "b=" &б)

4. MsgBox("a=" & a & Chr(13) & "b=" & b)

като използвате тази функция, въведете символ на преход

към нов ред(преобразува число в знак)

Работа с обекти на Excel

Обектен модел на Excelпредставлява йерархия от обекти, подчинени на един обект Приложение, което съответства на при Excel приложение. Обекти превъзхождамса работни книги, работни листове, диаграми, диапазони от клетки, клетки и др.

VBA може програмно да манипулира всеки от тези обекти.

Всеки предметима комплект Имоти, методиИ събития.

Имоте характеристика или параметър на обект.

Методе действие, което обектът може да извърши.

Събитиее действие, на което обектът реагира автоматично.

управлявайте обекта вVBAвъзможно по 3 начина:

промяна на свойствата на обект;

чрез извикване на метода, свързан с обекта;

дефиниране на процедура, която ще се изпълнява като отговор на събитие.

Показване на информация в клетка на Excel

Клетка като обект на Excel във VBA програма се обозначава клетки (i, j), където и- номер на реда jе номерът на колоната на електронната таблица.

Й

смисъл Йще се покаже на активния работен лист excel книгив клетка Б3

Клетки(3, 2) = Y

ОТ

променлива Бще бъде присвоена стойност

който се съхранява в клетката C5

(т.е. съдържание на клетката C5)

B = клетки(5, 3)

vba инструмент за въвеждане

Въвеждането на информация от потребителя се извършва чрез диалоговия прозорец за въвеждане. Реализиран с вградена функция InputBox.

Dim x As Single

х = Val(InputBox("Въведете x"))

Функция InputBoxвръща последователността от знаци, въведени в полето за въвеждане ( 15 ) като тип данни низ(низ). вградена функция Val()преобразува стойност на низ от поле за въвеждане в числова стойност.

Линейни изчислителни процеси

Линеен алгоритъмсе характеризира със строга последователност на изпълнение на блокове в реда на тяхното разположение в схемата - отгоре надолу. Няма условни блокове. Всеки блок се изпълнява веднъж.

Пример 1Изчислете стойността на функцията

при k = 33,5 x = 17

1. Нека съставим алгоритъм за решаване на проблема.

2. В прозореца на редактора на кодове въведете програмния код:

Изрична опция

Подлинеен_процес()

Dim k като единичен, x като единичен, y като единичен„декларация на променлива

x = Val(InputBox("Въведете x стойност"))

y = k * Exp(Sin(x))

MsgBox "y=" & y' показва резултата в диалогов прозорец

край под

Команда Изрична опциязадължава да декларира всички променливи в дадената програма. Може да се постави само в секцията за декларация на модул.