Создание собственного головного меню

' Макрос записан  12.11.2010 (student)

' 

'

    ActiveCell.FormulaR1C1 = _

        "=(((R[-6]C*R[-4]C)*R[-5]C)/R[-6]C)-(((R[-3]C*R[-4]C)*R[-2]C)/R[-3]C)"

    Range("C18").Select

End Sub

    10. Вызвать редактор Visual Basic, нажав на строке меню «Сервис» → «Макрос» → «Редактор Visual Basic».

11. В появившемся редакторе на строке меню нажать «Insert» → «Module». 
 
 
 
 
 
 
 
 
 

    12. В окне модуля записать код  первой программы . 

Public Sub Лин_РЛ_2()

Dim Y, A, T, U, n, k

A = Worksheets("Лин_процесс").Range("C3").Value

T = Worksheets("Лин_процесс").Range("C4").Value

T = Worksheets("Лин_процесс").Range("C5").Value

n = Worksheets("Лин_процесс").Range("C6").Value

k = Worksheets("Лин_процесс").Range("C7").Value

Worksheets("Лин_процесс").Range("C8").Value = Y

End Sub

    13. Записать код второй программы  в окно модуля с использованием  диалоговых окон InputBox и MsgBox для ввода и вывода данных. 

Sub Лин_окна_2()

Dim Z As Single

A = InputBox("Введите  A", "Ввод данных")

T = InputBox("Введите  T", "Ввод данных")

U = InputBox("Введите  U", "Ввод данных")

n = InputBox("Введите  n", "Ввод данных")

k = InputBox("Введите  k", "Ввод данных")

Y = (((A * U) * T) / A) - (((n * U) * k) / n)

MsgBox Y, "Вывод Y"

End Sub 

    14. Создать функцию, нажав на строке меню «Insert» → «Procedure». В окне добавления процедуры в поле «Name» записать Yfun, в поле «Type» выбрать «Function», в поле «Scope» - «Public». Нажать «Ok». 

    15. Внутри скобок заголовка функции  в окне модуля ввести имя  ее параметров с указанием  типов переменных, а за скобками  указать тип значения, возвращаемого  функцией. Записать функцию. 

Public Function Yfun(A As Single, T As Single, U As Single, n As Single, k As Single) As Single

Yfun = (((A * U) * T) / A) - (((n * U) * k) / n)

End Function

    16. Проверить работу функции на  контрольном примере, вызвав ее  с помощью мастера функций  с листа «Лин_процесс». Выполнить команду «Вставка» → «Функция». В диалогов окне «Мастер функций» выбрать в категориях «Определенные пользователем» и указать имя созданной функции. 

   Список  используемой литературы 

1. Иванов  М.Н., Суворов С.В. Информатика Часть 2. Программирование. Учебно-методическое пособие – М.; МГИУ, 2004
2. Слепцова Л.Д. Программирование на языке VBA. Самоучитель,: -М.: Издательский дом «Вильямс», 2004
3. Глушаков С.В., Сурядный А.С. Программирование на Visual Basic 6.0. – М.: «Фолио», 2006. – 497с.
4. Ананьев А.И., Фёдоров А.Ф. Самоучитель Visual Basic 6.0. – СПб.: БХВ - Петербург, 2007. – 624 с.: ил.
5. Кузьменко В.Г. Visual Basic 6. Самоучитель. Второе издание. - М Бином, 2006. – 432с.: ил.
6. Симонович С.В. , Евсеев Г.А. Занимательное программирование: Visual Basic. – М.: АСТ-Пресс Книга: Информком-Пресс, 2001. – 320с.