Алгоритмы поиска. Кнопка «Поиск» на форме «Поиск» служит для поиска из таблицы «Отливки» данные о каждой из позиции

Кнопка «Поиск» на форме «Поиск» служит для поиска из таблицы «Отливки» данные о каждой из позиции. Результат поиска отображается на отдельных для каждого значения полях. Например, для TextBox2 соответствует значение столбца «Наименование».

 

Рисунок 2.3

 

Код программы поиска:

 

Private Sub CommandButton1_Click()

Лист1.Activate

Do

i = i + 1

Loop Until Cells(i, 1) = Empty

If a <> 1 Then

TextBox6 = TextBox7

a = 1

End If

Лист1.Activate

Do

i = i + 1

Loop Until Cells(i, 1) = Empty

For i = 1 To j

Next i

j = TextBox6.Text

TextBox6.Text = i

If TextBox6.Text <> "" Then

TextBox6.Text = TextBox7

End If

If TextBox7 = TextBox6.Text Then

TextBox2.Text = Cells(i + j, 2)

End If

If TextBox7 = TextBox6.Text Then

TextBox3.Text = Cells(i + j, 3)

End If

If TextBox7 = TextBox6.Text Then

TextBox4.Text = Cells(i + j, 4)

End If

If TextBox7 = TextBox6.Text Then

TextBox5.Text = Cells(i + j, 5)

End If

End Sub

 

3. ПРОЕКТИРОВАНИЕ ПОЛЬЗОВАТЕЛЬСКОГО ИНТЕРФЕЙСА

3.1. Главное меню программы

При активизации рабочей книги пользователь (при необходимости) должен кликнуть по кнопке «Меню», которая открывает форму «Меню», содержащую следующие кнопки:

Поиск – открывает форму для поиска позиций по индивидуальному коду;

Начать работу – открывает форму для работы с таблицами на листах с 5-го по 12-й;

Об авторе – Открывает форму с информацией об авторе;

Выход– с помощью оператора End закрывает форму «Меню»

Форма главного меню выглядит следующим образом (Рисунок 3.1):

 

 

Рисунок 3.1

 

 

3.2. Основные формы программы

Рисунок 3.2 а

 

Эта пользовательская форма (рис. 3.2 а) позволяет работать с таблицей, содержащей исходные данные. Исходные данные для этой формы находятся на листе «Отливки». Эта форма позволяет вводить пользователю минимум данных для заполнения таблиц «Январь», …, «Декабрь».

 

 

3.3. Этапы загрузки данных

 

 

Например таблица «Март»

 

3.4. Справочная система

 

ЗАКЛЮЧЕНИЕ

 

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

 

 

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Практикум по информатике. Учебное пособие Е.В.Михеева 3-е изд. стер. М.ИЦ. Академия 2006.

2. Информатика. Учебник И.И. Сергеева М.ФОРУМ ИНФРА-М. 2006.

3. Кузьменко В.Г. VBA: учебник, Бином, 2009.

4. Роман С. Использование макросов в Excel. – 2-е изд., Спб.: Питер, 2004.

5. Гладких А.А., Чиртик А.А. Excel. Трюки и эффекты. – СПб.: Питер, 2007.