Содержание
2.2. Условие задачи на использование экранной формы в таблице Excel.
В таблице Excel имеется документ, «справка о нереализованной товарной продукции». В справке имеются следующие реквизиты:
Во-первых, наименование товарной продукции. Реквизит представлен в виде символьной строки длиной в 40 символов.
Во-вторых, количество продукции. Реквизит представлен в виде числа, не имеющего дробной части.
В-третьих, цена продукции. Реквизит представлен в виде числа, имеющего дробную часть.
В-четвертых, плановая дата реализации товарной продукции. Информация представлена в виде символьной строки размером в шесть символов. Первые два символа обозначают месяц. Символы с третьего по шестой обозначают год.
Первая строка содержит наименование реквизитов. Начиная со второй строки, располагаются значения реквизитов. Количество заполненных строк таблицы не фиксируется
Требуется, создать в текстовом редакторе Excel экранную форму, которая обеспечит определение наименования самой дорогой, не реализованной, товарной продукции.
2.3. Распечатка программного кода
Программный код модуля Globals (файл Task2_TovTable.xls)
Option Explicit
Public TovPosAs Integer
Public TovNaimAs String
Public TovQtyAs Double
Public TovPriceAs Double
Public TovDateAs String
Программный код формы MaxPosForm (файл Task2_TovTable.xls)
Option Explicit
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
If TovPos > 0 Then
lblInfo.Caption = _
"Наименование… : " & TovNaim & vbCrLf & _
"Количество….. : " & Format(TovQ————— _
"Цена……….. : " & Format(TovPrice, "#0.00") & vbCrLf & _
"Дата реализации : " & Left(TovDate, 2) & "." & Right(TovDate, 4)
Else
lblInfo.Caption = "Нереализованных товаров НЕТ!"
End If
End Sub
Программный код обработки нажатия кнопки (файл Task2_TovTable.xls)
Option Explicit
PrivateSubcmdTest_Click()
' определение кол-во заполненных строк
Dim ksAs Integer
Dim s As String
Dim sh As Worksheet
Set sh = ActiveSheet
ks = sh.UsedRange.Rows.Count
' искать нереализованную позицию максимальной стоимости
Dim maxPos As Integer
Dim maxS As Double
Dim tK As Double
Dim tDAs String
Dim k As Integer
Dim tMAs String
Dim tY As String
Программный код модуля NewMacros (файл Task3_MarsList.doc) — Верный код
Sub MarsList()
'
' MarsList Макрос
'
Dim f As ListForm
Set f = New ListForm
f.Show vbModal
End Sub
Выдержка из текста
1. Создание и выполнение экранной формы в программной среде Word.
1.1. Организация создания и выполнения экранной формы.
Для решения задачи используем файл MSWord Task1_Counter45.doc, содержащий начальный текст (пояснения по порядку выполнения задания и фрагмент таблицы умножения), в котором создаем макрос Count_45 для решения поставленной задачи.
1.2. Условие задачи на использование экранной формы.
Требуется создать в текстовом редакторе Word экранную форму, которая обеспечит определение, каких цифровых символов введенной строке больше: четверок или пятерок. Учесть возможность равенства количества данных цифровых символов.
1.3. Распечатка программного кода
Решением задачи является файл MSWord Task1_Count45.doc. Файл содержит начальный текст, содержащий фрагмент таблицы умножения, а также макрос Count_45, выполняющий все необходимые действия.
Список использованной литературы
1. С.Каммингс, VBA для чайников. М: OOO «И.Д.Вильямс», 2003, 448 с.
2. Слепцова Л.Д. Программирование на VBA в MicrosoftOffice 2010. – М.: OOO «И.Д.Вильямс», 2010. –432 с.