Public Function Func(u As Single, x As Single) As Single
Func = Log(u * x) ^ 2 + 1
End Function
Таблица Excel, содержащая исходные данные и результат вычисления, приведена на рис. 1.
Рис. 1. Таблица Excel с исходными данными и результатами вычислений
Задание № 2
Задание:
Создать пользовательскую функцию .
Использовать созданную функцию в в формуле Excel для табулирования значений Y при изменении X от 1 до 5 с шагом 0,5.
В ячейках, содержащих результаты вычислений, установить формат – числовой, 3 знака после запятой.
Пример отчета:
Программный код пользовательской функции имеет следующий вид:
Public Function Func(X As Single) As Single
If X > 5 Then
Func = 25 + X ^ 2
ElseIf X >= 1 And X <= 5 Then
Func = Sqr(Abs(X)) + 1
Else
Func = X ^ 3
End If
End Function
Таблица Excel, содержащая исходные данные и результат вычисления, приведена на рис. 2.
Рис. 2. Таблица Excel с исходными данными и результатами вычислений
Задание № 3
Задание:
Создать пользовательскую функцию .
Использовать созданную функцию в процедуре VBA для табулирования значений Y при изменении t от -1 до 5 с шагом 0,5. На рабочем листе Excel создать таблицу с исходными данными и таблицу зависимости от t, а также командную кнопку для запуска процедуры. Предусмотреть очистку таблицы зависимости от результатов выполнения предыдущих расчетов. Создать командную кнопку для запуска процедуры табулирования.
Пример отчета:
Программный код пользовательской функции имеет следующий вид:
Public Function Func(t As Single) As Single
Dim X As Single
X=t^2-2*t+4
If X > 5 Then
Func = 25 + X ^ 2
Else
Func = Sqr(Abs(X)) + 1
End If
End Function
Программный код процедуры:
Public Sub Табуляция ()
Dim Tn As Single, Tk As Single, dT As Single
Dim T As Single, Y As Single
Dim n As Single
Tn = Range("B3")
Tk = Range("C3")
dT = Range("d3")
n = 6'Номер строки листа Excel, начиная с которой
'выводятся результаты табулирования
'Очистка диапазона, в котором могут находиться результаты
'предыдущего выполнения процедуры табулирования
Range("B6", Range("C6").End(xlDown)).Clear
For T = Tn To Tk Step dT
Y = Func(T)
Cells(n, 2) = T
Cells(n, 3) = Y
n = n + 1
Next T
End Sub
Таблица Excel, содержащая исходные данные и результат вычисления процедуры, приведена на рис. 3.
Рис. 3. Таблица Excel с исходными данными и результатами вычислений
Задание № 4
Задание:
Сформировать на рабочем листе Excel одномерный массив, состоящий из положительных, отрицательных и нулевых элементов. Создать процедуру вычисления сумм элементов с четными и нечетными номерами. Выяснить, какая сумма больше. На рабочем лист Excel создать таблицу, содержащую результат выполнения процедуры.
Пример отчета:
Программный код процедуры имеет следующий вид:
Public Sub Сумма()
Dim x() As Single'Объявление динамического массиваХ
Dim n As Integer'Размерность массива Х
Dim Sh As Single, Sn As Single
Dim Txt As String'Переменная для вывода текстового сообщения
Dim i As Byte
'Переменной nприсваивается размерность массива Х, т.е. число,
'равное количеству ячеек в диапазоне, начиная с ячейки B3,
'вниз до первой пустой строки:
n = Range("B3", Range("B3").End(xlDown)).Count
ReDim x(1 To n) As Single'Переопределение размерности массива Х
For i = 1 To n'Ввод заданного массива Х с рабочего
x(i) = Cells(i + 2, 2)'листа Excel в оперативную память
Next i
Sh = 0'Инициализация переменной, для накопления суммы
'элементов с четными номерами
For i = 2 To n Step 2
Sh = Sh + x(i)
Next i
Sn = 0'Инициализация переменной, для накопления суммы
'элементов с нечетными номерами
For i = 1 To n Step 2
Sn = Sn + x(i)
Next i
Range("C3") = Sh
Range("D3") = Sn
If Sh > Sn Then
Txt = "Сумма элементов с четными номерами больше"
ElseIf Sh < Sn Then
Txt = "Сумма элементов с нечетными номерами больше"
Else
Txt = "Суммы равны"
End If
Range("F3") = Txt
End Sub
Таблица Excel, содержащая исходные данные и результат вычисления процедуры, приведена на рис. 4.
Рис. 4. Таблица Excel с исходными данными и результатами вычислений
Рекомендуемая литература
1. Уокенбах, Джон, Андердал, Брайн. Excel 2002. Библия пользователя. : Пер. с англ. – М. : Издательский дом «Вильямс», 2002. - 832 с.
2. Уокенбах, Джон. Подробное руководство по созданию формул в Excel 2002.: Пер. с англ. – М. : Издательский дом «Вильямс», 2002. - 624 с.
3. Пол Санна и др. Visual Basic для приложений (версия 5) в подлиннике: пер. с англ. – СПб.: BHV – Санкт-Петербург, 1997. – 704 с.
4. Гарнаев А.Ю. Самоучитель VBA. - СПб.: БХВ - Санкт-Петербург, 1999. - 512 с.
5. Гарнаев А.Ю. Использование MS Excel и VBA в экономике и финансах. – СПб.: BHV – Санкт-Петербург, 1999. – 336 с.
Не нашли, что искали? Воспользуйтесь поиском по сайту:
©2015 - 2024 stydopedia.ru Все материалы защищены законодательством РФ.
|