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 с.

⇐ Предыдущая12

Поделиться: