Разработка проектных решений по системе и её частям

⇐ ПредыдущаяСтр 4 из 5Следующая ⇒

Microsoft Excel 2010 — это очень мощный инструмент, который можно использовать для управления данными, их анализа и представления. Но иногда, несмотря на богатый набор возможностей стандартного интерфейса пользователя Excel, может понадобиться найти несложный способ выполнять повседневные повторяющиеся задачи или какие-то задачи, которые не удается решить с помощью интерфейса пользователя. К счастью в приложения Office, такие как Excel, интегрирован Visual Basic для приложений (VBA), язык программирования, позволяющий расширять возможности этих приложений.

VBA работает, выполняя макросы, пошаговые процедуры, написанные на языке Visual Basic. Общепризнано, что самой распространенной причиной использования VBA в Excel является автоматизация повторяющихся задач.

Основы программирования на VBA

Использование кода для выполнения операций приложениями

Может показаться, что написание кода — сложный или загадочный процесс, но его базовые принципы основаны на применении повседневной логики и вполне доступны. Приложения Office 2010 созданы так, чтобы предоставлять сущности, называемые объектами, которые могут принимать инструкции. Пользователь может взаимодействовать с приложениями, отправляя инструкции различным объектам приложения. Эти объекты являются многочисленными, разнообразными и гибкими, но у них есть свои ограничения. Они могут делать только то, для чего были разработаны, и выполняют только написанные для них инструкции.

Объекты

Программируемые объекты связаны друг с другом в иерархию, называемую объектной модельюприложения. Грубо говоря, объектная модель отражает то, что показывается в интерфейсе пользователя, например, объектная модель Excel содержит, среди многих других, объекты Application, Workbook, Sheet и Chart. Объектная модель является общей картой приложения и его возможностей.

Свойства и методы

Управлять объектами можно, задавая их свойства и вызывая их методы. Задание свойства изменяет некоторое качество объекта. Вызов метода заставляет объект выполнить некоторое действие. Например, у объекта Workbook есть метод Close, закрывающий книгу, и свойство ActiveSheet, представляющее лист, активный в данный момент в книге.

Коллекции

Многие объекты поставляются в версиях единственного и множественного числа — Workbook и Workbooks, Worksheet и Worksheets и т. д. Версии множественного числа называются коллекциями. Объекты коллекции используются для выполнения действия над несколькими объектами коллекции. Позднее в данной статье рассматривается, как использовать коллекцию Worksheets для изменения имени каждого листа книги.

Макросы и редактор Visual Basic

Теперь, познакомившись с предоставлением объектной модели приложения Microsoft Excel 2010, можно попробовать вызвать методы объекта и задать его свойства. Для этого необходимо написать свой код таким образом, чтобы он распознавался в Office. Обычно это делается с помощью редактора Visual Basic. Несмотря на то, что он установлен по умолчанию, многие пользователи не знают о его наличии, пока этот редактор не будет включен его на ленте.

Вкладка " Разработчик"

Все приложения Office 2010 используют ленту. Одной из вкладок на ленте является вкладкаРазработчик, на которой можно вызвать редактор Visual Basic и другие инструменты разработчика. Поскольку в Office 2010 вкладка Разработчик не показана по умолчанию, необходимо вывести ее на экран, выполнив следующую процедуру.

Включение вкладки " Разработчик"

На вкладке Файл выберите Параметры, чтобы открыть диалоговое окно Параметры Excel.

Щелкните Настройка ленты в левой части диалогового окна.

В разделе Выбрать команды из, расположенном слева в окне, выберите Популярные команды.

В разделе Настройка ленты, который находится справа в диалоговом окне, выберите Основные вкладки, а затем установите флажок Разработчик.

Нажмите кнопку ОК.

Когда вкладка Разработчик появится в интерфейсе Excel, обратите внимание на местонахождение на вкладке кнопок Visual

Basic, Макрос и Безопасность макросов (Рисунок 2.2).

Рисунок 2.2- Вкладка " Разработчик" в Excel 2010

Проблемы безопасности

Нажмите кнопку Безопасность макросов, чтобы определить, какие макросы могут выполняться и при каких условиях. Хотя неконтролируемый код макроса может серьезно повредить компьютер, условия безопасности, запрещающие выполнять полезные макросы, могут серьезно ухудшить производительность работы. Безопасность макросов — это сложный и важный вопрос, в котором следует разобраться при работе с макросами Excel.

Для целей этой статьи помните, что если при открытии книги, содержащей макрос, между лентой и листом появляется строка Предупреждение системы безопасности: запуск макросов отключен, можно нажать кнопку Включить содержимое, чтобы включить макрос.

Кроме того, в качестве мер безопасности, нельзя сохранить макрос в формате файлов Excel, используемом по умолчанию (XLSX-файлы), вместо этого макрос должен быть сохранен в файл со специальным расширением, XLSM-файл.

Редактор Visual Basic

Следующая процедура показывает, как создать новую пустую книгу, в которой будут сохраняться макросы. Затем можно сохранить эту книгу в формате XLSM-файла.

Создание новой пустой книги

Нажмите кнопку Макрос на вкладке " Разработчик"

В открывшемся диалоговом окне Макрос введите Hello в поле Имя макроса.

Нажмите кнопку Создать, чтобы открыть редактор Visual Basic с уже введенной структурой нового макроса.

VBA — это полнофункциональный язык программирования с соответствующей полнофункциональной средой программирования. В этой статье рассматриваются только те средства, которые используются для азов программирования, а большинство средств редактора Visual Basic исключено. С учетом этого предупреждения закройте окно Свойства в левой части редактора Visual Basic и не обращайте внимания на два раскрывающихся списка, появляющихся над кодом (Рисунок 2.3).

Рисунок 2.3- Редактор Visual Basic

Редактор Visual Basic содержит следующий код.

Sub Hello()

End Sub

Sub — это сокращение от Subroutine (подпрограмма), которую в данном случае можно определить как " макрос". Вызов макроса Hello приведет к выполнению любого кода между строчками Sub Hello() иEnd Sub.

Теперь изменить макрос, чтобы он был похож на следующий код.

Sub Hello()

MsgBox (" Hello, world! " )

End Sub

Вернитесь на вкладку Разработчик в Excel, а затем снова нажмите кнопку Макрос.

Выберите макрос Hello в появляющемся списке, а затем нажмите кнопку Выполнить, чтобы вывести небольшое окно сообщения, содержащее текст " Hello, world! ".

Только что был создан и запущен пользовательский код VBA в Excel. Нажмите кнопку ОК в окне сообщения, чтобы закрыть его и закончить выполнение макроса.

Если окно сообщения не появляется, проверьте настройки безопасности макросов и перезапустите Excel.

Чтобы создать кнопку для макроса Hello на Панели быстрого доступа, использали следующую процедуру.

Следующая процедура описывает, как создать кнопку для макроса на панели быстрого доступа.

Создание кнопки для макроса на панели быстрого доступа

Перейдите на вкладку Файл.

Нажмите кнопку Параметры, чтобы открыть диалоговое окно Параметры Excel, а затем щелкнитеПанель быстрого доступа.

В списке под надписью Выбрать команды из: выберите Макрос. Найдите текст, похожий наКнига1! Hello, в появляющемся списке и выберите этот текст.

Нажмите кнопку Добавить > >, чтобы добавить макрос в список с правой стороны, а затем нажмите кнопку Изменить…, чтобы выбрать изображение кнопки, связываемой с макросом.

Нажмите кнопку ОК. Новая кнопка должна появиться на Панели быстрого доступа над вкладкой Файл.

Теперь можно быстро запустить макрос в любой момент, не обращаясь к вкладке Разработчик.

При разработки игр мы использовали именно эту технологию. В результате использования этой технологии были созданы игры:

«Угадай число», «Угадайка», «Угадай день и месяц» также были разработаны серия кроссвордов по информатике.

На рисунке 2.4 представлен вид рабочего листа в начале новой игры «Угадай число» (после щелчка на кнопке с надписью “Новая игра”).

Рисунок 2.4-Начало игры «Угадайка»

Прежде всего оформили рабочее поле игры — диапазон ячеек А1: С8:

- установить соответствующие размеры символов, которые будут записываться в каждую ячейку диапазона начертание символов предусмотреть полужирное;

- выравнивание текста в ячейках сделать по левому краю.

Разместите на листе семь кнопок. Создали и “привязали” к кнопке макросы — программы, написанные на языке программирования VBA, которые выполняются по щелчку на той или иной кнопке.

Текст в ячейках выводится по щелчку на кнопке с надписью “Новая игра”, а название игры в ячейку следует ввести “вручную”. По щелчку на этой кнопке очищаются также 8 ячеек рабочего поля игры.

В ходе игры нужно щелкнуть по кнопкам с надписью “Первое действие” … — картина изменится на приведенную на рисунке 2.5. В ней в ячейке будет отражаться действия игрока.

Рисунок 2.5-Игровой момент игры «Угадайка»

Макрос, связанный с кнопками имеет вид:

Sub воп_1()

' воп_1 Макрос

Range(" A1" ).Select

ActiveCell.FormulaR1C1 = " =Лист3! RC"

Range(" A2" ).Select

End Sub

Sub воп2()

' воп2 Макрос

Range(" A2" ).Select

ActiveCell.FormulaR1C1 = " =Лист3! RC"

Range(" A3" ).Select

End Sub

Sub оч()

' оч Макрос

Range(" A1: A8" ).Select

Selection.ClearContents

End Sub

Sub воп3()

' воп3 Макрос

Range(" A3" ).Select

ActiveCell.FormulaR1C1 = " =Лист3! RC"

Range(" A4" ).Select

End Sub

Sub воп4()

' воп4 Макрос

ActiveCell.FormulaR1C1 = " =Лист3! RC"

Range(" A5" ).Select

End Sub

Sub воп5()

' воп5 Макрос

ActiveCell.FormulaR1C1 = " =Лист3! RC"

Range(" A6" ).Select

End Sub

Sub Ответ()

' Ответ Макрос

Range(" A7" ).Select

ActiveCell.FormulaR1C1 = " =R[-1]C-250"

Range(" A8" ).Select

В результате игрок записывает своё число.На экране высвечивается одгаданное число.

Игра «Угадай день и месяц разработан по той же технологии.

Технология пигры «Проект угадайка» отличается тем что, проект создан на VBA и выглдит как на рисунке 2.6.

Рисунок 2.6-Игра «Проект угадайка»

Редактор Visual Basic содержит следующий код:

rivate Sub Cmd1_Click()

Cells(4, 3) = Val(Txt1.Text)

Cells(4, 5) = Val(Txt2.Text)

Cells(4, 7) = Val(Txt3.Text)

Cells(4, 9) = Val(Txt4.Text)

Txt5.Text = Cells(5, 3)

Txt6.Text = Cells(5, 5)

Txt7.Text = Cells(5, 7)

Txt8.Text = Cells(5, 9)

End Sub

Private Sub CommandButton1_Click()

End

End Sub

Private Sub CommandButton2_Click()

Txt1.Text = Cells(6, 3)

Txt2.Text = Cells(6, 5)

Txt3.Text = Cells(6, 7)

Txt4.Text = Cells(6, 9)

Txt5.Text = Cells(7, 3)

Txt6.Text = Cells(7, 5)

Txt7.Text = Cells(7, 7)

Txt8.Text = Cells(7, 9)

Txt9.Text = Cells(7, 10)

⇐ Предыдущая 1 2 345 Следующая ⇒