Помощничек
Главная | Обратная связь


Археология
Архитектура
Астрономия
Аудит
Биология
Ботаника
Бухгалтерский учёт
Войное дело
Генетика
География
Геология
Дизайн
Искусство
История
Кино
Кулинария
Культура
Литература
Математика
Медицина
Металлургия
Мифология
Музыка
Психология
Религия
Спорт
Строительство
Техника
Транспорт
Туризм
Усадьба
Физика
Фотография
Химия
Экология
Электричество
Электроника
Энергетика

Ведение личной переписки. 10 страница



Worksheets("Лист1").Range("A11").EntireRow.Insert

With Worksheets("Лист1")

Range("A11").Value = ComboBox1.Text

Range("B11").Value = ComboBox2.Text

Range("C11").Value = TextBox3.Text

Range("D11").Value = TextBox4.Text

ComboBox1.Text = ""

ComboBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

End With

End Sub

 

Private Sub CommandButton2_Click()

Unload Me

End Sub

 

Вся программа состоит из 4 процедур: UserForm_Initialize, ComboBox1_Change, CommandButton1_Click и CommandButton2_Click.

Первая процедура UserForm_Initialize обрабатывает событие Initialize, которое имеет место сразу после запуска программы на выполнение, это процедура инициализации или установки начальных значений. Эта процедура формирует список элемента ComboBox1, в который записываются наименования операций. Для этого использован оператор ComboBox1.List = Array("Доставка", "Отпрака", "Оформление", "Сортировка", "Разгрузка"), который создает массив этих значений и присваивает их свойству List элемента управления ComboBox1. Эта же процедура записывает список "Наименований изделий" и присваивает их свойству List элемента управления ComboBox2. При этом "Наименования изделий" предварительно записываются в массив m.

Вторая процедура ComboBox1_Change используется для ввода даты в поле TextBox4, где его свойству Text присваивается текущее значение даты. Для этого используется функция Date. Эта процедура (ComboBox1_Change) выполняется при изменении значения в поле элемента управления ComboBox1, т.е. при наступлении события Change.

Третья процедура CommandButton1_Click выполняется при наступлении события Click, т.е. при выполнении щелчка на элементе CommandButton1. Эта процедура выполняет следующие действия:

- создание новой (всегда одиннадцатой) строки для ввода очередной записи, т.е. вставка пустой одиннадцатой строки;

- формирование одиннадцатой строки из значений текстовых полей элементов управления, размещенных на форме. При этом значение поля "Цена" заполняется вручную;

- очистка свойств "Text" четырех элементов управления.

Четвертая процедура CommandButton2_Click выполняется при наступлении события Click, т.е. при выполнении щелчка на элементе CommandButton2. Она содержит только один оператор Unload Me и выполняет завершение (останов) программы.

 
 

 

 


Рис.6.1

 

Вид окна MS Excel после запуска программы на выполнение покаран на рис.6.2.

 
 

 


Рис.6.2.

 

При вводе данных в базу данных на форме необходимо раскрыть поле со списком, помеченное как "Операция", и выбрать необходимое значение с помощью мыши. Аналогично выбирается значение в поле со списком, помеченное как "Изделие". Значение в поле "Цена" вводится вручную с помощью клавиатуры. В поле "Дата" автоматически вводится значение текущей даты. После формирования на форме данных каждой строки необходимо нажимать кнопку "Ок" для записи значений на "Лист1". После ввода и записи всех строк следует нажат кнопку "Выход" для выхода из программы, т.е. для завершения ее работы.

 

2. Порядок выполнения работы

 

2.1.Изучить настоящие методические указания;

2.2.На рабочих листе "Лист1", записать наименования изделий в ячейки "А1 … А8";

2.3.В 10-ю строку ввести шапку таблицы

Операция Изделие Цена Дата

2.4.Вызвати редактор VBA;

2.5.Вставить форму в окно VBA;

2.6.Ввести программный код всех процедур;

2.7.Отладить программу;

2.8.Выполнить формирование базы данных:

2.9. Проанализировать полученные результаты;

2.13.Сделать выводы;

2.14.Оформить отчет.

 

3.Содержание отчета

 

Отчет по работе должен содержать:

3.1.Цель работы;

3.2.Постановку задачи и исходные данные;

3.3.Исходные и результирующие таблицы;

3.4.Текст процедуры на VBA;

3.5.Выводы по работе.

 

4.Контрольные вопросы

 

4.1.Поясните назначение окна редактора кода.

4.2.Как вызывается окно редактора кода ?.

4.3.Как вставить форму в окно редактора кода?

4.4.Как построить на VBA процедуру обработки какого-либо события?

4.5.Как вызвать окно кода VBA?

4.6.Какие вы знаете операторы цикла VBA?

 


Лабораторная работа № 24 Процедуры на VBA с эл-тами управления "Поле со списком"

 

Цель работы: 1)изучение технологии работы с формами и элементами управления в среде VBA MS Excel;

2)изучение технологии разработки пользовательского интерфейса на основе элементов управления VBA MS Excel;

 

Объем работы 2 часа

 

1.Методические указания

1.1.Редактолр кода VBA MS Excel позволяет пользователю (программисту) разработать удобный интерфейс для ввода данных и просмотра результатов расчета на основе форм и соответствующих элементов управления.

Для вызова формы в среде редактора кода VBA MS Excel необходимо в меню Insert (Вставка) выполнить команду User Form (Форма), после чего форма и окно элементов управления появятся на рабочем столе. Для разработки пользовательского интерфейса используются такие элементы управления, как "Надпись" (Label) "Текст" (Text), "Поле со списком" (Combo Box), "Командная кнопка" (Command Button) и другие. В начале элементы управления перетаскиваются на форму, затем устанавливаются их соответствующие свойства и наконец записывается программный код для обработки соответствующих событий на языке VBA.

Постановка задачи. Требуется построить пользовательский интерфейс и программу на VBA для формирования базы данных операций, производимых с товарами.

На рабочем листе "Лист1" в первых 8 строках столбца А записаны наименования 8 товаров (Компьютеры, Принтеры, Сканеры, Модемы, Плоттеры, Клавиатуры, Мыши, Мониторы), в 10строке сформирована шапка таблицы следующего вида:

 

  A B C D
  . . .      
Операция Изделие Цена Дата

 

Требуется построить интерфейс на VBA для формирования базы данных операций, производимых с товарами. Окно интерфейса должно содержать следующие элементы:

- надпись (Label1) и поле со списком (ComboBox1) для ввода "Операции";

- надпись (Label2) и поле со списком (ComboBox2) для ввода "Наименования изделия";

- надпись (Label3) и текстовое поле (TextBox1) для ввода "Суммы";

- надпись (Label4) и текстовое поле (TextBox2) для ввода "Даты";

- кнопку (CommandButton1) "Ок";

- кнопку (CommandButton2) "Выход".

Элементы "Надпись и поле со списком для ввода "Операции" и "Надпись и поле со списком для ввода "Наименования изделия" заключить в рамку (Frame).

 

Вызовем форму как описано выше. Разместим на ней указанные выше элементы управления. Приведем форму к виду, приведенному ниже на рис. 6.1.

Вызовем окно кода и создадим следующий код:

 

Private Sub UserForm_Initialize()

Dim m(8) As Variant

ComboBox1.List = Array("Доставка", "Отпрака", "Оформление", _

"Сортировка", "Разгрузка")

With Worksheets("Лист1")

For i = 1 To 8

m(i) = Cells(i, 1)

Next i

End With

ComboBox2.List = m

End Sub

 

Private Sub ComboBox1_Change()

TextBox4.Text = Date

End Sub

 

Private Sub CommandButton1_Click()

'Создание новой строки для ввода данных

Worksheets("Лист1").Range("A11").EntireRow.Insert

With Worksheets("Лист1")

Range("A11").Value = ComboBox1.Text

Range("B11").Value = ComboBox2.Text

Range("C11").Value = TextBox3.Text

Range("D11").Value = TextBox4.Text

ComboBox1.Text = ""

ComboBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

End With

End Sub

 

Private Sub CommandButton2_Click()

Unload Me

End Sub

 

Рис.6.1

 

Вся программа состоит из 4 процедур: UserForm_Initialize, ComboBox1_Change, CommandButton1_Click и CommandButton2_Click.

Первая процедура UserForm_Initialize обрабатывает событие Initialize, которое имеет место сразу после запуска программы на выполнение, это процедура инициализации или установки начальных значений. Эта процедура формирует список элемента ComboBox1, в который записываются наименования операций. Для этого использован оператор ComboBox1.List = Array("Доставка", "Отпрака", "Оформление", "Сортировка", "Разгрузка"), который создает массив этих значений и присваивает их свойству List элемента управления ComboBox1. Эта же процедура записывает список "Наименований изделий" и присваивает их свойству List элемента управления ComboBox2. При этом "Наименования изделий" предварительно записываются в массив m.

Вторая процедура ComboBox1_Change используется для ввода даты в поле TextBox4, где его свойству Text присваивается текущее значение даты. Для этого используется функция Date. Эта процедура (ComboBox1_Change) выполняется при изменении значения в поле элемента управления ComboBox1, т.е. при наступлении события Change.

Третья процедура CommandButton1_Click выполняется при наступлении события Click, т.е. при выполнении щелчка на элементе CommandButton1. Эта процедура выполняет следующие действия:

- создание новой (всегда одиннадцатой) строки для ввода очередной записи, т.е. вставка пустой одиннадцатой строки;

- формирование одиннадцатой строки из значений текстовых полей элементов управления, размещенных на форме. При этом значение поля "Цена" заполняется вручную;

- очистка свойств "Text" четырех элементов управления.

Четвертая процедура CommandButton2_Click выполняется при наступлении события Click, т.е. при выполнении щелчка на элементе CommandButton2. Она содержит только один оператор Unload Me и выполняет завершение (останов) программы.

Вид окна MS Excel после запуска программы на выполнение покаран на рис.6.2.

 

Рис.6.2.

 

При вводе данных в базу данных на форме необходимо раскрыть поле со списком, помеченное как "Операция", и выбрать необходимое значение с помощью мыши. Аналогично выбирается значение в поле со списком, помеченное как "Изделие". Значение в поле "Цена" вводится вручную с помощью клавиатуры. В поле "Дата" автоматически вводится значение текущей даты. После формирования на форме данных каждой строки необходимо нажимать кнопку "Ок" для записи значений на "Лист1". После ввода и записи всех строк следует нажат кнопку "Выход" для выхода из программы, т.е. для завершения ее работы.

 

2. Порядок выполнения работы

 

2.1.Изучить настоящие методические указания;

2.2.На рабочих листе "Лист1", записать наименования изделий в ячейки "А1 … А8";

2.3.В 10-ю строку ввести шапку табицы

Операция Изделие Цена Дата

2.4.Вызвати редактор VBA;

2.5.Вставить форму в окно VBA;

2.6.Ввести программный код всех процедур;

2.7.Отладить программу;

2.8.Выполнить формирование базы данных:

2.9. Проанализировать полученные результаты;

2.13.Сделать выводы;

2.14.Оформить отчет.

 

3.Содержание отчета

 

Отчет по работе должен содержать:

3.1.Цель работы;

3.2.Постановку задачи и исходные данные;

3.3.Исходные и результирующие таблицы;

3.4.Текст процедуры на VBA;

3.5.Выводы по работе.

 

4.Контрольные вопросы

 

4.1.Поясните назначение окна редактора кода.

4.2.Как вызывается окно редактора кода ?.

4.3.Как вставить форму в окно редактора кода?

4.4.Как построить на VBA процедуру обработки какого-либо события?

4.5.Как вызвать окно кода VBA?

4.6.Какие вы знаете операторы цикла VBA?

 


Лабораторная работа № 25. Электронная почта средствами Microsoft Outlook

 

Цель работы: 1 приобрести опыт по созданию и обработке сообщений электронной почты.

 

Объем работы 2 часа

 

Методические указания

1 Основные положения

Под электронной почтой понимается возможность получать и отправлять текстовые сообщения и двоичные файлы. Каждый пользователь имеет электронный почтовый адрес в формате:

имя@адрес

где имя — учетное имя пользователя; адрес — электронный почтовый ящик, т.е. идентификатор особого компьютера, который непосредственно занимается обработкой электронной корреспонденции пользователя. Обычно наименование почтового ящика отражает страну расположения, регион и учреждение, которое занимается предоставлением связи. Все названия разделяются точкой. Например: bspa@unibel.minsk.by

Для отправки письма достаточно лишь знать электронный адрес человека, которому необходимо послать сообщение. Обмен электронными посланиями проходит чрезвычайно быстро. Если традиционное письмо, отправленное с помощью обычной почты, доходит до адресата лишь за несколько дней, то с помощью электронных сообщений в течение дня можно одному и тому же человеку послать письмо, получить ответ, снова послать письмо и так далее.

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

Основными областями применения электронной почты являются:

Ведение личной переписки.

 




Поиск по сайту:

©2015-2020 studopedya.ru Все права принадлежат авторам размещенных материалов.