Объективно-ориентированное программирование на VBA в среде Excel

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

    Range("E4:E6").Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

    Range("F4:F6").Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

    Range("G4:G6").Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

    Range("H4:H6").Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

End Sub

2. Диалоговое окно (форма пользователя), реализующая интерфейс пользователя с проектом.

Создание пользовательской формы UserForm1:                                                                 (Рис.1)

Пользовательская  форма создается при помощи ВЭУ (визуальных элементов управления), которые находятся в Toolbox. В UserForm1 используется следующий элемент: 

       CommandButton – широко используется для управления программами. Связанный с кнопкой алгоритм управления реализуется в обработчике событий OnClick;

       Присваиваем каждому элементу название: 

       

• CommandButton- Ввод заголовка
• CommandButton- Ввод исходных данных
• CommandButton- Расчет
• CommandButton- Очистка
• CommandButton- Закрыть

 

     3. Диалоговое окно (форму  пользователя) для  ввода данных в  таблицу 

Создание пользовательской формы UserForm2:

(Рис.2) 

В UserForm2 используются следующие элементы:

       TextBox – используется для ввода пользователем однострочных текстов. Можно использовать для отображения текста. Компонент визуальный;

         Label – отображает заголовок, индикатор обязательного поля и индикатор ошибки проверки для пользователя;

         CommandButton – широко используется для управления программами. Связанный с кнопкой алгоритм управления реализуется в обработчике событий OnClick;

       Присваиваем элементам Label и CommandButton названия:

       Label1- Наименование товара

       Label2- Един. измерения

       Label3- Группа

       Label4- Количество

       Label5- Стоимость млн. долл.

       CommandButton- Занесение в таблицу 
 
 

4. Процедура нахождения строки ввода.

Option Explicit

Public n%, i%

Sub Таблица()

n(глобальная) = InputBox("Введите количество закупленных единиц")

i = 1

Load UserForm1

UserForm1.Show

End Sub

    

      5-6.Процедура построчной записи информации из окон ввода формы в таблицу.

Private Sub CommandButton1_Click()

Cells(i + 6, 1).Value = TextBox1.Text

Cells(i + 6, 2).Value = TextBox2.Text

Cells(i + 6, 3).Value = TextBox3.Text

Cells(i + 6, 4).Value = TextBox4.Text

Cells(i + 6, 5).Value = TextBox5.Text

i = i + 1

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox1.SetFocus

If i > n Then

Unload UserForm2

End If

End Sub 

     7. Процедура расчета значений незаполненных столбцов таблицы.

Private Sub CommandButton3_Click()

For i = 1 To n

Cells(6 + i, 6).Value = (Cells(6 + i, 4) * Cells(6 + i, 5)) * 0.1

Cells(6 + i, 7).Value = (Cells(6 + i, 4) * Cells(6 + i, 5)) * 0.15

Cells(6 + i, 8).Value = (Cells(6 + i, 4) * Cells(6 + i, 5)) + Cells(6 + i, 6) + Cells(6 + i, 7)

Next i

End Sub 

     8. Процедура очистки таблицы.

Private Sub CommandButton4_Click()

Range(Cells(7, 1), Cells(n + 7, 12)).Clear

End Sub 

     9. Вспомогательные вопросы.

Ввод заголовка:

Private Sub CommandButton1_Click()

Call Шапка

End Sub 
 
 

Ввод исходных данных:

Private Sub CommandButton2_Click()

Load UserForm2

UserForm2.Show

End Sub 

Закрыть:

Private Sub CommandButton5_Click()

Unload UserForm1

End Sub 

11. Управляющую кнопку на рабочем  столе для запуска  проекта.

      Запуск  приложения осуществляется соответственно щелчком левой клавиши мыши на кнопку (Рис. 3), который был назначен под именем «Таблица». Макрос же в свою очередь вызывает окно, для ввода количества закупленных единиц.  

 
 
 
 
 
 

                             (Рис. 3) 

5. Окончательный вид таблицы «Экспорт основных товаров  из России в январе- сентябре 1992г.»

 
 

«Экспорт  основных товаров из России в январе- сентябре 1992г.»