Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
32<br />
Примеры<br />
Sub ПростаяПроцедура ()<br />
' Вызы<strong>в</strong>аются один за другим д<strong>в</strong>а ранее описанных макроса<br />
Макрос1<br />
Макрос2<br />
End Sub<br />
Sub ВыделитьУдалитьТекст ()<br />
Call ВыделитьТекст ‘ Вызо<strong>в</strong> ранее описанных подпрограмм<br />
Call УдалитьТекст<br />
End Sub<br />
Sub Вста<strong>в</strong>итьПереместитьУдалитьЛист ()<br />
Вста<strong>в</strong>итьЛист 1, 2 ‘ Вызо<strong>в</strong>ы подпрограмм с аргументами<br />
Call ПереместитьЛист (1, 2)<br />
УдалитьЛист книга := 2, лист := 1<br />
End Sub<br />
Переменные и константы<br />
Пер<strong>в</strong>ые шаги <strong>в</strong> программиро<strong>в</strong>ании полезно сопро<strong>в</strong>ождать <strong>в</strong>ы<strong>в</strong>одом <strong>на</strong><br />
экран сообщений. Синтаксис сообщения имеет <strong>в</strong>ид:<br />
MsgBox [( ]Текст[,Кнопки [,Заголо<strong>в</strong>ок]] [ )]<br />
Сообщение предста<strong>в</strong>ляет собой текст <strong>в</strong> стандартном окне. Лексема MsgBox<br />
я<strong>в</strong>ляется именем функции Visual Basic, которая <strong>в</strong>ы<strong>в</strong>одит <strong>на</strong> экран текст и<br />
может <strong>в</strong>оз<strong>в</strong>ращать одну из констант, прис<strong>в</strong>оенных <strong>на</strong>жатой <strong>в</strong> окне диалога<br />
кнопке.<br />
Примеры<br />
Sub ПростоеСообщение ()<br />
MsgBox "Сообщаю, что <strong>в</strong>се <strong>в</strong> порядке"<br />
MsgBox ("Сообщаю, что <strong>в</strong>се <strong>в</strong> порядке")<br />
MsgBox "Сообщаю," & Chr (13) & "что <strong>в</strong>се <strong>в</strong> порядке"<br />
End Sub<br />
Sub ВремяДатаИПробелы ()<br />
MsgBox "Сейчас " & Now<br />
MsgBox "Сегодняшняя дата: " & Day (Date) & Space (2) _<br />
& Month (Date) & Space (2) & Year (Date)<br />
End Sub<br />
Sub КонстантаЯзыка ()<br />
MsgBox "Задание <strong>в</strong>ыполнено!", vbExclamation, "Операции с текстом"<br />
End Sub